首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击”装入数据”按钮,则从考生目录下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框Listl中,距离放到数组a中;当选中列表框中的一个城市;时,它的距离就显示在Textl中
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击”装入数据”按钮,则从考生目录下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框Listl中,距离放到数组a中;当选中列表框中的一个城市;时,它的距离就显示在Textl中
admin
2019-05-14
35
问题
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击”装入数据”按钮,则从考生目录下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框Listl中,距离放到数组a中;当选中列表框中的一个城市;时,它的距离就显示在Textl中,如图2-175所示;此时,单击”计算运费”按钮,则计算到该城市的每吨运费(结果取整,不四舍五入),并显示在Text2中。每吨运费的计算方法是:距离×折扣×单价。
其中:单价为0.3。距离<500折扣为1
500≤距离<1000折扣为0.98
1000≤距离<1500折扣为0.95
l 500≤距离<2000折扣为0.92
2000≤距离折扣为0.9
单击”保存”按钮,则把距离和每吨运费存到文件out5.txt中。已经给出了所有控件和部分程序,要求:
①去掉程序中的注释符,把程序中?改为正确的内容;
②编写列表框的Click事件过程;
③编写”计算运费”按钮的Click事件过程。
注意:不得修改已经存在的程序:在退出程序之前,必须至少计算一次运费,且必须用”保存”按钮存储计算结果,否则无成绩。最后,程序按原文件名存盘。
选项
答案
步骤1:打开考生文件夹下的本题工程文件sjt5.vbp。 步骤2:在代码编辑窗口,去掉程序中的注释符”’“,将问号”?”改为正确的内容。 参考代码: n=n+ 1 LiStl.AddItem ch$ 步骤3:编写”计算运费”按钮和列表框的单击事件过程。 参考代码: Private Sub Command2_Click( ) P=0.3 d=Int(Textl.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*Textl) End Sub Private Sub Listl_Click( ) Textl=a(Listl.ListIndex+1) End Sub 步骤4:运行程序,单击列表框中的某个列表项,并单击”计算运费”按钮获得一个结果,然后单击”保存”按钮保存计算结果。 步骤5:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/XUUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下能正确定义数据类型Systemlnfo的代码是()。
不能正确表示条件“两个整型变量A和B之一为0,但不能同时为0”的布尔表达式是()。
若将变量TestDate声明为Date类型,则下列为变量TestDate赋值的语句中正确的是()。
在利用菜单编辑器设计菜单时,为了把组合键设置为“打开(0)”菜单项的访问键,可以将该菜单项的标题设置为()。
关于MDI窗体下列说法正确的是()。
在窗体上用复制、粘贴的方法建立了一个命令按钮数组,数组名为ComTestl。设窗体Forml标题为“MyForml”,双击控件数组中的第3个按钮,打开代码编辑器,编写如下代码:PrivaeSubComTestl——Click(Index
在运行阶段,要在文本框Text1获得焦点时选中文本框中所有内容,如图1所示,对应的事件过程是()。
在文本框中,要设置显示的文本颜色,应该设置()属性。
窗体上有名称为Commandl的命令按钮和名称为Text1的文本框()。PrivateSubCommandlClick()Text1.Text=“程序设计”Text1.SetFocusEndSub
在考生目录下有一个工程文件sit5.vbp。窗体左边的图片框名称为Picturel,框中还有六个小图片框,它们是一个数组,名称为Pic,在窗体右边从上到下有三个显示不同物品的图片框,名称分别为Picture2、Picture3、Picture4,还有一个文
随机试题
肾上腺素能神经
试列表说明乳腺癌国际TNM临床分期。
衔接:胎头双顶径进入
A.灵敏度B.特异度C.阳性预测值D.似然比E.患病率通过串联试验可以提高筛检的
A.发热、剧烈头痛、皮肤瘀斑B.休克、惊厥、呼吸衰竭C.发热、出血、肾损害D.眼红、腿痛、淋巴结肿大E.相对缓脉流行性脑脊髓膜炎可见
患者,女性,30岁。尿频、尿痛、腰部胀痛3天。T37.4℃。此时最有助于鉴别。肾盂肾炎与膀胱炎的化验检查结果是
A公司为国有独资公司,其董事会作出的下列决议中,符合公司法律制度的是()。
与消费者市场相比,组织市场的特点是()
苗族的三大方言指的是()。
没有chara,b;,若要通过a&b运算屏蔽掉a中的其他位,只保留第2位和笫8位(右起为第1位),则b的二进制是【】。
最新回复
(
0
)