⑴ VB判斷循環是否有重復
Private Sub Command1_Click()
Randomize
Dim i As Integer, B As String, A(7) As Integer
Do Until i = 7 '開始循環添加變數數組
i: '設置標簽,讓重復跳到這里換一個隨機數
A(i) = Int(Rnd * 37) '開始賦予變數數組隨機數
For j = 0 To i - 1 '循環檢查是否重復
If A(j) = A(i) Then GoTo i: '如果重復就跳到設置標簽,換一個隨機數
Next j '退出循環
B = B & " " & A(i)
i = i + 1 '讓數組循環加1
Loop
Print B '輸出結果
End Sub
我這個不會每次都一樣的,他輸出每次都不一樣