首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sit5.vbp。程序运行时,单击“装入数据”按钮,则从考生目录下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市;时,它的距离就显示在Text1中
在考生文件夹下有一个工程文件sit5.vbp。程序运行时,单击“装入数据”按钮,则从考生目录下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市;时,它的距离就显示在Text1中
admin
2019-03-14
26
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
(1)在考生文件央下有一个工程文件sjt3.vbp(相应的窗体义件名为sjt3.frm),在窗体上添加一个名称为List1的列表框和一个名称为Text1的文本框,如图1所示。编写窗体的MouseDown事件过程。程序运行后,如果用鼠标单击窗体,则从键盘上输
窗体上有一个菜单编辑器设计的菜单。运行程序,并在窗体上单击鼠标右键,则弹出一个快捷菜单,如图所示。下列说法错误的是()。
下列排序方法中,最坏情况下比较次数最少的是( )。
窗体上有Command1、Command2两个命令按钮。现编写以下程序:OptionBase0Dima()AsInteger,mAsIntegerPrivateSubCommand1_Click() m=InputBox("请
对于语句DimVar1#,Var2AsInteger,下列说法中正确的是
编写如下程序:PrivateSubCommand1_Click() DimxAsInteger,yAsInteger x=InputBox("输入第一个数") y=InputBox("输入第二个数") Callf(x,
表达式Sgn(0.25)的值是
,设:a=2,b=8,c=6,d=3,表达式a>bAndN0tfc>d1Ord>c的值是
设树T的深度为4,其中度为1,2,3,4的结点个数分别为4,2,1,1。则T中的叶子结点数为
设数据集合为D={1,2,3,4,5},下列数据结构B=(D,R)中为非线性结构的是()。
随机试题
治疗风湿日久,伤及肝肾的最佳药物组合是
按照我国卫生部规定,婴儿必须在1岁内完成的预防接种项目中,应除外以下哪项
某外贸企业从摩托车厂购进摩托车500辆,直接报送离境出口,取得增值税专用发票注明的单价是每辆5000元,支付装卸费2万元。摩托车消费税税率为10%。则该企业应退消费税税款是()万元。
旅行社经营出国旅游业务应当符合以下条件:()。
衡量公安工作的最高标准是()。
[2001年MBA真题]用蒸馏麦芽渣提取的酒精作为汽油的替代品进入市场,使得粮食市场和能源市场发生了前所未有的直接联系。到1995年,谷物作为酒精的价值已经超过了作为粮食的价值。西方国家已经或正在考虑用从谷物提取的酒精来替代一部分进口石油。如果上述断定为真
执行如下命令的输出结果是( )。?19%4,19%-4
Readthearticlebelowaboutdecisionrightsinacompany.ChoosethecorrectwordorphrasetofilleachgapfromA,B,C,orD
Itisnaturalforyoungpeopletobecriticaloftheirparentsattimesandtoblamethemformostofthemisunderstandingbetwe
HowtoBuildYourVocabularyEffectivelyVocabularyisthefoundationoflearningalanguage.Withouti
最新回复
(
0
)