求如何产生0-3间的随机数

Question

如标题，我要随机产生0-3之间的随机数

Answer 1

DEBUG.PRINT (RND*100 mod 3)

Answer 2

产生指定范围内的随机数
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

Answer 3

取整数的话：
Private Sub Form_Click()
Dim a As Single
a = int(3 * Rnd)
Text1.Text = a
End Sub
属于[0，3）的区间不要求整数的话：
Private Sub Form_Click()
Dim a As Single
a = 3 * Rnd
Text1.Text = a
End Sub
属于(0,3)的区间

Answer 4

要看你的取值范围了,
要是能取到3,那么要写成:rnd*4
要是不能取到3,那么就写rnd*3

Answer 5

private sub command()_click
 text1.text=str$(int(Rnd()*3)
end sub

Answer 6

Dim MyValue
 MyValue = Int((3 * Rnd) + 1)