VB:产生30个1-100之间的随机数,统计并输出其中奇数和偶数的个数

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/04 14:25:30
VB:产生30个1-100之间的随机数,统计并输出其中奇数和偶数的个数

VB:产生30个1-100之间的随机数,统计并输出其中奇数和偶数的个数
VB:产生30个1-100之间的随机数,统计并输出其中奇数和偶数的个数

VB:产生30个1-100之间的随机数,统计并输出其中奇数和偶数的个数
Private Sub Form_Click()
Dim a(30) As Integer
Dim i As Integer
Randomize
For i = 1 To 30
a(i) = Int(100 * Rnd)
Next i
For i = 1 To 30
If a(i) Mod 2 = 0 Then
Text1 = Val(Text1) + 1
Text4 = Text4 & a(i) & vbCrLf
Else
Text2 = Text2 & a(i) & vbCrLf
Text3 = Val(Text3) + 1
End If
Next
End Sub

VB:产生30个1-100之间的随机数,统计并输出其中奇数和偶数的个数 VB,先产生100个0~67之间的随机数,编一子过程计算这些随机数的平均值、最大值、最小值. 利用VB如何设计下面问题:利用随机数产生10个1~100之间的随机数,显示出最大值,最小值及平均值. VB编程产生100个[10,99]的随机数 如何用VB产生2~99之间的1次1个随机数,可以重复的,另外求如何用VB产生1~n之间的1次20个随机数用VB产生1~n之间的1次20个随机数,这个不能重复... 用vb.net产生10个1到1000随机数,数之间要空开 vb 如何产生一个 [-3,3]之间的随机数? VB产生一个101~500之间的随机数代码 如何用VB求30个100-3000的随机数 VB:产生20个30到50之间的随机数,并以每行4个进行排列.要求代码尽可能简洁易懂, 急求vb代码 单击“开始”按钮后每隔0.01秒产生2个随机数10-99之间的随机数单击“开始”按钮后每隔0.01秒产生2个随机数10-99之间的随机数,如果这两个数之和为100,则停止产生新的数,显示结果. vb利用随机函数产生50到100范围的30个随机数,显示其中最大值,最小值,平均值, vb编程 产生20个0到99之间的随机数,将其中5和3的倍数打印出来 VB随机产生1000个10-99之间的随机数,统计出现次数最多的数是哪几个? vb随机数之和代码单击开始按钮以后每隔0.01秒产生2个10~99之间的随机数,如果这两个数之和为100,则停止产生新的数,显示结果. VB:产生30个0~10000的随机数,并输出最大的那个. MFC中产生X个随机数,使这些随机数之间的差值不超过1 VB 产生1-400的随机数 用int(Rnd)