首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装入数据”按钮,则从考生文件夹下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市时,它的距离就在Text1中显示
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装入数据”按钮,则从考生文件夹下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市时,它的距离就在Text1中显示
admin
2016-09-06
70
问题
在考生文件夹下有一个工程文件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.txtt扣。
已经给出了所有控件和部分程序,要求:
①去掉程序中的注释符,把程序中的?改为正确的内容。
②编写“计算运费”按钮的Click事件过程。
③编写列表框的Click事件过程。
注意:不得修改已经存在的程序;在退出程序之前,必须至少计算一次运费,且必须使用“保存”按钮存储计算结果,否则无成绩。最后,程序按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容,并编写相应的代码。 参考答案 Dim a(10)As Integer,n As Integer Private Sub Cornmand1 Click() Open App.Path&"\in5.txt"For Input As #1 While Not EOF(1) n=n+1’下标循环加1 Input#1,ch$,a(n)’将文件依次读入ch,a(n)中 List1.Addltem ch将城市名添加到List1中 Wend Close #1 End Sub Private Sub Cornmand2_Click() ’需要考生编写的内容 b=Val(Text1) Tf 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 End If Text2=int(m) End Sub Private Sub List1_Click() 需要考生编写的内容 Text1=a(List1.ListIndex+1) 通过List1.ListIndex+1采确定所选城市对应的距离End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/VZLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
假定窗体有一个标签,名为Label1,为了使该标签透明并且没有边框,正确的属性设置为()。
在窗体上画一个命令按钮,名称为Commandl。然后编写如下程序:PrivateSubCommand1_Ctick() ForI=1TO2 ForJ=1TOI PrintString(I,"Hello
在窗体上绘制一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click() c="ABCD" Forn=1To4 Print______ Next
设有数组声明语句:OptionBase1DimA(2,-1To1)以上语句所定义的数组A为______维数组,共有______个元素,第一维下标从______到______,第二维下标从______到______。下列选项
在设计应用程序时,通过()窗口可以查看到应用程序工程中的所有组成部分。
下列数据结构中,能用二分法进行查找的是()。
软件工程研究的内容主要包括:软件开发技术和______________。
下列可作为VisualBasic变量名的是()。
下列运算符中,优先级别最低的是
随机试题
Whichdoordoesthiskey()to?
A.子宫底高度在脐耻之间B.子宫底高度在脐上一横指C.子宫底高度在脐上三横指D.子宫底高度在剑突与脐之间E.子宫底高度在剑突下两横指
A、午时茶颗粒B、双黄连颗粒C、感冒清热颗粒D、九味羌活颗粒E、桑菊感冒颗粒某女,40岁,感冒2日,症见发热,微恶风。头痛,咳嗽,口干,咽痛。证属风热感冒初起,治当疏风清热,宣肺止咳,宜选用的成药是()。
根据增值税的有关规定,下列各项中,适用13%增值税税率的有()。
工序分布调查表相当于简化了的()。
教师不得随意宣扬学生缺点,私拆学生信件等,这是因为学生享有()。
社会主义法治理念是社会主义民主法治建设的内在精神和灵魂。属于社会主义法治理念的是()。①依法行政、诚信守法②党的领导、执法为民③公平正义、服从大局④司法公正、文明执法
某模拟网站的主页地址是:HTTP://LOCALHOST:65531/ExamWeb/INDEX.HTM,打开此主页,浏览“航空知识”页面,查找“超七战斗机”的页面内容,并将它以文本文件的格式保存到考生目录下,命名为“chao7.txt”。
Whereareeachofthetwospeakersfrompossibly?
Thebenefitofsittinglessmentionedinthenewsis______.
最新回复
(
0
)