首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sit5.vbp。程序运行时,单击“装入数据”按钮,则从考生目录下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框Listl中,距离放到数组a中;当选中列表框中的一个城市;时,它的距离就显示在Text1中
在考生文件夹下有一个工程文件sit5.vbp。程序运行时,单击“装入数据”按钮,则从考生目录下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框Listl中,距离放到数组a中;当选中列表框中的一个城市;时,它的距离就显示在Text1中
admin
2016-03-22
78
问题
在考生文件夹下有一个工程文件sit5.vbp。程序运行时,单击“装入数据”按钮,则从考生目录下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框Listl中,距离放到数组a中;当选中列表框中的一个城市;时,它的距离就显示在Text1中,如图3.157所示;此时,单击“计算运费”按钮,则计算到该城市的每吨运费(结果取整,不四舍五入),并显示在Text2中。每吨运费的计算方法是:距离×折扣×单价。
其中:单价为0.3。距离<500折扣为1
500≤距离<1000折扣为0.98
1000≤距离<1500折扣为0.95
1500≤距离<2000折扣为0.92
2000≤距离折扣为0.9
单击“保存”按钮,则把距离和每吨运费存到文件out5.txt中。已经给出了所有控件和部分程序,
要求:
①去掉程序中的注释符,把程序中?改为正确的内容;
②编写列表框的C1ick事件过程:
③编写“计算运费”按钮的Click事件过程。
注意:不得修改已经存在的程序;在退出程序之前,必须至少计算一次运费,且必须用“保存”按钮存储计算结果,否则无成绩。最后,程序按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开考生文件夹下的工程文件sit5.vbp。 步骤2:在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 参考代码: n=n+1 Listl.AddTtem ch$ 步骤3:编写“计算运费”按钮和列表框的单击事件过程。 参考代码: Private Sub Commancl2 Click() P=0.3 d=Int(Textl.Text/50 0) 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=1.0.9 End Select Text2=Int(discount*P*Textl) End Sub Private Sub LiStl Click() Textl=a(Listl.ListIndex+1) End Sub 步骤4:运行程序,单击列表框中的某个列表项,并单击“计算运费”按钮获得一个结果,然后单击“保存”按钮保存计算结果。 步骤5:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/MMLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面程序运行的结果为1111221222331323334请在画线处填上适当的内容使程序完整。PrivateSubForm_Click()Call
代码窗口分为左右两栏,左边一栏称为______,右边一栏称为过程框。
把窗体的KeyPreview属性设置为True,然后编写如下事件过程:PrivateSubForm_KeyPress(KeyAsciiASInteger)DimchAsStringch=Chr(KeyAscii)
如果要向工具箱加入控件和部件,可以利用“工程”菜单中的()命令。
设有如下的用户定义类型:TypeStudentnumberAsStringnameAsStringageAsIntegerEndType则以下正确引用该类型成员的代码是()。
在窗体(Name属性为Forml)上面添加两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Commandl),然后编写如下两个事件过程:PrivateSubCommandl_Click()a=Tex
能够获得一个文本框中被选取文本的内容的属性是()。
无论何种控件,都具有一个共同属性。这个属性是()。
在窗体上有一个命令按钮,然后编写如下事件过程。PrivateSubCommand1_Click()Dima(5)AsStringFORi=1To5a(i)=Chr(Asc("A")+(i-1))
有如下程序:PrivateSubCommand1_Click()a$="AWORKERISHERE"x=Len(a$)Fori=1Tox-1b$=Mid$(a$,i,3)Ifb$="WOR"ThenS
随机试题
下列选项中,符合所给图形的变化规律的是()。
下列关于胆囊癌的叙述,哪项是正确的
正常人每日通过肾小球滤过的原尿约
两个以上生产经营单位在同一作业区域内进行生产经营活动,可能危及对方生产安全的,应当签订安全生产管理协议。()
在任何市场上,能反映某种商品的市场供求状况是商品的()。
()是工艺过程最基本的组成单位。
即使穿过玻璃或水这样的普通透明材料,光速也会略微降低,因为光会与组成材料的原子相互作用。但是在这种情况下,影响是微弱的,并且任何加强这种影响的试图都会导致光的吸收。因此,重要的是使光的速度降低,而且不至于被吸收。韦尔奇博士通过小室做到了这一点。这种方法把铷
甘肃地处黄土高原、青藏高原和内蒙古高原三大高原的交汇地带。境内地形复杂,山脉纵横交错,海拔相差悬殊,高山、盆地、平川、沙漠和戈壁等兼而有之,是山地型高原地貌。()
根据给定资料,分别指出我国网络媒体的积极作用和网络传播内容存在的主要问题。(20分)要求:全面准确,语言简洁,200字左右。“给定资料6”中国人民大学C教授认为,“人肉搜索”是一把双刃剑。请简要谈谈你对这句话的理解。(20分)要求:观点明确,分析深
在VBA中,能自动检查出来的错误是
最新回复
(
0
)