VB猜價(jià)格小程序
高二(8)班決定在第11周開一個(gè)主題班會(huì),為了豐富班會(huì)的內(nèi)容,班主任要求班級(jí)幾位信息高手,設(shè)計(jì)一個(gè)小程序,這事難不倒班上的各位大神,他們齊心協(xié)力,很快就完成了。
編寫程序,實(shí)現(xiàn)如下功能:有6張待猜的商品圖片加載到Image1中,通過上一個(gè)和下一個(gè)按鈕進(jìn)行切換,主持人可以通過“設(shè)置價(jià)格”按鈕Command2對(duì)每一張商品圖片設(shè)置一個(gè)價(jià)格,然后,單擊“我來猜一猜”按鈕開始猜價(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屬性值是
我來猜一猜
我來猜一猜
。
(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“猜大了,再來猜一猜“
Else
MsgBox“猜小了,再來猜一猜“
End If
Next i
If i>n Then
MsgBox“猜價(jià)格次數(shù)用盡,很遺憾,你沒有猜對(duì)!“
③
EndIf
EndIf
End Sub