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

（1）窗體中有

10

10

個(gè)對(duì)象，

4

4

類。
（2）Command1對(duì)象的Caption屬性值是

我來(lái)猜一猜

我來(lái)猜一猜

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

Val（Text1．Text）

Val（Text1．Text）

For i=1To n
cai_shu=Val（InputBox（“請(qǐng)輸入當(dāng)前商品的價(jià)格：“，“輸入價(jià)格“））
If cai_shu=jg（dqtp） Then'jg（dqtp）存儲(chǔ)的是當(dāng)前商品圖片的價(jià)格
MsgBox“恭喜你猜對(duì)了“
Text2．PasswordChar=““
Text2．Text=Text2．Text+“元“
Exit For
ElseIf ②

cai_shu＞jg（dqtp）

cai_shu＞jg（dqtp）

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

EndIf

EndIf

End Sub