首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装入数据”按钮,则从考生目录下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1 中,距离放到数组a 中;当选中列表框中的一个城市;时,它的距离就显示在Text
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装入数据”按钮,则从考生目录下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1 中,距离放到数组a 中;当选中列表框中的一个城市;时,它的距离就显示在Text
admin
2018-10-29
89
问题
在考生文件夹下有一个工程文件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的单选按钮,标题分别为"单程"、"往返",如图所示。以下叙述中,正确的是( )。
若已把一个命令按钮的Default属性设置为True,则下面可导致按钮的Click事件过程被调用的操作是( )。
窗体上有三个水平滚动条,名称分别为HSRed、HSGreen和HSBlue,取值范围均是0~255,代表颜色的三种基色。改变滚动框的位置,可以改变三种基色的值,从而改变窗体的背景色,如下图所示。程序代码如下:Dimcolor(3)AsIntege
现有如下一段程序:PrivateSubCommand1_Click() x=UCase(InputBox("输入:")) SelectCasex Case"A"To"C" Print"考核通过!"
窗体上有一个名称为Text1的文本框;一个名称为Timer1的计时器控件,其Interval属性值为5000,Enabled属性值是True。Timer1的事件过程如下:PrivateSubTimer1_Timer() StaticflagA
当文本框中的内容发生改变时所触发的事件是( )。
下列打开"代码窗口"的操作中错误的是( )。
窗体上已有1个名称为Picture1的图片框,要求实现下面2个功能之一:(1)在窗体上移动鼠标时,立即将Picture1显示在鼠标位置(2)在窗体上单击鼠标时,立即将Picture1显示在鼠标位置下面不能实现上述任何功能的事件过程是
随机试题
影响买方讨价还价能力的因素包括()。
患儿男性,胎龄40周出生的新生儿。患儿系G1P1,母亲因胎动减少而至产科就诊,胎心率仅40次/min,于是行急诊剖宫产,出生体重3.7kg。Apgar评分1分钟2分,5分钟5分,出生时从口咽部可吸出胎粪。生后不久,患儿表现出吸气性凹陷及呻吟,并出现全身发绀
恶性肿瘤的异型性中最重要的是
A.阴陵泉B.太冲C.委中D.尺泽E.足三里
呕出大量鲜血且不易控制的常见病因是
证券公司属于非银行金融机构,主要业务包括有价证券的自营买卖、委托买卖、认购业务和销售等四种。()[2010年考题]
常见影响工程进度的风险有()。
县级以上人民政府统计机构在调查统计违法行为或者核查统计数据时,有权采取的措施有()。
系统性风险是指金融机构从事金融活动或交易所在的整个系统(机构系统或市场系统)因外部因素的冲击或内部因素的牵连而发生剧烈波动、危机或瘫痪,使单个金融机构不能幸免,从而遭受经济损失的可能性。根据上述定义,下列说法中不属于系统性风险的是()。
【B1】【B6】
最新回复
(
0
)