作业帮 > 数学 > 作业

VB程序设计中如何产生随机数并分别求奇数和偶数的和

来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/07/04 19:20:59
VB程序设计中如何产生随机数并分别求奇数和偶数的和
Private Sub Command1_Click()
Randomize Timer
For i = 1 To 100
x = Int(Rnd() * 90 + 10)
If x Mod 2 = 0 Then
m = m + x
Else
n = n + x
End If
Next
Print "偶数和:"; Str(m)
Print "奇数和:"; Str(n)
End Sub
随机产生100个两位数,并分别求出奇数、偶数和