Dim?x?As?Integer,?y?As?Integer,?z?As?Integer
Private?Sub?Command1_Click()
Randomize
x?=?Int(Rnd?*?(20?-?2?+?1)?+?2)
y?=?Int(Rnd?*?(x?-?2?+?1)?+?0)
z?=?x?-?y
Text1.Text?=?"現在有壹個裝有雞和兔的籠子,總***有"?&?x?&?"個頭和?"?&?y?*?2?+?z?*?4?&?"?只腳,請問:籠子裏的雞和兔各有多少只?"
Label4.Visible?=?False
Cls
End?Sub
Private?Sub?Command2_Click()
If?y?=?Val(Text2.Text)?And?z?=?Val(Text3.Text)?Then
Dim?isquit?As?Integer
isquit?=?MsgBox("考試合格,要退出麽?",?1?+?64?+?2?+?4096,?"考試合格")
If?isquit?=?1?Then
End
End?If
Else
MsgBox?"不好意思,答錯了",?0?+?16?+?0?+?4096,?"悲劇"
Label4.Visible?=?True
Label4.Caption?=?"答案為:有"?&?y?&?"只雞和"?&?z?&?"只兔子"
End?If
End?Sub
Private?Sub?form_load()
Randomize
x?=?Int(Rnd?*?(20?-?2?+?1)?+?2)
y?=?Int(Rnd?*?(x?-?2?+?1)?+?0)
z?=?x?-?y
Text1.Text?=?"現在有壹個裝有雞和兔的籠子,總***有"?&?x?&?"個頭和?"?&?y?*?2?+?z?*?4?&?"?只腳,請問:籠子裏的雞和兔各有多少只?"
Label4.ForeColor?=?vbRed
End?Sub
效果圖?就是這個了...
我有做好的完整的考試系統?源代碼...(很久以前自己做的)
需要可以和我聯系...541601475