帮忙做个VB小程序
发布网友
发布时间：2024-09-15 07:32
共1个回答
热心网友
时间：2024-11-10 06:57
'这是我的思路:
'首先是互不相同的随机数
Dim p%(50), q%(10 To 99), sz(1 To 9) As Integer
For i = 10 To 99 '在一个数组里排好顺序，然后随机抽一个，排好，再抽一个，保证不重复
q(i) = i
Next i
For i = 1 To 50
Randomize '随机抽出一个赋值在p()数组的第一个 。然后是下一个
k = Fix((90 - i) * Rnd + 10) '注意随机数的范围 ，我也不清楚
Select Case k
Case 10 To 19
sz(1) = sz(1) + 1 '在范围内则+1
Case 20 To 29
sz(2) = sz(2) + 1
Case 30 To 39
sz(3) = sz(3) + 1
Case 40 To 49
sz(4) = sz(4) + 1
Case 50 To 59
sz(5) = sz(5) + 1
Case 60 To 69
sz(6) = sz(6) + 1
Case 70 To 79
sz(7) = sz(7) + 1
Case 80 To 89
sz(8) = sz(8) + 1
Case 90 To 99
sz(9) = sz(9) + 1
End Select
p(i) = q(k)
Print p(i)
For j = k To 50 - i '将抽出来的数的后面的数向前一位，重新排好，再抽一个
q(j) = q(j + 1)
Next j
Next i
Cls
For i = 1 To 9
Print sz(i)
Next i
End Sub
随机数的编程不好，没办法~~
