首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装入数据”按钮,则从考生目录下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1 中,距离放到数组a 中;当选中列表框中的一个城市;时,它的距离就显示在Text
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装入数据”按钮,则从考生目录下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1 中,距离放到数组a 中;当选中列表框中的一个城市;时,它的距离就显示在Text
admin
2018-10-29
30
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
若窗体上有一个名为Command1的命令按钮,并有下面的程序:PrivateSubCommand1_Click() Dimarr(5)AsInteger Fork=1To5 arr(k)=k Nextk prog
如果在窗体模块中所有程序代码的前面有语句:Dimx,则x是( )。
某人编写了下面的程序:PrivateSubCommand1_Click() DimaAsInteger,bAsInteger a=InputBox("请输入整数") b=InputBox("请输入整数") pro
有三个关系R、S和T如下:由关系R和S通过运算得到关系T,则所使用的运算为( )。
假定有以下通用过程:FunctionFun(nAsInteger)AsInteger x=n*n Fun=x-11EndFunction在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:PrivateS
设有如下通用过程:PublicFunctionf(xAsInteger) DimyAsInteger x=20 y=2 f=x*yEndFunction在窗体上画一个命令按钮,其名称为Command1,然后编写如下
在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text1),并把窗体的KeyPreview属性设置为True,然后编写如下代码:DimSaveAllAsStringPrivateSubForm_Load() Show
设有如下通用过程:PublicFunctionFun(xStrAsString)AsString DimtStrAsString,strLAsInteger tStr="" strL=Len(xStr) i=strL
设有窗体的Form_MouseMove事件过程如下:PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle) If(Button
命令按钮、单选按钮、复选框都可以通过Picture属性在控件上显示图片,但需事先设置某一属性,该属性为
随机试题
试验室中常用的铬酸洗液是指()。
目前我国货物出口中,比重最大的是()
后尿道损伤最多见于()。
下列关于膝关节结核的描述,正确的是()
红蜡片用法不包括A.加热软化后用作蜡基托B.加热熔化后粘固人工牙或者卡环C.用于雕刻人工牙D.制作支托蜡型的熔模E.复制蜡模型
左心衰竭最早出现的症状是
A.病因预防,消除或减少可能致癌物侵入人体,降低发病率B.避免工业污染物污染居民生活区C.早期发现、早期诊断、早期治疗,提高生存率,降低病死率D.为能早期发现癌症,强调每6个月作一次全面体检E.诊治后的康复,提高生存质量,减轻痛苦,延长生命癌症
下列工具中属于灌溉工具的是()。
一般资料:求助者,女性,14岁,初中二年级学生。案例介绍:求助者是住校生,三个多月前睡觉时梦见一个黑衣女鬼缠着自己,当时被吓醒,非常害怕,一直哭到天亮。又听到有些同学也说梦见过鬼,说鬼魂会附体。求助者更加害怕于是走读,回家睡觉。尽管家里有妈妈陪着
重大科技创造中很少有能像大型水坝这样让人痴迷的。可能正是因为人类长期遭受旱涝灾害的摆布才使得让水听人的调遣如此令人痴迷。但让人着迷有时也就使人盲目。有几个巨型大坝项目就有弊大于利的危险。建造大坝的教训是:大的未必总是好的。建一座巨大的、功能强的水坝已成为那
最新回复
(
0
)