首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装人数据”按钮,则从考生文件夹下的in5.tXt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市时,它的距离就在Text1中显示
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装人数据”按钮,则从考生文件夹下的in5.tXt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市时,它的距离就在Text1中显示
admin
2015-06-30
34
问题
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装人数据”按钮,则从考生文件夹下的in5.tXt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市时,它的距离就在Text1中显示,如图所示;此时,单击“计算运费”按钮,则计算到该城市的每吨运费(结果取整,不四舍五人),并在Text2中显示。
每吨运费的计算方法是:距离×折扣×单价。
其中,单价为0.3。
折扣为距离<500 折扣为1
500≤距离<1000 折扣为0.98
1000≤距离<1500 折扣为0.95
1.500≤距离<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 Input As #1 While Not EOF(1) ’ n = n + ? Input #1, ch$, a(n) ’ List1.AddItem ? Wend Close #1 End Sub Private Sub Command2_Click() ’需要考生编写的内容 End Sub Private Sub Command3_Click() Open App.Path & "\out5.txt" For Output As #1 Print #1, List1.Text, Text1, Text2 Close #1 End Sub Private Sub List1_Click() ’需要考生编写的内容 End Sub 程序结束 参考答案 第1个?处填入:1 第2个?处填入:ch Private Sub List1_Click() Text1 = a(List1.ListIndex + 1) End Sub Private Sub Command2_Click() b = Val(Text1) If b >= 0 And b < 500 Then 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 End If Text2 = Int(m) End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/7fQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列可以激活属性窗口的操作是
在软件生产过程中,需求信息的给出是()
在窗体上画一个命令按钮,然后编写下列程序PrivateSubCommand3_Click()Tcl2Tcl3Tcl4EndSubSubTcl(aAsInteger)
假如用复制、粘贴的方法建立了一个命令按钮数组Command1,以下对该数组的说法错误的是
以下Prime过程,用于判断一个数是否为素数。素数是只能被1和数本身整除的自然数。一个自然数不是素数,就是合数。用被测试的数除以从2开始到该数本身的数,如果能除尽(余数为0),则为合数;如果都除不尽(余数均不为0),则为素数。请在划线处将下面过程补充完整:
控件数组的名字由【】属性指定,而数组中的每个元素由【】属性指定。
下面程序段的运行结果是a=1b=1Doa=a+1b=b+1LoopUntilb>5Print"k=";a;Spc(4);"b="
若结点的存储地址与其关键字之间存在某种映射关系,则称这种存储结构为______。
在结构化方法中,用数据流程图(DF)作为描述工具的软件开发阶段是
随机试题
A.1:1B.2:1C.3:1D.5:1E.7:1当归六黄汤中黄芪与当归配伍用量的比例是
某6周龄鸡群冬季发病,病鸡频频摇头、打喷嚏,之后眼睑肿胀,病程长达1个月以上。部检见鼻、气管、支气管有粘稠渗出物,气囊壁增厚和浑浊,内含于酪样物。该病可能是
禁作胃镜检查的急性胃炎是
全民所有制工业企业和政府的关系主要体现为政府对企业的职责是()。
下列关于认股权证与股票看涨期权共同点的说法中,正确的是()。
Theword"radar"isformedby______.
一台额定电压为13.8kV,额定功率为125MW,功率因数为0.85的发电机,其电抗标幺值为0.18(以发电机额定电压和功率为基准值)。则以13.8kV和100MVA为电压和功率基准值的电抗标幺值为_________,实际值为_________。(
为"歌手"表增加一个字段"最后得分"的SQL语句是( )。
Theyoungpolicemanoftenlooksafterthatoldwoman______.
Againstthewishesofmanysmallercountries,Europeis______astable,ifundesirable,situationlackinganycoherentpolicyof
最新回复
(
0
)