⑴ 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
我这个不会每次都一样的,他输出每次都不一样