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