首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sit5.vbp。程序运行时,单击“装入数据”按钮,则从考生目录下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框Listl中,距离放到数组a中;当选中列表框中的一个城市;时,它的距离就显示在Text1中
在考生文件夹下有一个工程文件sit5.vbp。程序运行时,单击“装入数据”按钮,则从考生目录下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框Listl中,距离放到数组a中;当选中列表框中的一个城市;时,它的距离就显示在Text1中
admin
2016-03-22
67
问题
在考生文件夹下有一个工程文件sit5.vbp。程序运行时,单击“装入数据”按钮,则从考生目录下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框Listl中,距离放到数组a中;当选中列表框中的一个城市;时,它的距离就显示在Text1中,如图3.157所示;此时,单击“计算运费”按钮,则计算到该城市的每吨运费(结果取整,不四舍五入),并显示在Text2中。每吨运费的计算方法是:距离×折扣×单价。
其中:单价为0.3。距离<500折扣为1
500≤距离<1000折扣为0.98
1000≤距离<1500折扣为0.95
1500≤距离<2000折扣为0.92
2000≤距离折扣为0.9
单击“保存”按钮,则把距离和每吨运费存到文件out5.txt中。已经给出了所有控件和部分程序,
要求:
①去掉程序中的注释符,把程序中?改为正确的内容;
②编写列表框的C1ick事件过程:
③编写“计算运费”按钮的Click事件过程。
注意:不得修改已经存在的程序;在退出程序之前,必须至少计算一次运费,且必须用“保存”按钮存储计算结果,否则无成绩。最后,程序按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开考生文件夹下的工程文件sit5.vbp。 步骤2:在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 参考代码: n=n+1 Listl.AddTtem ch$ 步骤3:编写“计算运费”按钮和列表框的单击事件过程。 参考代码: Private Sub Commancl2 Click() P=0.3 d=Int(Textl.Text/50 0) 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=1.0.9 End Select Text2=Int(discount*P*Textl) End Sub Private Sub LiStl Click() Textl=a(Listl.ListIndex+1) End Sub 步骤4:运行程序,单击列表框中的某个列表项,并单击“计算运费”按钮获得一个结果,然后单击“保存”按钮保存计算结果。 步骤5:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/MMLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面运行程序后,单击命令按钮,输出的结果是______。PrivateSubCommandl_clck()Dima%(1To4),b%(3To6),i%,s1#,s2#Fori=1To4a(i)=
用LineInput语句从顺序文件读出数据时,每次读出一行数据。所谓一行是指遇到______分隔符,即认为一行的结束。
在工具栏的右侧还有两个栏,分别用来显示窗体的当前位置和大小,其单位为twip,1英寸等于______。左边一栏显示的是窗体左上角的坐标,右边一栏显示的是窗体的长X宽。
在命令按钮上释放鼠标按钮时,所触发的事件称为______。
3下面程序的运行结果是()。OptionBase1PrivateSubCommandl_Crick()Dimx,y(3,3)x=Array(1,2,3,4,5,6,7,8,9)Fori=1To3
决定一个窗体有无控制菜单的属性是()。
下面程序的功能是统计字符串中"i"的个数,请填空。SubCOU()DimnAsIntegera$="BeijingUniversityofTechnology"n=Len(a$)Fori=1Ton
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()Fori=1To4x=4Forj=1To2x=x+6NextNextPrintxEndSub程序运
随机试题
男,38岁,右下胸撞伤6小时,伤后感上腹部疼痛,头晕。查:BP90/70mmHg,P110次/分,面色苍白,右腹部压痛、反跳痛、肌紧张较明显。X线透视示肝阴影扩大、右膈抬高。首先应考虑的诊断是
下列属于信用特征的是
男,30岁。车祸伤及右髋,经检查,确诊为右髋后脱位,其右下肢应出现
A.琥珀酸B.苹果酸C.枸橼酸D.草酰乙酸E.延胡索酸还原性最高的底物是
下列地铁车站施工顺序中属于明挖法的是()。
在圆孔板中留圆孔的主要目的是()。
测评者由于只关注到被测评者某方面的品质特征而作出片面判断,这是()。
如图所示,某几何体的正视图(主视图)是平行四边形,侧视图(左视图)和俯视图都是矩形,则该几何体的体积为()
小学阶段的儿童正处在自我意识发展的()阶段,对自己的行为和行为结果的评价已经有了一定程度的概括与独立。
关于WindowsServer基本特征的描述中,正确的是()。
最新回复
(
0
)