vb:Private Sub Command1_Click()Randomizer = Int(Rnd() * 100) + 1If r Mod 2 = 0 ThenPrint "r=" & r & "为偶数"ElsePrint "r=" & r & "为奇数"End IfEnd Sub
那么