如何用VB做武器商店

在日常生活和工作中，會經常玩游戲，在網絡游戲的時候，游戲人物主角都可以到商店里買武器，在VB中也可以做出這樣的武器商店游戲窗口，選擇不同的武器，每個武器的價值不同。如何做呢，參考以下幾個步驟就可以做一個簡單的武器商店窗口了。

工具/原料

1
在桌面上，雙擊程序，打開VB編程軟件，在左邊工具欄上，單擊【Image】按鈕，在Form1窗口上繪制出如圖所示的大小，在其Picture屬性值中，加載一副武器圖，如下圖所示。
2
接著，選取了一張有兩把手槍的圖，然后在左邊工具欄上，單擊【Label】按鈕，在Form1窗口上繪制標簽，并將其Caption改名為武器商店，如下圖所示。
3
然后，在左邊程序的工具欄上，單擊【ListBox】按鈕，在Form1窗口上繪制出列表框，并將其List屬性里加入數據，如圖所示，這里你也可以根據自己的喜好自己寫，如下圖所示。
4
接著，在左邊程序的工具欄上，單擊【Label】按鈕，在Form1窗口上繪制出兩個標簽，一個是武器價格，另一個其Caption屬性值清空，表示剛開沒有價格，如下圖所示。
5
然后，在窗口做好后，就要在代碼窗口中輸入代碼了，如下：
Private Sub List1_Click()
Select Case List1.ListIndex
Case 0
Label3.Caption = "400元"
Case 1
Label3.Caption = "800元"
Case 2
Label3.Caption = "1600元"
Case 3
Label3.Caption = "3000元"
End Select
End Sub
這是選擇開關語句，項目多其分支也跟著多，如下圖所示。
6
最后，在代碼輸入好后，鼠標左鍵單擊【運行】按鈕，效果如圖所示，可以在武器列表中選擇不同的武器，其價格就會不一樣。這樣，簡單的武器商店就做好了，如下圖所示。