高校问答icip2018截稿日期:调用随机产生100个18-25的数,统计产生了几个18,几个19,……
来源：百度文库 编辑：高校问答 时间：2024/05/08 15:42:03
编程序
我写的VB程序：
Option Base 1
Private Sub Form_Click()
Dim a(8) As Integer, i As Integer, j As Integer
For i = 1 To 8
a(i) = 0
Next i
Randomize
For i = 1 To 100
k = Int(Rnd * 8 + 18)
For j = 1 To 8
If (k = 17 + j) Then a(j) = a(j) + 1
Next j
Print k;
Next i
For i = 1 To 8
Print i + 17 & "的个数" & a(i)
Next i
End Sub
要什么的啊?VB还是C还是JAVA>也不说清楚啊!