求一个 VB 小程序

来源：百度知道 编辑：UC知道 时间：2024/05/23 01:29:22
在 10 x 10 的方格内 随机生成 1~100 的数字 不重复

Private Sub Command1_Click()
Static nm(1 To 100), c As Integer,j%
For j = 10 To 100
nm(j) = 0
Next j
Dim s%, i%
Randomize
For i = 0 To 99
begin:
s = Int(Rnd() * (100 - 1 + 1)) + 1
If nm(s) <> 1 Then
nm(s) = 1
Else
GoTo begin:
End If
If (i Mod 10) = 0 Then Print "" 'Print ""
Print " " & s;
Next i
End Sub

可以用
Do While 语句
如果重复就再产生一个随机数