作业帮 > 综合 > 作业

我想知道,用vb编程,生成10个0-100之间的随机数,要求分别求出其中所有基数之和以及所有偶数之和,该怎么

来源:学生作业帮 编辑:灵鹊做题网作业帮 分类:综合作业 时间:2024/04/29 03:41:03
我想知道,用vb编程,生成10个0-100之间的随机数,要求分别求出其中所有基数之和以及所有偶数之和,该怎么
我想知道,用vb编程,生成10个0-100之间的随机数,要求分别求出其中所有基数之和以及所有偶数之和,该怎么
Private Sub Command1_Click()
Dim oushu%,danshu%,sum%
oushu = 0
danshu = 0
For i = 1 To 10
Randomize
sum = Int(Rnd * 100)
If sum Mod 2 = 0 Then
oushu = oushu + sum
Else
danshu = danshu + sum
End If
Next i
Text1.Text = oushu
Text2.Text = danshu
End Su