作业帮 > 综合 > 作业

从0到9里面随机生成7个数,要不重复的7个数,然后显示出来,VB程序应该怎么写

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/16 15:10:37
从0到9里面随机生成7个数,要不重复的7个数,然后显示出来,VB程序应该怎么写
怎么这么乱啊,就是随机生成7个不重复的数,在0到9这10个数里
'在窗体上点击
Private Sub Form_Click()
Dim I,J As Integer
Dim a(7),B(7) As Integer
Randomize
a(0) = Int(Rnd() * 10)
For I = 1 To 6
a(I) = Int(Rnd() * 10)
For J = 0 To I - 1
If a(J) = a(I) Then
J = 7
I = I - 1
End If
Next J
Next I
For I = 0 To 6
Print a(I) & " ";
Next I
Print
End Su