问答题

[说明]
本程序提供了查询景点票价信息的功能，查询包括两种方式：按景点名称查询以及白定义查询。程序界面如下图所示：


其中，选择景点名称的组合框(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