[VB6.0]關於Randomize 的問題...

我想請教一下
如何0~5組 數字 (不足要補,0)

然後每組數字皆是 1~100 之間 且不能重複

例子1

產生3組數字
輸出為       第一組數字,第二組數字,第三組數字,0,0

例子2

產生5組數字
輸出為       第一組數字,第二組數字,第三組數字,第四組數字,第五組數字


例子3

...

瀏覽完整內容，請先 註冊 或 登入會員

假設有一個Textbox叫Text1，一個Label叫Label2，一個Button叫cmdGO
哪麼，在Textbox中輸入要產生的數量，按下Button來執行，Label來顯示結果
程式碼如下：

1. Private Sub cmdGO_Click()
   
2. 
   
3.     If Trim(Text1.Text) = "" Then Exit Sub
   
4.     If Val(Text1.Text) < 0 Or Val(Text1.Text) > 5 Then Exit Sub
   
5. 
   
6. Dim number, cnt As Integer
   
7. 
   
8.     Label2.Caption = ""
   
9.     number = 0
   
10.     cnt = 0
    
11.    
    
12. Randomize
    
13. 
    
14.     If Val(Text1.Text) > 0 Then
    
15.         Do
    
16.             number = Int(Rnd * 100)
    
17.             If Trim(Label2.Caption) <> "" Then
    
18.                 Label2.Caption = Label2.Caption & "," & CStr(number)
    
19.             Else
    
20.                 Label2.Caption = CStr(number)
    
21.             End If
    
22.             cnt = cnt + 1
    
23.         Loop Until cnt = Val(Text1.Text)
    
24.     End If
    
25.    
    
26.     For number = cnt + 1 To 5
    
27.         If Trim(Label2.Caption) <> "" Then
    
28.             Label2.Caption = Label2.Caption & ",0"
    
29.         Else
    
30.             Label2.Caption = "0"
    
31.         End If
    
32.     Next
    
33. End Sub

複製代碼

...

瀏覽完整內容，請先 註冊 或 登入會員

tl0917228717

一開始就假設有一組陣列a(X組) 假設數字i=1(陣列1~X組) 用Do While i<=5每進去一次迴圈 就產生一次亂數 第一產生直接丟到陣列a(1)  之後i=i+1 之後每產生一次亂數就用If+For迴圈去檢查有沒有重複，
如果沒有重複就丟到陣列裡 之後 i=i+1 ，  如果有重複 i的值就不要變，重複的數字也不要+到陣列裡，就直接讓他重新跑一次迴圈把產生亂數的值重新刷掉，直到i>X組就OK了。
...

瀏覽完整內容，請先 註冊 或 登入會員