vb小游戏源代码 c++小游戏代码我的世界完整源代码

【vb小游戏源代码 c++小游戏代码我的世界完整源代码】

vb小游戏源代码 c++小游戏代码我的世界完整源代码

文章插图
大家好,小跳来为大家解答以上的问题 。c++小游戏代码我的世界完整源代码,vb小游戏源代码这个很多人还不知道,现在让我们一起来看看吧!
1、Rem 窗体创建三个单选框按钮,OptionOption2、Option3Private Sub Form_Activate() Option1.Caption = "石头" Option2.Caption = "剪刀" Option3.Caption = "布" Option1.Value = http://www.baikeg.com/ng/False Option2.Value = False Option3.Value = False End SubPrivate Sub Option1_Click() Randomize Select Case Int(3 * Rnd) Case 0: MsgBox"对方也出石头!继续!" Case 1: MsgBox "哈哈!你赢了!对方出的是剪刀!奖励你一个苹果!" Case 2: MsgBox "你输了!对方出的是布哦!不好意思,苹果给对方了哈!" End Select Option1.Value = http://www.baikeg.com/ng/False End SubPrivate Sub Option2_Click() Randomize Select Case Int(3 * Rnd) Case 0: MsgBox"你输了!对方出的是石头哦!不好意思 。
2、苹果给对方了哈!" Case 1: MsgBox "对方也出剪刀!继续!" Case 2: MsgBox "哈哈!你赢了!对方出的是布!奖励你一个苹果!" End Select Option2.Value = http://www.baikeg.com/ng/False End SubPrivate Sub Option3_Click() Randomize Select Case Int(3 * Rnd) Case 0: MsgBox"哈哈!你赢了!对方出的是石头!奖励你一个苹果!" Case 1: MsgBox "你输了!对方出的是剪刀哦!不好意思,苹果给对方了哈!" Case 2: MsgBox "对方也出布!继续!" End Select Option3.Value = http://www.baikeg.com/ng/False End Sub 。
本文到此分享完毕,希望对大家有所帮助 。