vb中 编程生成一个100以内的正整数，并输出该数整除2的余数 求vb代码

Question

如题所述

Answer 1

vb中 编程生成一个100以内的正整数，并输出该数整除2的余数 ？整除2还有余数吗？

如果是除不是整除，余数不是0就是1

Private Sub Command1_Click()
Dim a As Integer, b As Single
Randomize
a = Int(Rnd * 100 + 1)
b = a Mod 2   'a除以2的余数是b
Print b
End Sub

Answer 2

For Each i In Enumerable.Range(1, 99)
Console.WriteLine("{0} {1}", i, If(i Mod 2 = 0, "!", "?"))
Console.WriteLine("{0} {1}", i, i Mod 2)
Next

Answer 3

Private Sub Command1_Click()
Print Int(Rnd * 100 + 1) Mod 2
End Sub