哈嘍,大家好~~~我是小編田甜，關(guān)于vb小游戲編程，vb小游戲源代碼這個(gè)很多人還不知道,那么現(xiàn)在讓田甜帶著大家一起來(lái)看看吧！

Rem 窗體創(chuàng)建三個(gè)單選框按鈕，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 "對(duì)方也出石頭！繼續(xù)！" Case 1: MsgBox "哈哈！你贏了！對(duì)方出的是剪刀！獎(jiǎng)勵(lì)你一個(gè)蘋果！" Case 2: MsgBox "你輸了！對(duì)方出的是布哦！不好意思，蘋果給對(duì)方了哈！" End Select Option1.Value = False End Sub Private Sub Option2_Click() Randomize Select Case Int(3 * Rnd) Case 0: MsgBox "你輸了！對(duì)方出的是石頭哦！不好意思。

蘋果給對(duì)方了哈！" Case 1: MsgBox "對(duì)方也出剪刀！繼續(xù)！" Case 2: MsgBox "哈哈！你贏了！對(duì)方出的是布！獎(jiǎng)勵(lì)你一個(gè)蘋果！" End Select Option2.Value = False End Sub Private Sub Option3_Click() Randomize Select Case Int(3 * Rnd) Case 0: MsgBox "哈哈！你贏了！對(duì)方出的是石頭！獎(jiǎng)勵(lì)你一個(gè)蘋果！" Case 1: MsgBox "你輸了！對(duì)方出的是剪刀哦！不好意思，蘋果給對(duì)方了哈！" Case 2: MsgBox "對(duì)方也出布！繼續(xù)！" End Select Option3.Value = False End Sub。

本文分享完畢，希望對(duì)大家有所幫助哦。