首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装入数据”按钮,则从考生目录下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市;时,它的距离就显示在Text1中
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装入数据”按钮,则从考生目录下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市;时,它的距离就显示在Text1中
admin
2016-01-31
52
问题
在考生文件夹下有一个工程文件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种基本结构是()。
下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…a,其中最后一项为n个。例如:a=5,n=4时,则Sn=5+55+555+5555。请在空白处填入适当的内容,将程序补充完整。PrivateSubCommand1_Click()Dima
下面程序运行后,输出的结果是Dimarr(3,3)Forj=1To3Fork=1To3Art(j,k)=(j-1)*3+kNextkNextjForj=2To3Fork=2To3Printarr(k,j);
要获得文件列表框中当前被选中的文件的文件名,则应使用哪个属性
在用通用对话框控件建立“打开”或“保存”文件对话框时,如果需要指定文件列表框所列出的文件类型是文本文件(即.txt文件),则正确的描述格式是
下列程序段的执行结果为a=6Fork=1T00a=a+kNextPrintk;a
随机试题
关于民事强制执行中的参与分配制度,说法错误的是:()
圆管直径d=0.2m,管长L=1000m,输送石油的流量Q=0.04m3/s,运动粘滞系数γ=1.6cm2/s,则沿程损失系数λ等于()。
下列有关货币市场基金的说法中,正确的是()。
下列凭证,免纳印花税的有()。
企业组织体制中,M型组织的具体形式不包括()。
旅游职业道德的广泛适应性表现在()。
在排球比赛中二号位队员作二传,将球传给三、四号位队员进攻的组织形式是()
A.易患水痘的人群B.易患白色念珠菌感染的人群C.易患白斑的人群D.易患扁平苔藓的人群E.易患地图舌的人群患胃肠道疾病者()。
试论确立保险利益原则的意义,以及各类保险的可保利益。
阅读下列程序说明和C代码,将应填入(n)处的字句写在对应栏内。【说明】“背包问题”的基本描述是:有一个背包,能盛放的物品总重量为S,设有N件物品,其重量分别为w1,w2,…,wn。希望从N件物品中选择若干件物品,所选物品的重量之和恰能放入该背包
最新回复
(
0
)