首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装人数据”按钮,则从考生文件夹下的in5.tXt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市时,它的距离就在Text1中显示
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装人数据”按钮,则从考生文件夹下的in5.tXt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市时,它的距离就在Text1中显示
admin
2015-06-30
24
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_click()Dima(1To10)Dimp(1To3)k=5Fori=1To10
假如用复制、粘贴的方法建立了一个命令按钮数组Command1,以下对该数组的说法错误的是
设有如下声明:DimxAsInteger如果Sgn(x)的值为-1,则表示x的值是
在窗体上画一个列表框、一个命令按钮和一个标签。程序运行后,在列表框中选择一个项目,然后单击命令按钮,即可将所选择的项目删除,并在标签中显示列表框当前的项目数,下面是实现上述功能的程序,请填空。PrivateSubForm_Load()
控件数组的名字由【】属性指定,而数组中的每个元素由【】属性指定。
在窗体中添加一个通用对话框,其名称为CommonDialog1,然后添加一个命令按钮。要求单击命令按钮时,打开一个保存文件的通用对话框。该窗口的标题为“打开”,在文件类型框中显示的是TextFiles(*.txt)。则能够满足上述要求的程序是
下面程序段的运行结果是a=1b=1Doa=a+1b=b+1LoopUntilb>5Print"k=";a;Spc(4);"b="
以下Prime过程,用于判断一个数是否为素数。素数是只能被1和数本身整除的自然数。一个自然数不是素数,就是合数。用被测试的数除以从2开始到该数本身的数,如果能除尽(余数为0),则为合数:如果都除不尽(余数均不为0),则为素数。请在划线处将下面过程补充完整:
在链表的运算过程中,能够使空表与非空表的运算统一的结构是______。
随机试题
下列各项中,属于领导绩效的特征的是
在我国,树立焦裕禄式行政官员的正面榜样,目的就是为了发挥行政道德规范的【】
下列作业属于高温强热辐射作业的是()
工业建筑除尘系统中,与就地除尘比较,分散除尘的特点为()。
询盘
系统汇集年度时事文献、学科进展和各项统计资料的连续性出版物是()。
处理一个问题,必须把两方面的事实和证据加以详细叙述和比较,才能得到( )的结果。
有一个长度为12的有序表,按折半查找法对该表进行查找,在表内各元素等概率情况下,查找失败时所需的平均比较次数是()。
为了应答舆论,清政府在1905年以后预备立宪,为此出台了一系列的宪法性文件,下列各选项中,属于此类文件的有
Writeanessay(200-300words)accordingtothetopicgiven:Somepeoplesaythatsocialchangeoccursmorequicklyinheterogeneo
最新回复
(
0
)