vb小游戏源代码。怎么办？

时间：2013.01.16 发布人：sseeeihv93
vb小游戏源代码。怎么办？

已解决问题

谷歌sseeeihv93用户在2013.01.16提交了关于“慕尚vb小游戏源代码。怎么办？”的提问，欢迎大家涌跃发表自己的观点。目前共有1个回答，最后更新于2025-03-03T17:25:40。希望大家能够帮助她。

详细问题描述及疑问：期待您的答案，当代劳模,所有人都应该向你学习 ！

希望以下的回答，能够帮助你。

第1个回答

用户名：bei**9515  

Rem窗体创建三个单选框按钮，Option1、Option2、Option3

PrivateSubFor来自m_Activate()
Option1.Caption="石头"
Option2.Caption="剪"
Option3.Caption="布"
Option1.Value=False
Option2.Va问答lue=False
Option3.Value=False
EndSub

PrivateSubOp民等tion1_Click()
Randomize
SelectCaseInt(3*Rnd)
Case0:MsgBox"对方也出石头！继续！"
Case1:MsgBox"哈哈！你赢了！对方出的是剪！奖励你1个苹果！"
Case2:MsgBox"你输了！对方出的是布哦！不好意思，苹果给对方了哈！"
EndSelec胶聚t
Option1.Value=False
EndSub


PrivateSubOp王听改谓tion2_Click(希因仍爱一企穿巴)
Randomize
Sel汽ectCaseInt(3*Rnd)
Case0:MsgBox"你输了！对方出的是石头哦！不好意思，苹果给对方了哈！"
Case1:MsgBox"对方也出剪！继续！"
Case2:MsgBox"哈哈！你赢了！对打视又示岁星情反宗皮字方出的是布！奖励你1个苹果！"
EndSelect
Option2.Value=False
EndSub

PrivateSubOption3_Click()
Randomize
SelectCaseInt(3*Rnd)
Case0:MsgBox"哈哈！你赢了！对方出的是石头！奖励你坐务升引输鸡1个苹果！"
Case1:MsgBox"你输了！对方出的是剪哦！不好意思，苹果给对方了哈！"
Case2:MsgBox"对方也出布！继续！"
EndSelect
Option3.Value=False
EndSub