VB猜價格小程序
高二（8）班決定在第11周開一個主題班會，為了豐富班會的內(nèi)容，班主任要求班級幾位信息高手，設計一個小程序，這事難不倒班上的各位大神，他們齊心協(xié)力，很快就完成了。
編寫程序，實現(xiàn)如下功能：有6張待猜的商品圖片加載到Image1中，通過上一個和下一個按鈕進行切換，主持人可以通過“設置價格”按鈕Command2對每一張商品圖片設置一個價格，然后，單擊“我來猜一猜”按鈕開始猜價格游戲，每人只給8次（這個數(shù)據(jù)存放在變量n中）猜價格的機會，8次機會用完后，如果猜中價格，則在文本框Text2中顯示處價格。

（1）窗體中有

10

10

個對象，

4

4

類。
（2）Command1對象的Caption屬性值是

我來猜一猜

我來猜一猜

。
（3）實現(xiàn)上述功能的部分VB程序如下，請在橫線處填入合適代碼。
Private Sub Command1_Click （　?。?br />Dim i As Integer
Dim n As Integer'變量n存儲猜價格的次數(shù)
Dim cai_shu As Integer'變量cai_shu存儲猜的價格
n=①

Val（Text1．Text）

Val（Text1．Text）

For i=1To n
cai_shu=Val（InputBox（“請輸入當前商品的價格：“，“輸入價格“））
If cai_shu=jg（dqtp） Then'jg（dqtp）存儲的是當前商品圖片的價格
MsgBox“恭喜你猜對了“
Text2．PasswordChar=““
Text2．Text=Text2．Text+“元“
Exit For
ElseIf ②

cai_shu＞jg（dqtp）

cai_shu＞jg（dqtp）

 Then
MsgBox“猜大了，再來猜一猜“
Else
MsgBox“猜小了，再來猜一猜“
End If
Next i
If i＞n Then
MsgBox“猜價格次數(shù)用盡，很遺憾，你沒有猜對！“
③

EndIf

EndIf

End Sub