a = Int(20 + Rnd * 1)
a = Int(20 * Rnd + 1)

运行多次就知道：
Private Sub Command1_Click()
   a = Int(20 + Rnd * 1)
   MsgBox a
   a = Int(20 * Rnd + 1)
    MsgBox a
End Sub

我晕，当真脑子是摆设，不会转动么？

改一下2楼的，就一目了然
Private Sub Command1_Click()
   a = Int(20 + Rnd * 1)
    MsgBox “a = Int(20 + Rnd * 1)=” & a
   a = Int(20 * Rnd + 1)
    MsgBox “ a = Int(20 * Rnd + 1)=” & a
End Sub

a = Int(20 + Rnd * 1)
a = Int(20 * Rnd + 1)
第一个语句只能生成20或21二个整数中的一个整数，第二个语句可以生成1到21之间的任何一个整数。