首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装入数据”按钮,则从考生目录下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市;时,它的距离就显示在Text1中
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装入数据”按钮,则从考生目录下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市;时,它的距离就显示在Text1中
admin
2016-01-31
39
问题
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装入数据”按钮,则从考生目录下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市;时,它的距离就显示在Text1中,如图3-157所示;此时,单击“计算运费”按钮,则计算到该城市的每吨运费(结果取整,不四舍五入),并显示在Text2中。每吨运费的计算方法是:距离×折扣×单价。
其中:单价为0.3。距离<500折扣为1
500≤距离<1000折扣为0.98
1000≤距离<1500折扣为0.95
1500≤距离<2000折扣为0.92
2000≤距离折扣为0.9
单击“保存”按钮,则把距离和每吨运费存到文件out5.txt中。已经给出了所有控件和部分程序,
要求:
①去掉程序中的注释符,把程序中?改为正确的内容;
②编写列表框的Click事件过程;
③编写“计算运费”按钮的Click事件过程。
注意:不得修改已经存在的程序;在退出程序之前,必须至少计算一次运费,且必须用“保存”按钮存储计算结果,否则无成绩。最后,程序按原文件名存盘。
选项
答案
审题分析 根据题意,由于文件中数据的长度未知,故此使用全局变量n来记录数据的个数,在每一次循环中,每读出一组数据就令n自增1,然后将每组数据的第一部分放入变量ch,后一部分放入a(n),接下来调用列表框的AddItem方法把变量ch的值加入列表框。 在列表框的单击事件过程中,需要给Text1赋值,由于列表框中的列表项和数组a中的数据有着一一对应的关系,而a的下标由1开始,列表框中列表项的索引号从0开始,因此是Text1=a(List1.ListIndex+1)。 在“计算运费”按钮的单击事件中,只需要使用SelectCase语句进行判断距离在哪个区间内,就按照何种公式来计算折扣。 操作步骤 步骤1:打开考生文件夹下的工程文件sjt5。vbp。 步骤2:在代码编辑窗口,去掉程序中的注释符“′”,将问号“?”改为正确的内容。 参考代码: n=n+1 List1.AddItem ch$ 步骤3:编写“计算运费”按钮和列表框的单击事件过程。 参考代码: Private Sub Command2 Click() p=0.3 d=Int(Text1.Text;/500) Select Case d Case 0 discount=1 Case 1 discount=0.98 Case 2 discount=0.95 Case 3 discount=0.92 Case Else discount=0.9 End Select Text2=Int(disCOunt*p*Text1) End Sub Private Sub List1_Click() Text 1=a(List1.ListIndex+1) End Sub 步骤4:运行程序,单击列表框中的某个列表项,并单击“计算运费”按钮获得一个结果,然后单击“保存”按钮保存计算结果。 步骤5:按要求将文件保存至考生文件夹中。 考点链接 选择控件、多分支结构。
解析
转载请注明原文地址:https://kaotiyun.com/show/8uLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列操作不能向工程中添加宙体的是()。
阅读下列程序:PrivateSubCommand1_Click()DimiAsInteger,kAsIntegerk=2Fori=1To3PrintH(k);NextiEndSubFunctionH(jAsI
结构化程序设计的3种基本结构是()。
执行下面程序,第一行输出结果是[],第二行输出结果是[]。OptionExplicitPrivateSubForm_Click()DimAAsIntegerA=2CallSub1(A)EndSubPriv
下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…a,其中最后一项为n个。例如:a=5,n=4时,则Sn=5+55+555+5555。请在空白处填入适当的内容,将程序补充完整。PrivateSubCommand1_Click()Dima
要获得文件列表框中当前被选中的文件的文件名,则应使用哪个属性
下列程序段的执行结果为a=6Fork=1T00a=a+kNextPrintk;a
随机试题
第三代头孢菌素耐药的革兰阴性杆菌引起的重症感染,尤其是严重多重耐药菌感染和院内感染可选用的药物是
在信息安全中,最常用的病毒稳蔽技术有哪几种_______
我国现行建筑安装工程费用组成规定,企业支付给离退休职工的退休金应计入( )
在文档编辑过程中,凡是屏幕上显示的内容,都已经保存在外存储器(如硬盘)上。 ( )
中国公民李某为在华外商投资企业的职员,2019年其收入情况如下:(1)每月工资8000元,缴纳社保、公积金1200元/月;(2)2月为某高校提供就业咨询宣讲活动,获得报酬50000元;(3)4月从国内一单位分三次取得工程设计费共计30000元;(
中共中央、国务院印发《国家创新驱动发展战略纲要》,提出到2030年跻身创新型国家前列。()
有如下程序 int func(int a,int b) { return(a+b); } main() { int x=3,y=6,z=7,r; r=func(func(x,y),z); printf("%\d\n",r); }该程序的输出的结果是____
下列各组软件中,完全属于应用软件的一组是
Whatproblemdoesthespeakermention?
A、Studentswhowanttoliveoffcampus.B、Third-yearstudents.C、StudentslivinginNorthCampusdormitories.D、Studentswithol
最新回复
(
0
)