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