用VB产生0~99 ,25个不重复的随机数
来源:百度知道 编辑:UC知道 时间:2024/06/15 02:36:03
十万火急!!!
用Visual Basic 我要整个程序答案
用Visual Basic 我要整个程序答案
Option Explicit
Private Sub Command1_Click()
Randomize
Dim i As Integer, j As Integer
Dim a(1 To 25) As Integer
For i = 1 To 25
flag:
a(i) = Int(Rnd * 100)
For j = 1 To i - 1
If a(i) = a(j) Then GoTo flag
Next
Print a(i);
Next
End Sub
25
37
66
95
01
57
65
48
91
64
59
28
67
19
48
67
29
20
09
34
28
55
67