首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装人数据”按钮,则从考生文件夹下的in5.tXt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市时,它的距离就在Text1中显示
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装人数据”按钮,则从考生文件夹下的in5.tXt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市时,它的距离就在Text1中显示
admin
2015-06-30
43
问题
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装人数据”按钮,则从考生文件夹下的in5.tXt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市时,它的距离就在Text1中显示,如图所示;此时,单击“计算运费”按钮,则计算到该城市的每吨运费(结果取整,不四舍五人),并在Text2中显示。
每吨运费的计算方法是:距离×折扣×单价。
其中,单价为0.3。
折扣为距离<500 折扣为1
500≤距离<1000 折扣为0.98
1000≤距离<1500 折扣为0.95
1.500≤距离<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 Input As #1 While Not EOF(1) ’ n = n + ? Input #1, ch$, a(n) ’ List1.AddItem ? Wend Close #1 End Sub Private Sub Command2_Click() ’需要考生编写的内容 End Sub Private Sub Command3_Click() Open App.Path & "\out5.txt" For Output As #1 Print #1, List1.Text, Text1, Text2 Close #1 End Sub Private Sub List1_Click() ’需要考生编写的内容 End Sub 程序结束 参考答案 第1个?处填入:1 第2个?处填入:ch Private Sub List1_Click() Text1 = a(List1.ListIndex + 1) End Sub Private Sub Command2_Click() b = Val(Text1) If b >= 0 And b < 500 Then 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 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/7fQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
把一个磁盘文件的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存入另一个磁盘文件,请填空完成程序。在窗体上建立一个文本框,在属性窗口中把该文本框的MultiLine属性设置为True,然后编写如下的事件过程:PrlvateSu
命令按钮不能响应的事件是
数据结构包括数据的逻辑结构、数据的【】以及对数据的操作运算。
程序的基本控制结构是
下面程序段的运行结果是a=1b=1Doa=a+1b=b+1LoopUntilb>5Print"k=";a;Spc(4);"b="
若结点的存储地址与其关键字之间存在某种映射关系,则称这种存储结构为______。
在结构化方法中,用数据流程图(DF)作为描述工具的软件开发阶段是
Jackson结构化程序设计方法是英国的M.Jackson提出的,它是一种面向【】的设计方法;
随机试题
企业在不同产品寿命周期阶段应采取不同的产品战略,适宜在投入期选择的产品战略有()
下列哪一项为尖锐湿疣的中医病因病机()
A.化湿行气,温中止泻,安胎B.化湿,解暑,止呕C.行气,燥湿,消积,平喘D.燥湿健脾,祛风湿E.燥湿行气,温中止呕砂仁的功效是()
英译汉:“phytosanitary celtificate;fumigation/disinfection certificate”,正确的翻译为( )。
在下列各项中,不能用于加权平均资金成本计算的是( )。
下列各项中,可以作为纳税抵押财产的有()。
通常,在年终决算之前要()。
EdmundSpenser’smasterpieceis______.
求
(50)是质量计划编制过程常用的工具和技术。
最新回复
(
0
)