怎么产生30个不同的随机数字呢？使用vb
答案:1 悬赏:50 手机版
解决时间 2021-11-11 15:49
- 提问者网友：别再叽里呱啦
- 2021-11-10 21:53
怎么产生30个不同的随机数字呢？使用vb
最佳答案
- 五星知识达人网友：大漠
- 2021-11-10 23:13
Private Sub Command2_Click()
Dim i As Integer, j As Integer, tmp As Integer, a1(38) As Integer, flag As Integer
i = 1
Randomize
While (i <= 38)
tmp = Rnd() * 8
For j = 1 To 38
If a1(j) = tmp Then
flag = 0
Exit For
End If
flag = 1
Next
If flag = 1 Then
a1(i) = tmp
i = i + 1
End If
Wend
Dim i As Integer, j As Integer, tmp As Integer, a1(38) As Integer, flag As Integer
i = 1
Randomize
While (i <= 38)
tmp = Rnd() * 8
For j = 1 To 38
If a1(j) = tmp Then
flag = 0
Exit For
End If
flag = 1
Next
If flag = 1 Then
a1(i) = tmp
i = i + 1
End If
Wend
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯