0、前提條件:有一個數字列表,或者數字段范圍(1~100);
10多年建站經驗, 網站設計、成都網站建設客戶的見證與正確選擇。創新互聯提供完善的營銷型網頁建站明細報價表。后期開發更加便捷高效,我們致力于追求更美、更快、更規范。
1、Randomize '初始化隨即函數;
2、用列表或者數組存放待選數據,比如長度為60;
3、利用隨機函數抽取數字對應的數據 num=Rnd*60,Ret_Value=List(num),將選取結果存入結果單元;
4、然后從列表或者數組中去掉這個數據,(避免重復選中);
5、然后再運行3;
6、直到滿意為止。
Dim array1() As String
Dim array2() As Boolean
Dim i As Integer
Dim j As Integer
Dim str1 As String = "a,c,c,c,a,b,c,d,f,eee,eee"
array1 = Split(str1, ",")
str1 = ""
ReDim array2(UBound(array1))
For i = 0 To UBound(array1)
array2(i) = False
Next
For i = 0 To UBound(array1) - 1
If array2(i) = False Then
For j = i + 1 To UBound(array1)
If array1(i) = array1(j) And array2(j) = False Then
array2(j) = True
End If
Next j
End If
Next i
For i = 0 To UBound(array1)
If array2(i) = False Then
str1 = str1 array1(i) ","
End If
Next i
If str1 "" Then
str1 = Strings.Left(str1, Len(str1) - 1)
End If
簡單。在程序里設置一個數組變量,成員不定,每生成一個隨機數就保存在數組元素里。
在程序末尾加一行if判斷語句,如果新生成的數等于某個數組元素,則重新生成隨機數;否則放行,直接輸出。
比如數組a。里面有5個值,其中有3個是重復的?
如果這樣的話,很好辦哦。
新建一個數組b,然后遍歷要去除的數組a,
從a中把每一個都取出來,和新建的b里面的去比,如果有相同的,則不放入b,
否則就放入數組b,直到循環結束。
Private Sub Text1_Change()
Private Sub Text2_Change()
兩個事件中 同時判斷兩個文本框是否為初值(或者寫成一個sub子過程 在事件中調用也可以),如果符合條件,就禁用增加按鈕 ,否則就解封
本文標題:vb.net不重復數組的簡單介紹
分享鏈接:http://m.newbst.com/article40/dssegeo.html
成都網站建設公司_創新互聯,為您提供ChatGPT、網站設計公司、動態網站、網站排名、全網營銷推廣、微信小程序
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯