首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装入数据”按钮,则从考生文件夹下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市时,它的距离就在Text1中显示
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装入数据”按钮,则从考生文件夹下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市时,它的距离就在Text1中显示
admin
2017-09-20
71
问题
在考生文件夹下有一个工程文件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 Commandl_Click() Open App.Path&”\in5.txt”For Input AS#1 While Not EOF(1) n=n+1’下标循环加1 Input#1,ch$,a(n)’将文件依次读入ch,a(n)中 Listl.AddItem ch将城市名添加到Listl中 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 Else If b>=1 000 And b<1500Then m=0.3*b*0.95 Else If b>=150 0 And b<2 000Then m=0.3*b*0.92 Else If b>=20 00 Then m=0.3*b*0.9 End If Text2*int(m) End Sub Private Sub List1_Click() ’需要考生编写的内容 Text1=a(Listl.LiStIndex+1) ’通过Listl.ListIndex+1来确定所选城市对应的距离 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/2kGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
当用__________________方式打开文件时,如果对文件进行写操作,则写入的数据附加到原文件的后面。
若要求输入密码时文本框中只显示“*”号,则应当在文本框的属性窗口中设置______属性。
下面程序的功能是产生10个小于100(不含100)的随机正整数,并统计其中5的倍数所占比例,但程序不完整,请补充完整。SubPR()RandomizeDima(10)Forj=1To10a(i)=In
单击命令按钮时,下列程序代码的执行结果为PublicSubProcl(nAsInteger,ByValmAsinteger)n=nMod10m=m\10EndsubPrivateSubComm
在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序:FunctionM(xAsInteger,yAsInteger)M=пf(x>y,x,y)EndFunctionPrivateSub
为了显示一个窗体,所使用的方法为【】;为了隐藏一个窗体,所使用的方法为【】。
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:OptionBase1PrivateSubCommand1_Click()DimcAsIn
当把框架的什么属性设置为False时,其标题会变灰,框架中所有的对象均被屏蔽
在窗体上画一个名称为Text1的文体框,然后画一个名称为HScrolll的滚动条,其Min和Max属性分别为0和100。程序运行后,如果移动滚动框,则在文本框中显示滚动条的当前值,如图所示。以下能实现上述操作的程序段是
随机试题
Tounderstandthemarketingconcept,itisonlynecessarytounderstandthedifferencebetweenmarketingandselling.Nottooma
太阳伤寒证不可能出现的症状是
下列药物中,患者服用后应避免在阳光下暴露的是
生产、销售的假药具备下列哪些情形,应认定为刑法第141条规定的足以严重危害人体健康罪( )。
《合伙企业法》规定:合伙协议约定合伙企业经营期限的,下列情况可以协议退伙的是( )。
国家公务员级别分为()级。
[*]
在考生文件夹下打开文档Word.docx。某高校学生会计划举办一场“大学生网络创业交流会”的活动,拟邀请部分专家和老师给在校学生进行演讲。因此,校学生会外联部需制作一批邀请函,并分别递送给相关的专家和老师。请按如下要求,完成邀请函的制作:根据“Wo
(1)Muckyroads,unpredictableweather,andwetgroundthatsagsbeneathyourfeet.ItmustbespringtimeinNewEngland.(2)
TheUSCongressA)TheUScongressisthelegislativebranchofthefederalgovernment.Itisabicameral(两院制的)law-makingbod
最新回复
(
0
)