vb游戏代码大全（vb小游戏源代码）

关于vb游戏代码大全，vb小游戏源代码这个很多人还不知道，今天小六来为大家解答以上的问题，现在让我们一起来看看吧！

1、Rem 窗体创建三个单选框按钮，OptionOption2、Option3 Private Sub Form_Activate() Option1.Caption = \"石头\" Option2.Caption = \"剪刀\" Option3.Caption = \"布\" Option1.Value = False Option2.Value = False Option3.Value = False End Sub Private Sub Option1_Click() Randomize Select Case Int(3 * Rnd) Case 0: MsgBox \"对方也出石头！继续！\" Case 1: MsgBox \"哈哈！你赢了！对方出的是剪刀！奖励你一个苹果！\" Case 2: MsgBox \"你输了！对方出的是布哦！不好意思，苹果给对方了哈！\" End Select Option1.Value = False End Sub Private Sub Option2_Click() Randomize Select Case Int(3 * Rnd) Case 0: MsgBox \"你输了！对方出的是石头哦！不好意思。

2、苹果给对方了哈！\" Case 1: MsgBox \"对方也出剪刀！继续！\" Case 2: MsgBox \"哈哈！你赢了！对方出的是布！奖励你一个苹果！\" End Select Option2.Value = False End Sub Private Sub Option3_Click() Randomize Select Case Int(3 * Rnd) Case 0: MsgBox \"哈哈！你赢了！对方出的是石头！奖励你一个苹果！\" Case 1: MsgBox \"你输了！对方出的是剪刀哦！不好意思，苹果给对方了哈！\" Case 2: MsgBox \"对方也出布！继续！\" End Select Option3.Value = False End Sub。

本文到此分享完毕，希望对大家有所帮助。