首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
阅读下列程序说明和Visual Basic代码,将应填入(n)处的字句写在对应栏内。 [说明] 本程序提供了查询景点票价信息的功能,查询包括两种方式:按景点名称查询以及白定义查询。程序界面如下图所示: 其中,选择景点名称的组合框(Comobox)
阅读下列程序说明和Visual Basic代码,将应填入(n)处的字句写在对应栏内。 [说明] 本程序提供了查询景点票价信息的功能,查询包括两种方式:按景点名称查询以及白定义查询。程序界面如下图所示: 其中,选择景点名称的组合框(Comobox)
admin
2009-02-15
57
问题
阅读下列程序说明和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
程序员下午应用技术考试
软考初级
相关试题推荐
银行的信息非常重要,对信息以及信息处理的安全性要求很高。安全性包括多项任务,但不(24)。
在Excel中,A1单元格中显示的值为1.234E+05,下列选项中与其等值的是______。
人机交互界面有多种方式,不包括______。
在Excel中,若A1单元格中的函数为"=IF("教授">"助教",TRUE,FALSE)",按回车键后,A1单元格中的显示内容为______。
在Excel2010中,C3:C7单元格中的值分别为10、OK、20、YES和48,在。D7单元格中输入函数“=COUNT(C3:C7)”,按回车键后,D7单元格中显示的值为________________。
________________是按照科学的城市发展理念,利用新一代信息技术,通过人、物、城市功能系统之间的无缝连接与协同联动,实现自感知、自适应、自优化,形成安全、便捷、高效、绿色的城市形态。
在Excel2010中,设单元格A1、B1、C1、A2、B2、C2中的值分别为1、2、3、4、5、6,若在单元格D1中输入函数“=MAX(A1:A2,B1:C2)”,按回车键后,则D1单元格中的值为(
下列关于Windows7屏幕保护程序的叙述中,不正确的是__________。
随机试题
Theriverwidensconsiderablyasitbeginstoturneast.
EveryoneusestheexpressionsAMandPM.Butdoyouexactlyknowwhattheymeanandhowtheycameintobeing?Asyouknow,t
食物的氧热价是指
患者女性,32岁,以“低热、腹胀、腹泻3个月”来诊,既往5年前患肺结核,当时已治愈。查体:体型消瘦,腹部略膨隆,腹部触诊有腹壁柔韧感,全腹轻压痛,肝脾未及,移动性浊音阳性。超声检查肝、胆囊、脾、胰腺以及子宫、附件均未见异常。诊断可能性较大的是
有关双盲试验叙述正确的是()
腰椎穿刺后须去枕平卧位4~6小时,其目的是为防止
男性,50岁,肝硬化并上消化道出血。使用三腔二囊管压迫止m期间,突然出现躁动、发绀、呼吸困难。此时应立即
我国宪法第六至十八条对经济制度作了专门规定。关于《宪法修正案》就我国经济制度规定所作的修改,下列哪些选项是正确的?
若在通信信道上传送比特0、1信号需要0.01ms,那么该信道数据传输率为________。
中国在对资本主义工商业实行社会主义改造的过程中,在利润分配上采取的政策包括()
最新回复
(
0
)