首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
已知出租车行驶不超过4千米时一律收费10元。超过4千米时分段处理,具体处理方式为:15千米以内每千米加收1.2元,15千米以上每千米收1.8元。在考生文件夹下有一个工程文件sjt4.vbp。程序的功能是:单击“输入”按钮,将弹出一个输入对话框,接收出租车行
已知出租车行驶不超过4千米时一律收费10元。超过4千米时分段处理,具体处理方式为:15千米以内每千米加收1.2元,15千米以上每千米收1.8元。在考生文件夹下有一个工程文件sjt4.vbp。程序的功能是:单击“输入”按钮,将弹出一个输入对话框,接收出租车行
admin
2019-06-11
39
问题
已知出租车行驶不超过4千米时一律收费10元。超过4千米时分段处理,具体处理方式为:15千米以内每千米加收1.2元,15千米以上每千米收1.8元。在考生文件夹下有一个工程文件sjt4.vbp。程序的功能是:单击“输入”按钮,将弹出一个输入对话框,接收出租车行驶的里程数;单击“计算”按钮,则可根据输入的里程数计算应付的出租车费,并将计算结果显示在名称为Text1的文本框内。
在窗体文件中已经给出了全部控件(如图3-166所示),但程序不完整,要求去掉程序中的注释符,把程序中的?改为正确的内容。
注意:不得修改已经存在的内容和控件属性,最后将修改后的文件按原文件名存盘。
选项
答案
审题分析 本题源程序通过使用Select Case语句对输入的数据(已赋值给变量s)进行检验,若不超过4,则按f=10计算;若在15以内,则按f=10+(s-4)*1.2计算;若在15以上,则按f=10+(15-4)*1.2+(s-15)*1.8计算。 操作步骤 步骤1:打开考生文件夹中的本题工程文件sjt4.vbp,在代码编辑窗口,去掉程序中的注释符“′”,将问号“?”改为正确的内容。 参考代码: Select Case s f=10 f=10+(s-4)*1.2 Case Else f=10+(15-4)* 1.2+(s-15)*1.8 步骤2:按要求将文件保存至考生文件夹中。 考点链接 多分支结构。
解析
转载请注明原文地址:https://jikaoti.com/ti/IEN0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
求1!+2!+……+10!的程序如下:PrivateFunctions(xAsInteger)f=1Fori=1Toxf=f*iNexts=fEndFunctionPrivateSubCommand1_Click()Di
有下面程序代码:PrivateSubCommand1_Click()i=1DoWhilei<5j=1Doj=i+1Print"*";LoopUntili+j>10Printi=i+2LoopEndSub程序运行时输出字
编写如下程序:PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=1:y=1Doy=x*yIfy>10ThenExitDoElsex=x+3EndIfLoopU
设有窗体的FormMouseMove事件过程如下:PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)If(ButtonAnd3
以下可以判断是否在文本框(名称为Text1)内按下了回车键的事件过程是
数据字典(DD)所定义的对象都包含于
下面对对象概念描述正确的是
假定有如下语句:answerS=MsgBox("String1",,"String2","String3",2)执行该语句后,将显示一个信息框,单击其中的“确定”按钮,则answerS的值为
已知:x=-6y=39则表达式"y\x*Sgn(x)"的值为
随机试题
排土场选址时应避免最大可能成为()的重大危险源。
A.1年B.2年C.3年D.5年E.10年根据《中华人民共和国药品管理法》规定,医疗机构制剂许可证的有效期为
(共用备选答案)A.地西泮B.普萘洛尔C.利福平D.苯乙肼E.维拉帕米可加重心脏负性肌力和心力衰竭的药品是
图中相互之间可以列总流伯努利方程的断面是:
()的发生是不确定的,这种不确定性是由内外部环境的复杂性和人们对于未来变化的预测能力有限而导致的。
运用“头脑风暴法”进行集体讨论时,应遵循的原则有()。
义务教育的(),是义务教育最本质的特征。
甲对某危害结果没有阻止其发生的义务,如果该危害结果发生,甲的不作为行为()。
下列有关运算符重载的叙述中,正确的是()。
Idon’tdoubt______thestockmarketwillrecoverfromtheeconomiccrisis.
最新回复
(
0
)