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