调用随机产生100个18-25的数,统计产生了几个18,几个19,……
来源:百度知道 编辑:UC知道 时间:2024/06/09 10:08:09
编程序
我写的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>也不说清楚啊!
调用随机产生100个18-25的数,统计产生了几个18,几个19,……
编写个JAVA程序(1)随机产生200个三位的正整数,按每行十个数输出(2)统计偶数个数(3)偶数出现的概率
随机生成20个100以内的正整数,统计其中有多少个不相同的数
随机产生20个100以内的数,输出;按从小到大的顺序排序,输出。
pascal中的随机产生数的语句?
怎样用VB做随机产生10个1-100以内的整型数,求出其的最大值,最小值,平均值
用vb:产生随机三位整数[100,999],将该三位数的个、十、百位数求和。
pascal语言中想随机产生10个(50,100)的数该怎么用random函数
用java调用一个随机产生18位数的存储过程 请高手指点
随机生成20个100以内的两位正整数,统计其中有多少个不相同的数?(求VB编程答案!)