2023-07-05 09:22:04 来源 : 互联网
(资料图片仅供参考)
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啦呵呵。
本文到此分享完毕，希望对大家有所帮助。
标签：
关于我们 加入我们 广告服务 网站地图
All Rights Reserved, Copyright 2004-2020 kandiankuaibao.830036.com
如有意见请与我们联系 邮箱：435 227 67@qq.com
营业执照公示信息