首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装人数据”按钮,则从考生文件夹下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市时,它的距离就在Text1中显示
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装人数据”按钮,则从考生文件夹下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市时,它的距离就在Text1中显示
admin
2019-05-14
40
问题
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装人数据”按钮,则从考生文件夹下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市时,它的距离就在Text1中显示,如图所示;此时,单击“计算运费”按钮,则计算到该城市的每吨运费(结果取整,不四舍五入),并在Text2中显示。
每吨运费的计算方法是:距离×折扣×单价。
其中,单价为0.3。
折扣为距离<500 折扣为1
500≤距离<1000 折扣为0.98
1000≤距离<1500 折扣为0.95
1500≤距离<2000 折扣为0.92
2000≤距离 折扣为0.9
单击“保存”按钮,则把距离和每吨运费存到文件out5.txt中。
已经给出了所有控件和部分程序,要求:
①去掉程序中的注释符,把程序中的?改为正确的内容。
②编写“计算运费”按钮的Click事件过程。
③编写列表框的Click事件过程。
注意:不得修改已经存在的程序;在退出程序之前,必须至少计算一次运费,且必须使用“保存”按钮存储计算结果,否则无成绩。最后,程序按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容,并编写相应的代码。 参考答案 Dim a(10) As Integer,n As Integer Private Sub Command1_Click() Open App.Path& "\in5.txt"For InputAS #1 While Not EOF f1) n=n+1 ’下标循环加1 Input #1,ch $,a(n) ’将文件依次读入ch,a(n)中 List1.AddItem ch 将城市名添加到 List1 中 Wend Close #1 End Sub Private Sub Command2_Click() ’需要考生编写的内容 b=Val(Text1) If b>=0 And b<500 Then ’判断b的范围 m=0.3 * b ElseIf b>=500 And b<1000 Then m=0.3 * b * 0.98 ElseIf b >= 1000 And b <1500 Then m:0.3 * b * 0.95 ElseIf b >=1500 And b<2000 Then m=0.3 * b * 0.92 ElseIf b>=2000 Then m=0.3 * b * 0.9 EndIf Text2==int(m) End Sub Private Sub List1_Click() ’需要考生编写的内容 Text1=a(List1.ListIndex+1) ’通过List1.ListIndex+1来确定所选城市对应的距离 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://jikaoti.com/ti/2NN0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在数据库设计中,将E-R图转换成关系数据模型的过程属于()。
下列操作中不能向工程中添加窗体的是()。
设在工程中有一个标准模块,并定义了如下类型:TypeStutypeinoAsIntegerstmameAsString*20strsexAsString*2smarkAsSingle
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为CmdChange、标题为“改变颜色”的命令按钮,窗体标题为“设置窗体背景色”。编写程序,使得单击命令按钮时,将窗体的背景颜色改为红
(1)在考生文件夹下有一个工程文件sjt3.vbp。窗体上有名称为Timerl的定时器,以及名称为Linel和Line2的两条水平直线。请用名称为Shapel的形状控件,在两条直线之间画一个宽和高都相等的形状,其显示形式为圆,并设置适当属性使其满足以下要求
在窗体上画一个文本框,其名称为Text1,初始内容为空白,并设置成多行显示格式;然后再画两个命令按钮,其名称分别为Commandl和Command2,标题分别为“显示”和“保存”,如图3.92所示,编写适当的事件过程。程序运行后,如果单击“显示”按钮,则读
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为Frame1、标题为“目的地”的框架,在框架中添加三个复选框,名称分别为Check1、Check2、Check3,其标题分别是“上海
(1)在考生文件夹下有一个工程文件vbsi3.vbp,相应的窗体文件名为vbsi3.frm。在窗体上有一个命令按钮,其名称为cmdAdd,标题为“添加”;有一个文本框,名称为txtSentense,初始内容为空白;有一个列表框,名称为lstWord。程序运
(1)在考生文件夹下有一个工程文件sit3.vbp,窗体上有一个矩形和一个圆,还有垂直和水平滚动条各一个。程序运行时,移动某个滚动条的滚动块,可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例,滚动块在最左边时,圆靠在矩
在考生目录下有一个工程文件sjt5.vbp,其窗体上有一个文本框,名称为Textl;还有两个命令按钮,名称分别为C1、C2,标题分别为“计算”、“存盘”,如图3-20所示。并有一个函数过程isprime(a)可以在程序中直接调用,其功能是判断参数a是否为素
随机试题
治疗口舌生疮、小便短赤首选
处方用北五加皮系指( )
国家质检总局及其下属的收费行为依法接受国家计委的管理和监督。( )
被免职的期货公司首席风险官可以向()解释说明情况。
在纳税义务人同海关发生争议时,可以向海关申请复议,但同时应当在规定期限内按海关核定的税额缴纳关税,逾期则构成滞纳,海关有权按规定采取强制执行措施。()
按照外汇收付的方式可以将汇率分为()。
一、注意事项1.申论考试是对应考者阅读理解能力、综合分析能力、提出和解决问题能力、文字表达能力的测试。2.仔细阅读给定资料,按照后面提出的“申论要求”作答。二、给定资料1.2009年4月6日,人们期待已久的《中共中央国务院关于深化医药卫生体
AproverballegedlyfromancientChinawaswidelyspreadintheWest:"Ifyouwanttobehappyforafewhours,gotogetdrunk;
MynameisKathyH..I’mthirty-oneyearsold,andI’vebeenacarernowforoverelevenyears.Thatsoundslongenough,Iknow,
Anewstudyofthebrainishelpingscientistsbetterunderstandhowhumansprocesslanguage.Oneofthepatientsisawomanwit
最新回复
(
0
)