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 + xElsen = n + xEnd IfNextPrint 偶数和：; Str(m)
Print 奇数和：; Str(n)
End Sub
随机产生100个两位数,并分别求出奇数、偶数和