首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装入数据”按钮,则从考生目录下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1 中,距离放到数组a 中;当选中列表框中的一个城市;时,它的距离就显示在Text
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装入数据”按钮,则从考生目录下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1 中,距离放到数组a 中;当选中列表框中的一个城市;时,它的距离就显示在Text
admin
2018-10-29
85
问题
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装入数据”按钮,则从考生目录下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1 中,距离放到数组a 中;当选中列表框中的一个城市;时,它的距离就显示在Text1 中,如图1-45所示;此时,单击“计算运费”按钮,则计算到该城市的每吨运费(结果取整,不四舍五入),并显示在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:打开考生文件夹下的工程文件sjt5.vbp。 步骤2:在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 参考代码: n = n + 1 List1.AddItem ch$ 步骤3:编写“计算运费”按钮和列表框的单击事件过程。 参考代码: Private Sub Command2_Click() p = 0.3 d = Int(Text1.Text / 500) 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 = 0.9 End Select Text2 = Int(discount * p * Text1) End Sub Private Sub List1_Click() Text1 = a(List1.ListIndex + 1) End Sub 步骤4:运行程序,单击列表框中的某个列表项,并单击“计算运费”按钮获得一个结果,然后单击“保存”按钮保存计算结果。 步骤5:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/vCFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在名称为Frame1的框架中,有两个名称分别为op1、op2的单选按钮,标题分别为"单程"、"往返",如图所示。以下叙述中,正确的是( )。
以下关于文件的叙述中,错误的是( )。
已知在4行3列的全局数组score(4,3)中存放了4个学生3门课程的考试成绩(均为整数)。现需要计算每个学生的总分,某人编写程序如下:OptionBase1PrivateSubCommand1_Click() DimsumAsInt
设窗体的名称为Form1,标题为Win,则窗体的MouseDown事件过程的过程名是( )。
假定有以下通用过程:FunctionFun(nAsInteger)AsInteger x=n*n Fun=x-11EndFunction在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:PrivateS
在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text1),并把窗体的KeyPreview属性设置为True,然后编写如下代码:DimSaveAllAsStringPrivateSubForm_Load() Show
以下不属于单选按钮的属性是( )。
下列打开"代码窗口"的操作中错误的是( )。
随机试题
Researchonfriendshiphasestablishedanumberoffacts,someinteresting,someevenuseful.Didyouknowthattheaveragestud
设y1(x),y2(x是二阶常系数线性微分方程yˊˊ+Pyˊ+qy=0的两个线性无关的解,则它的通解为________.
干姜的主治病证有
高血压危急症的处理原则最主要的是()
小儿,阵发性痉挛性咳嗽1个半月,经治疗咳嗽减轻,但痰粘难以咳出,伴低热,烦躁盗汗,舌红苔少,脉细数。治疗应首选方剂
狭义的金融犯罪是指金融业务活动本身的犯罪,主要是指“破坏金融管理秩序罪”及“金融诈骗罪”;广义的金融犯罪还包括金融机构工作人员的职务犯罪,如贪污、受贿、挪用公款罪等。()
初次见面握手时间应控制在3秒钟内,切记不可戴手套。()
国际足联总部位于()。
简述赫尔巴特的教学理论。【2012年-天津师大】【2015年-北师大】【2019年-苏州大学】
TheemploymentdiscriminationlawsuitagainstWal-Mart,whichtheSupremeCourtheardlastweek,isthelargestinAmericanhist
最新回复
(
0
)