(资料图片)
1、先自己画控件。
2、参照图片里面的不能有错注意左边框架里面还有一个标签不要忘记!!PrivateSubCommand1_Click()RandomizeDima%,b%,c%,cr%cr=Int(3*Rnd+1)Ifcr=1ThenLabel1.Caption="石头"ElseIfcr=2ThenLabel1.Caption="剪刀"ElseIfcr=3ThenLabel1.Caption="布"EndIfIfcr=1AndOption1.Value=TrueThenMsgBox("平")Ifcr=1AndOption2.Value=TrueThenMsgBox("YouLost")Ifcr=1AndOption3.Value=TrueThenMsgBox("YouWin!")Ifcr=2AndOption1.Value=TrueThenMsgBox("YouWin!")Ifcr=2AndOption2.Value=TrueThenMsgBox("平")Ifcr=2AndOption3.Value=TrueThenMsgBox("YouLost")Ifcr=3AndOption1.Value=TrueThenMsgBox("YouLost")Ifcr=3AndOption2.Value=TrueThenMsgBox("YouWin!")Ifcr=3AndOption3.Value=TrueThenMsgBox("平")EndSubPrivateSubCommand2_Click()UnloadForm1EndSubPrivateSubLabel3_Click()EndSubPrivateSubCommand3_Click()MsgBox("YouWin!"&w&Chr(13)&"YouLost"&l&Chr(13)&"平"&p)EndSubPrivateSubForm_Load()Label1.FontSize=65EndSubPrivateSubOption1_Click()Command1.SetFocusEndSubPrivateSubOption2_Click()Command1.SetFocusEndSubPrivateSubOption3_Click()Command1.SetFocusEndSub虽然写的不是很简洁。
3、不过也还OK啦呵呵。
本文就为大家分享到这里，希望小伙伴们会喜欢。
免责声明：市场有风险，选择需谨慎！此文仅供参考，不作买卖依据。
