首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装人数据”按钮,则从考生文件夹下的in5.tXt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市时,它的距离就在Text1中显示
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装人数据”按钮,则从考生文件夹下的in5.tXt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市时,它的距离就在Text1中显示
admin
2015-06-30
50
问题
在考生文件夹下有一个工程文件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
使用通用对话框控件时,要在打开的对话框的标题栏上显示“保存文件”,应把这4个汉字赋给的属性变量是
下列程序的功能是把文件C:\a1.txt复制成C:\a2.txt,请填空。PrivateSubFormC1ick()DimchAsStringOpen"C:\a1.txt"For【】
程序的基本控制结构是
Jackson方法是一种面向【】的结构化方法。
若结点的存储地址与其关键字之间存在某种映射关系,则称这种存储结构为______。
在结构化方法中,用数据流程图(DF)作为描述工具的软件开发阶段是
Jackson结构化程序设计方法是英国的M.Jackson提出的,它是一种面向【】的设计方法;
随机试题
肉眼观察脑标本表面,脑萎缩的特征性改变是
哪一项不是脉络膜黑色素瘤的超声表现
西药治疗淋病,方法不正确的是
城市道路非机动车道主要按()车道设计。
鲜花花篮
由投资者投资转入的固定资产,应按投资合同或协议约定的价值(假定该价值公允)作为固定资产的入账价值,借记“固定资产”科目,按其在注册资本中所占的份额,贷记“实收资本”或“股本”科目,按其差额记入的会计科目是()。
中央银行的主要业务是()。
根据个人所得税法律制度的规定,下列各项中,应征收个人所得税的是()。
下列属于经常转移的项目有()。
课外活动与课堂教学的共同之处在于它们都是()教育活动。
最新回复
(
0
)