首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装入数据”按钮,则从考生目录下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市;时,它的距离就显示在Text1中
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装入数据”按钮,则从考生目录下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市;时,它的距离就显示在Text1中
admin
2016-01-31
54
问题
在考生文件夹下有一个工程文件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
下面程序运行后,输出的结果是Dimarr(3,3)Forj=1To3Fork=1To3Art(j,k)=(j-1)*3+kNextkNextjForj=2To3Fork=2To3Printarr(k,j);
阅读下面的程序段:Fora=1To2Forb=1ToaForc=bTo2i=i+1NextNextNextPrinti执行上面的3重循环后,i的值为
在用通用对话框控件建立“打开”或“保存”文件对话框时,如果需要指定文件列表框所列出的文件类型是文本文件(即.txt文件),则正确的描述格式是
下列程序段的执行结果为a=6Fork=1T00a=a+kNextPrintk;a
随机试题
A、Hewasonlyresponsibleforunloadingfood.B、Hehadtosignhisnameoneverylabel.C、Itwasahardandtediousjob.D、Hewa
《官场现形记》
下列有关急性泪囊炎的叙述中,正确的是
下列哪种药物可长期使用,并预防夜间发作发作较重时需加用β2受体激动剂,首选药物是
猪,25kg,精神不振,食欲废绝,起卧不安,腹部膨大,频做排粪动作,但没有粪便排出,听诊肠音减弱。如本病是原发病,病因不可能是
A、Krafft点B、昙点C、HLBD、CMCE、杀菌与消毒剂亲水亲油平衡值为()。
患者杨女士,43岁,近日由于宫颈癌,需作广泛性子宫切除和盆腔淋巴结清扫术。为该患者进行阴道冲洗,其液体和浓度正确的是
海龙公司因到期无法偿还银行贷款,而被银行起诉至人民法院。经审理查明,海龙公司的财产不足清偿贷款,但在海龙公司注册登记时,作为投资方的甲、乙、丙等3人均出资不足。则本案的被告应当是:()
在四棱锥P—ABCD中,底面为正方形,M为PA的中点,则PC、BM的位置关系为().
新西兰奥克兰大学的研究人员与来自英国和美国的研究小组在4年内共同对将近1.2万名老人进行了11项调查。其中一半的老人服用钙片,而另一半则服用没有药物成分的安慰剂。结果显示,前一组当中每1000人中突发心肌梗死、中风甚至死亡的案例比后一组分别多14起、10起
最新回复
(
0
)