首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sit5.vbp。程序运行时,单击“装入数据”按钮,则从考生目录下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市;时,它的距离就显示在Text1中
在考生文件夹下有一个工程文件sit5.vbp。程序运行时,单击“装入数据”按钮,则从考生目录下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市;时,它的距离就显示在Text1中
admin
2019-03-14
19
问题
在考生文件夹下有一个工程文件sit5.vbp。程序运行时,单击“装入数据”按钮,则从考生目录下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市;时,它的距离就显示在Text1中,如图2-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事件过程。
注意:不得修改已经存在的程序:在退出程序之前,必须至少计算一次运费,且必须用“保存”按钮存计算结果,否则无成绩。最后,程序按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开考生义件灾下的奉题工程文件sit5.vbp。 步骤2:在代码编辑窗口,去掉程序中的注释符“*”,将问号“?”改为正确的内容。 参考代码: n=n+1 Listl.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 Listl—Click() Text1=a(Listl.ListIndex+1) End Sub 步骤4:运行程序,单击列表框中的某个列表项,并单击“计算运费”按钮获得一个结果,然后单击“保存”按钮保存计算结果。 步骤5:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/WdFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列不属于计时器控件属性的是
VisualBasic源程序的续行符为
运行程序后单击命令按钮。以下叙述中错误的是( )。
设:a=3,b=5,c=4,d=7,表达式ad)OrNot(b
以下表达式与Int(3.5)的值相同的是
(1)在名称为Form1的窗体上添加一个图片框,名称为Pic,通过属性窗口将考生文件夹下的文件Tu1—1.jpg添加到图片框,然后编写适当的事件过程。运行程序时,单击窗体,在图片框中显示“VB等级考试”,如图所示。注意:要求程序中不得使用变量,事
有三个关系R、S和T如下:由关系R和S通过运算得到关系T,则所使用的运算为
在深度为7的满二叉树中,叶子结点的个数为
已知二叉树后序遍历序列是CDABE,中序遍历序列是CADEB,它的前序遍历序列是()。
设栈的存储空间为S(1:50),初始状态为top=0。现经过一系列正常的入栈与退栈操作后,top=30,则栈中的元素个数为()。
随机试题
简述语法形式的分类。
药物不良反应因果关系评定确定程度是采用
关于起重机械事故的应急措施,描述有误的是()。
能够提供企业某一类经济业务增减变化较为详细会计信息的账簿是()。
由偶然原因造成的质量变异()。
日本广岛大学教授冈德雄把课堂上积极的气氛称为()
重视:人才
五台山:山西
在社会主义初级阶段,允许一部分人和一部分地区先富起来,允许在富裕的道路上存在先富与后富,存在富裕程度的差别,承认在一定时期内允许富裕程度差别的扩大。其根据是( )
对10个候选人进行选举,现有一个100条记录的选票文件ENG50.1N,其数据存放格式是每条记录的长度均为10位,第一位表示第一个人的选中情况,第二位表示第二个人的选中情况,依此类推。每一位候选人的记录内容均为字符0或1,1表示此人被选中,0表示此人未被选
最新回复
(
0
)