1. 首頁 > 生活經驗 > >

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 。
本文到此分享完畢，希望對大家有所幫助 。