阅读下列程序说明和Visual Basic代码，将应填入（n)处的字句写在对应栏内。[说明]本程序提供了查询

阅读下列程序说明和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