首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
阅读下列程序说明和Visual Basic代码,将应填入(n)处的字句写在对应栏内。 [说明] 本程序提供了查询景点票价信息的功能,查询包括两种方式:按景点名称查询以及白定义查询。程序界面如下图所示: 其中,选择景点名称的组合框(Comobox)
阅读下列程序说明和Visual Basic代码,将应填入(n)处的字句写在对应栏内。 [说明] 本程序提供了查询景点票价信息的功能,查询包括两种方式:按景点名称查询以及白定义查询。程序界面如下图所示: 其中,选择景点名称的组合框(Comobox)
admin
2009-02-15
63
问题
阅读下列程序说明和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
选项
答案
(1)Combo1.Text (2)Comb01.ListCount (3) Comb01.List(i) (4)Textl.Text (5)Option2.ValueAndP(i,1)<= Price (6)flag=True
解析
(1)~(3)ComboBox控件常用属性及用法如下:Combo1.Text表示组合框Combo1当前的文本内容; Comb01.1JstCount表示组合框Combo1中列表项总个数;Comber. List(i)表示组合框Combo1中列表项i(编号从0开始)的内容;
(4)Text控件的常用眉性是Text,表示文本框中的内容;
(5)使用自定义查询时,当“旺季”单选钮被选中时,景点的旺季票价不超过Price,此时有Option1. Value And P(i,0)<=price,类似地,当“淡季”单选钮被选中时,查询条件应该是Option2.Value And p(i,1)<= price;
(6)flag标志用于标记是否有匹配查询条件的景点,初始时置为False,一旦发现存在匹配查询条件的景点,应该置为True。
转载请注明原文地址:https://kaotiyun.com/show/CojZ777K
本试题收录于:
程序员下午应用技术考试题库软考初级分类
0
程序员下午应用技术考试
软考初级
相关试题推荐
为查看Windows系统当前正在运行哪些应用程序或进程,可用(43)组合键实现。
在Excel中,若A1单元格的值为5,在B1单元格输入函数“=A1-10”,则B1单元格的值为______。
在Excel中,若A1单元格中的函数为"=IF("教授">"助教",TRUE,FALSE)",按回车键后,A1单元格中的显示内容为______。
计算机硬件唯一能够直接识别和处理的语言是(30)________________。
________________不会是信息系统的功能。
________________是按照科学的城市发展理念,利用新一代信息技术,通过人、物、城市功能系统之间的无缝连接与协同联动,实现自感知、自适应、自优化,形成安全、便捷、高效、绿色的城市形态。
在Excel2007中,在单元格A1中输入函数“=LEN(”信息处理技术员”)”,按回车键后,则A1单元格中的值为__________。
随机试题
王老师在学校橱窗陈列了《黑白装饰画》一课的作业。该评价方法是()。
试述关税应纳税额的计算。
患儿1岁,因生长缓慢,智力低下,便秘,食量少,来门诊。体检:面容臃肿,伸舌,皮肤粗糙,心音低钝,心率78次/分,手足凉,腹胀。此患儿最可能的诊断是
根据《宪法》的规定,关于宪法文本的内容,下列哪一选项是正确的?()
下列砌块中含有铝粉的是:[2017—015]
发生不可抗力使合同不能履行或不能完成履行时,应依法()。
某车间共有40人,某次技术操作考核中40人的分数从低到高恰好构成一个等差数列:a1,a2,……,a40,并且平均分是90分,则a1+a8+a33+a40等于()
下列叙述中正确的是()。
Educationofexceptionalchildrenmeansprovisionofspecialeducationalservicestothosechildrenwhoareeitherhandicappedo
Whatpreventsthemanfromtakingthepoetsof1960’sclass?
最新回复
(
0
)