未分类题

阅读下列程序说明和Visual Basic代码，将应填入(n)处的字句写在对应栏内。
[说明]
本程序提供了查询景点票价信息的功能，查询包括两种方式：按景点名称查询以及白定义查询。程序界面如下图所示：

其中，选择景点名称的组合框(Comobox)名为Combo1，单旋钮“旺季”和“淡季”分别名为Op- tion1和Option2，用于输入票价上限的文本框名为Texi1，两种查询方式的“提交”按钮分别名为 Command1和Command2。已知Combol列表中第i个景点的旺季票价和淡季票价分别存放于数组元素P(i，0)和p(i，1)中。
[Visual Basic代码]
Dim p(20, 2) As Single '通用声明
Private Sub Form_Load( )
For i = 0 To 9 '对p赋值
p(i, 0)=........ :p(i, 1)=.......
Next
End Sub
Private Sub Commandl_Click( ) '查询方式一：按景点名称查询
Dim cboTcxt As String
eboText =(1)
Fori = 0 To (2) -1 '对Combo1中各列表项循环
If (3)= cboText Then
MsgBox '景点名称' & cboText & '旺季票价' & p(i, 0) & _
',淡季票价' & p(i, 1)
Exit Sub
End If
Next i
End Sub
Private Sub Command2_Click( ) 查询方式二：自定义查询
Dim price As Single, result As String, flag As Boolean
price =Val( (4) )
flag = False
result = ''
For i = 0 To (2) - 1'对Combo1中列表项循环，找出符合条件的景点
If(Optionl. Value And p(i, 0) ＜ = price) Or((5)) Then
(6)
result=result & '景点名称' &(3)& ',旺季票价:'&_
p(i, 0) & ',淡季票价:' & p(i, 1) & vbCrLf
End If
Next i
If flag Then
MagBox result
Else: Msgaox '没有找到符合条件的景点信息!'
End If
End Sub