VB猜价格小程序
高二（8）班决定在第11周开一个主题班会，为了丰富班会的内容，班主任要求班级几位信息高手，设计一个小程序，这事难不倒班上的各位大神，他们齐心协力，很快就完成了。
编写程序，实现如下功能：有6张待猜的商品图片加载到Image1中，通过上一个和下一个按钮进行切换，主持人可以通过“设置价格”按钮Command2对每一张商品图片设置一个价格，然后，单击“我来猜一猜”按钮开始猜价格游戏，每人只给8次（这个数据存放在变量n中）猜价格的机会，8次机会用完后，如果猜中价格，则在文本框Text2中显示处价格。

（1）窗体中有

10

10

个对象，

4

4

类。
（2）Command1对象的Caption属性值是

我来猜一猜

我来猜一猜

。
（3）实现上述功能的部分VB程序如下，请在横线处填入合适代码。
Private Sub Command1_Click （　　）
Dim i As Integer
Dim n As Integer'变量n存储猜价格的次数
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“猜价格次数用尽，很遗憾，你没有猜对！“
③

EndIf

EndIf

End Sub