VB中怎样使被除数，除数，商都是1-12的整数

先谢谢各位，有点急~~所以~~

被除数，除数，商都是1-12的整数，也就是说被除数一定能被除数整除，就像4除以2等于2，12除以6等于2

---

VB code:

'运行程序，连续单击按钮，观查结果

Option Explicit
'三个数不可重复
Private Sub Command1_Click()
Dim a, b, c
Do
a = Int(Rnd * 12) + 1
b = Int(Rnd * 12) + 1
c = Int(Rnd * 12) + 1
If a / b = c And a <> b And b <> c And a <> c Then
Debug.Print a; "÷"; b; "="; c
Exit Do
End If
Loop

End Sub
'三个数可重复
Private Sub Command2_Click()
Dim a, b, c
Do
a = Int(Rnd * 12) + 1
b = Int(Rnd * 12) + 1
c = Int(Rnd * 12) + 1
If a / b = c Then
Debug.Print a; "÷"; b; "="; c
Exit Do
End If
Loop

End Sub

---

如果想在每次启动程序后，随机数不同，请用 Randomize timer 初始化随机数。
VB code:

Private Sub Form_Load()
Randomize Timer
End Sub

---

引用

VB code'运行程序，连续单击按钮，观查结果OptionExplicit'三个数不可重复PrivateSub Command1_Click()Dim a, b, cDo
    a=Int(Rnd*12)+1
    b=Int(Rnd*12)+1
    c=Int