试题查看

首页 > 软件水平考试 > 试题查看
【分析解答题】

[说明]

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

其中,选择景点名称的组合框Comobox)名为Combo1,单旋钮“旺季”和“淡季”分别名为Op- tion1和Option2,用于输入票价上限的文本框名为Texi1,两种查询方式的“提交”按钮分别名为Command1和Command2。已知Combol列表中第i个景点的旺季票价和淡季票价分别存放于数组元素P(i,0)和p(i,1)中。
[VisualBasic代码]
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 SubCommandl_Click( ) ’查询方式一:按景点名称查询
Dim cboTcxtAs 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 SubCommand2_Click( ) 查询方式二:自定义查询
Dim priceAs Single, resultAs String, flagAsBoolean
price =Val( (4) )
flag = False
result = ""
For i = 0 To (2) - 1’对Combo1中列表项循环,找出符合条件的景点
If(Optionl. ValueAnd 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
查看答案解析

参考答案:

正在加载...

答案解析

正在加载...

根据网考网移动考试中心的统计,该试题:

0%的考友选择了A选项

0%的考友选择了B选项

0%的考友选择了C选项

0%的考友选择了D选项

你可能感兴趣的试题

[说明]下面的流程图实现了正整数序列K(1),K(2),…,K(n)的重排,得到[说明]设有一张学生成绩表scores存放在Access数据库Student中,[说明]邻接表是图的一种顺序存储与链式存储结合的存储方法。其思想是:对于图G中的[说明]有若干教师,每个教师只有姓名,一个教师可以指导多名研究生;每名研究生有姓[说明]下面的词典类Dic实现了简单的英译汉功能。程序运行后的输出为“我是一个学[说明]Kruskal算法是一种构造图的最小生成树的方法。设G为一无向连通图,令