今天老师教了我们制作一个程序,有关生成随机数的程序,代码如下:
Dim a(1 To 10) As Integer
Private Sub Command1_Click()
Form_Load
End Sub
Private Sub Form_Load()
Dim p As String 'p用来表示随机生成的10个数字
Randomize
p = ""
For i = 1 To 10 '生成10个随机整数
Do
x = Int(Rnd * 90) + 10 '存放中间生成的一个随机整数,范围是10到99之间的整数
yes = 0 '用来判断生成的x是要还是不,0:表示要;1:表示不要
For j = 1 To i - 1 '对要生成的第一个整数进行检测,检测结果存放在yes中
If x = a(j) Then yes = 1: Exit For
Next
Loop While yes = 1
a(i) = x
p = p & Str(a(j)) & ","
Next
Label1.Caption = LTrim(Left(p, Len(p) - 1)) '用label显示最终做的结果
End Sub
这个是在1——100以内抽取10个整数,要是要随机抽取N个随机数,就是要把
Dim a(1 To 10) As Integer
Private Sub Command1_Click()
Form_Load
End Sub这块修改一下,修改如下:
Dim a() as integer
n=InputBox("请输入一个正整数n>=1")
Radim a (1 to n)