首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装人数据”按钮,则从考生文件夹下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市时,它的距离就在Text1中显示
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装人数据”按钮,则从考生文件夹下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市时,它的距离就在Text1中显示
admin
2019-05-14
31
问题
在考生文件夹下有一个工程文件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.txt中。
已经给出了所有控件和部分程序,要求:
①去掉程序中的注释符,把程序中的?改为正确的内容。
②编写“计算运费”按钮的Click事件过程。
③编写列表框的Click事件过程。
注意:不得修改已经存在的程序;在退出程序之前,必须至少计算一次运费,且必须使用“保存”按钮存储计算结果,否则无成绩。最后,程序按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容,并编写相应的代码。 参考答案 Dim a(10) As Integer,n As Integer Private Sub Command1_Click() Open App.Path& "\in5.txt"For InputAS #1 While Not EOF f1) n=n+1 ’下标循环加1 Input #1,ch $,a(n) ’将文件依次读入ch,a(n)中 List1.AddItem ch 将城市名添加到 List1 中 Wend Close #1 End Sub Private Sub Command2_Click() ’需要考生编写的内容 b=Val(Text1) If 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 EndIf Text2==int(m) End Sub Private Sub List1_Click() ’需要考生编写的内容 Text1=a(List1.ListIndex+1) ’通过List1.ListIndex+1来确定所选城市对应的距离 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/gUUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列特征中不是面向对象方法的主要特征的是()。
在利用菜单编辑器设计菜单时,为了把组合键设置为“打开(0)”菜单项的访问键,可以将该菜单项的标题设置为()。
为计算1+2+22+23+24+…+210的值,并把结果显示在文本框Text1中,若编写如下事件过程:PrivateSubCommandl—Click()Dima%,b%,i%s=1a=2Fori=
窗体上有一个名称为Text1的文本框和一个名称为Command1的命令按钮,要求程序运行时,单击命令按钮(如图1所示),就可以把文本框中的内容写到文件Out.txt中,每次写入的内容附加到文件原有内容之后。以下能正确实现上述功能的程序是()。
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个标题分别是“读数据”和“统计”的命令按钮。请画两个标签,名称分别为L,abell和L,abel2,标题分别为“出现次数最多的字母是”和“它出现的次数为”;再画两个名称分别为Textl和Text2、初
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上添加一个计时器控件,名称为Timerl。请利用属性窗口设置适当属性,使得在运行时可以每隔1秒,调用计时器的Timer事件过程一次。另外,请把窗体
(1)在考生文件夹下有工程文件sjt5.vbp,窗体上有两个标题分别是“读数据”和“统计”的命令按钮,请添加一个名称为Labell、标题为“回文的个数为”的标签和一个名称为Textl,初始值为空的文本框,如图3一15所示。程序功能如下:①单击“读数据”按
请根据以下各小题的要求设计’VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml、标题为“框架”的窗体上画一个名称为Framel,且没有标题的框架。框架内含有两个单选按钮,名称分别为Opt1和Opt2、标题分别为“字体”、“大小”
在考生文件夹中有一个工程文件sjt5.vbp,如图3.129所示。运行程序时,从文件中渎入矩阵数据并放入二维数组a中。单击“计算”按钮时,将统计矩阵两个对角线的元素中能被3整除的个数,统计结果显示在标签lblFirst中;同时计算矩阵主对角线的元素之和,计
随机试题
罗马法复兴与文艺复兴相汇合的标志是()
兼具功能上和传播上双重意义的语言,如挥手、跺脚等属于()
计算二重积分其中D是由曲线直线及x轴所围成的平面闭区域.
A.海藻玉壶汤B.普济消毒饮合丹栀逍遥散C.透脓散合仙方活命饮D.龙胆泻肝汤合芍药散E.知柏地黄汤合当归六黄汤治疗甲状腺功能亢进症阴虚火旺证,应首选
了解胎儿成熟度最常用的检查项目是
A、急性肾小球肾炎B、慢性肾小球肾炎C、肾病综合征D、急性肾盂肾炎E、慢性肾盂肾炎常见有脂肪管型,容易见细、粗颗粒管型,也可见有透明管型
脑部受到重击后人就会失去意识。有人因此得出结论:意识是大脑的产物,肉体一旦死亡,意识就不复存在。但是,一台被摔的电视机突然损坏,它正在播出的图像当然立即消失,但这并不意味着正由电视塔发射的相应图像信号就不复存在。因此,要得出“意识不能独立于肉体而存在”的结
根据以下资料,回答问题。2011一2015年全市货物进出口额同比增长最快的年份的增长率约为:
竞争者
WhatistheView-R?
最新回复
(
0
)