有關VB----Rnd

Question

用Rnd寫。
題目:
從某個數到某個數之間的(3的倍數)用隨機選取選出。

Answer 1

'從a~bPrivate Sub Command1_Click()    Dim a As Long, b As Long, n As Long        Randomize Timer    a = Int(Val(InputBox("請輸入起始值")))    b = Int(Val(InputBox("請輸入終值")))    If b < a Then n = a: a = b: b = n    Do      n = Int(Rnd * (b - a + 1) + a)    Loop Until n Mod 3 = 0    Print nEnd Sub