(资料图片仅供参考)
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啦呵呵。
本文到此分享完毕,希望对大家有所帮助。
关键词:
Copyright@ 2015-2023 华夏文娱网版权所有 备案号: 琼ICP备2022009675号-37 联系邮箱:435 227 67@qq.com