首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
已知出租车行驶不超过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
56
问题
已知出租车行驶不超过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://kaotiyun.com/show/WNUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有如下事件过程:PrivateSubCommand1_Click()Dimaa=Array(12,3,8,5,10,3,5,9,2,4)Fork=1To9Printfun(a(k-1),a(k));"";NextkEndSub
现有语句:y=IIf(x>0,xMod3,0)设x=10,则y的值是
窗体上有1个名称为Text1的文本框,1个名称为Label1的标签。程序运行后,如果在文本框中输入信息,则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程为
在窗体上画1名为Command1的命令按钮和1名Text1的文本框,再编写如下程序:DimssAsStringPrivateSubCommand1_Click()PrivateSubText1_KeyPress(KeyAscii_
以下关于键盘事件的叙述中,错误的是
在窗体上画一个名称为Command1的命令按钮,编写如下事件过程:PrivateSubCommand1_Click()n=0Fori=0To10X=2*i-1IfXMod3=0Thenn=n+1NextiPrintnEnd
在利用菜单编辑器设计菜单时,为了把组合键“Alt+X”设置为“退出(X)”菜单项的访问键,可以将该菜单项的标题设置为
下面对对象概念描述正确的是
关于文件操作,以下叙述中正确的是
已知:x=-6y=39则表达式"y\x*Sgn(x)"的值为
随机试题
经济法
恶性肿瘤的异型性中最重要的是
37岁经产妇,平时月经周期规律,经量中等,经期3~4日,普查发现子宫前壁有2cmx2cm肌壁间肌瘤。子宫肌瘤最常见的变性是
下列关于活动期牙周炎的病理变化,说法错误的是
不寐实证其病位多在
A.反胃B.噎膈C.噫气D.呃逆E.梅核气自觉咽中如物梗塞,吐之不出,吞之不下,但不妨碍进食的病证是()
混合料的配合比试验属于()。
我国首次提出会计电算化一词是()年。
华明企业为增值税一般纳税企业,适用的增值税税率为17%,所得税率为25%,采用资产负债表债务法核算所得税,2010年初该企业递延所得税资产年初数为零。该企业2010年度发生如下经济业务:(1)本年度内发出产品10000件,其中对外销售9000件,其余为在
长江上游的A港与下游S港相距270千米,一轮船以恒定速度从A港到S港需6.75小时,返回需9小时。如果一只漂流瓶从A港顺水漂流到S港,则需要的时间是()。
最新回复
(
0
)