查人人中国名人网产品可靠性试验种类:求VB编程问题
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/09 04:16:46
编个程序，从5到8之间随机100个数，计算其中有多少个5，6，7，8
Dim n As Integer, i As Integer
Dim nx(3) As Integer
Cls
For i = 1 To 100
n = 5 + Int(Rnd() * (3 + 1))
nx(8 - n) = nx(8 - n) + 1
Next
For i = 0 To 3
Print 5 + i; "出现"; nx(3 - i); "次"
Next
n=0
for i=0 to 100
s=int(rnd(3)*5+3)
if s=5 or s=6 or s=7 or s=8 then n=n+1
next
这样如何？