首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击”装入数据”按钮,则从考生目录下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框Listl中,距离放到数组a中;当选中列表框中的一个城市;时,它的距离就显示在Textl中
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击”装入数据”按钮,则从考生目录下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框Listl中,距离放到数组a中;当选中列表框中的一个城市;时,它的距离就显示在Textl中
admin
2019-05-14
49
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
窗体上命令按钮的事件过程如下:PrivateSubCommandlClick()A=“34”:B=“26”:C=“98”PrintB+C+AEndSub运行程序后,单击命令按钮,输出结果是(
以下能正确定义数据类型Systemlnfo的代码是()。
数据流图用于抽象描述一个软件的逻辑模型,数据流图由一些特定的图符构成。下列图符名标识的图符不属于数据流图合法图符的是()。
若将变量TestDate声明为Date类型,则下列为变量TestDate赋值的语句中正确的是()。
下面程序计算并输出的是()。PrivateSubCommandlClick()Num=10Sum=0DoSum=Sum+Num*Num*NumNum=Num.1LoopU
下列操作中不能向工程中添加窗体的是()。
为计算1+2+22+23+24+…+210的值,并把结果显示在文本框Text1中,若编写如下事件过程:PrivateSubCommandl—Click()Dima%,b%,i%s=1a=2Fori=
窗体上有一个名称为Text1的文本框和一个名称为Command1的命令按钮,要求程序运行时,单击命令按钮(如图1所示),就可以把文本框中的内容写到文件Out.txt中,每次写入的内容附加到文件原有内容之后。以下能正确实现上述功能的程序是()。
随机试题
“存在就是被感知”。()
肾小球疾病合并高血压的降压治疗首选
下列哪些行为构成侵犯公民个人信息罪(不考虑情节)?(2017/2/59)
无论比色式还是比长式检知管,每支检知管只能使用一次。()
在通信网中,网状结构通常用于()的场合。
有一投资项目,原始投资为270万元,全部投资均于建设起点一次投入,建设期为零,运营期为5年,每年可获得现金净流量69万元,则(P/A,IRR,5)为()。
一种文化决不能靠__________其他文化而得到真正的发展。有没有容纳外来成分的气魄,能不能__________和消化新的分子而又并不机械照搬、盲目崇洋,正是衡量一种文化有没有生命力的标准。 填入划横线部分最恰当的一项是()。
Alackofcoordinationandprofessionalismindroneuseafterdisasters—sometimesbyforeigntouristsorcompanieswiththebest
大半辈子______钻研光纤技术、被世人称为“光纤之父”、______2009年诺贝尔物理学奖的科学家高锟,对于过去的成果,几乎忘得______。对于他来说,许多事情都可能成为过眼烟云,但唯有和妻子半个世纪______相濡以沫的感情,无法从他的记忆中抹掉。
Oneofthemostfamousandmosttalked-aboutactressestocomeoutofHollywoodhasdied.Film【B1】______ElizabethTaylordiedW
最新回复
(
0
)