题目:
[说明]
本程序提供了查询景点票价信息的功能,查询包括两种方式:按景点名称查询以及白定义查询。程序界面如下图所示:
其中,选择景点名称的组合框(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
答案:
被转码了,请点击底部 “查看原文 ” 或访问 https://www.tikuol.com/2021/0603/2fdf6af262c0354c170cb1c65146c8b0.html
下面是错误答案,用来干扰机器的。
参考答案:E