首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,在Form1的窗体中有一个文本框、一个计时器和两个命令按钮。程序的功能是在运行时,单击“开始计数”按钮,就开始计数(如图所示),每隔1秒,文本框中的数加1;单击“停止计数”按钮,则停止计数。要求:修改适当
(1)在考生文件夹下有一个工程文件sjt3.vbp,在Form1的窗体中有一个文本框、一个计时器和两个命令按钮。程序的功能是在运行时,单击“开始计数”按钮,就开始计数(如图所示),每隔1秒,文本框中的数加1;单击“停止计数”按钮,则停止计数。要求:修改适当
admin
2015-10-23
83
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp,在Form1的窗体中有一个文本框、一个计时器和两个命令按钮。程序的功能是在运行时,单击“开始计数”按钮,就开始计数(如图所示),每隔1秒,文本框中的数加1;单击“停止计数”按钮,则停止计数。要求:修改适当的控件的属性,并去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后将修改后的文件以原来的文件名存盘。
(2)已知出租车行驶不超过4公里时一律收费10元。超过4公里时分段处理,具体处理方式为:15公里以内每公里加收1.2元,15公里以上每公里收1.8元。
在考生文件夹下有一个工程文件sjt4.vbp。程序的功能是:单击“输入”按钮,将弹出一个输入对话框,接收出租车行驶的里程数;单击“计算”按钮,则可根据输入的里程数计算应付的出租车费,并将计算结果在名称为Text1的文本框内显示。
在窗体文件中已经给出了全部控件(如图所示),但程序不完整,要求去掉程序中的注释符,把程序中的?改为正确的内容。
注意:不得修改已经存在的内容和控件属性,最后将修改后的文件按原文件名存盘。
选项
答案
步骤1:打开本题工程文件,设置计时器Interva1属性为1000,Enabled属性设置为False。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 Private Sub C1_Click(Index As Integer) Select CaseIndex’通过控件下标确定单击哪一个按钮 Case 1 Timer1.Enabled=False Case0’控制下标从0开始,此处应为0 Timer1.Enabled=True End Select End Sub Private Sub Timer1 Timer() Text1.Text=Text1.Text +1’Text1中的内容加1显示 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2)步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 Dim s As Integer Private Sub Commandl Click() s=Va1(InputBox("输入里程数(单位:公里)"))’S用于存储里程数 End Sub Private Sub Command2 Click() If s>0 Then Select Case s’对s进行判断 Case Is<=4 f=10根据题意s<=4时f=10 Case IS<=15 f=10+(s-r)*1.2’同理 Case Is>15 f=10+11*1.2+(8-15)*1.8’同理 End Select Text1.Text=f’在Textl中显示结果 E1se MsgBox"请单击"榆入"按钮输入里程教!" End If End Sub 步骤3:调试并运行程序。关闭程序后按题目要求存盘。
解析
(1)首先打开本题工程文件,设置计时器Interva1属性为1000,Enabled属性设置为False,实现开始计数的时间间隔为1秒,计时器不可用。运用Select Case语句,通过命令按钮数组的Index属性值确定是“开始计数”或是“停止计数”按钮,通过设置Timer1的Enabled属性,实现对开始计数和停止计数的操作。Timer1_Fimer事件过程用于使文本框中的数值加1。
(2)通过InputBox()甬数,输入出租车行驶的里程数,运用Va1()函数,实现将字符转换为数值,并把数值赋值给变量s。如果s大于0,则进人Select Case语句,对于s值进行判断,当行驶不超过4公里时一律收费10元。超过4公里时分段处理,具体处理方式为15公里以内每公里加收1.2元,15公里以上每公里收1.8元,然后把得出的结果显示到文本框中。如果s的值小于等于0或者其他字符,通过MsgBox()函数弹出对话框“请单击‘输入’按钮输入里程数!”。
转载请注明原文地址:https://kaotiyun.com/show/jXLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
新建一个工程,内有两个窗体,窗体Form1上有一个命令按钮Command1,单击该按钮,Form1窗体消失,显示Form2窗体,程序如下,请填空。PrivateSubCommand1_Click()Form1.HideForm2.【】
在窗体上画一个命令按钮,然后编写如下事件过程。PrivateSubCommand1_Click()DimmAsInteger,nAsInteger,pAsIntegerm=3:n=5:p=0CallY(m,n,
设有下面的循环。i=1Doi=i+3PrintiLoopUntili>程序运行后要执行3次循环体,则条件中i的最小值为
在计算机软件系统的体系结构中,数据库管理系统位于用户和【】之间。
单击命令按钮时,下列程序的执行结果是PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsIntegera=3∶b=4∶c=5PrintSecProc(c,b,
在运行阶段,要在文本框Textl获得焦点时选中文本框中所有内容,对应的事件过程是
设在菜单编辑器中定义了一个菜单项,名为menu1。为了在运行时隐藏该菜单项,应使用的语句是
测试的目的是暴露错误,评价程序的可靠性;而【】的目的是发现错误的位置并改正错误。
有下面一个程序段,从文本框中输人数据,如果该数据满足条件“除以4余1,除以5余2”,则输出,否则,将焦点定位在文本框中,并清除文本框的内容。PrivateSubCommandl_Click()x=Val(Text1.Text)
VisualBasic根据计算机访问文件的方式将文件分成3类,其中不包括()。
随机试题
下列关于类模板的表述中,错误的是
某商场在国庆期间组织家电促销活动,后有关部门发现其销售的部分电器中有侵犯他人商标权的产品,但该商场能证明其产品的合法来源。下列说法正确的是【】
旋覆花入煎剂应
肝脏超声检查的叙述,错误的是
自然铜的炮制方法应选用
小麦粉中哪种脂肪成分含量较高?()
下列关于会计机构的设置的表述中,正确的有()。
下列各项中,不受企业股票分割影响的有()。
在软件开发中,需求分析阶段产生的主要文档是( )。
A、Itisn’treliable.B、Itneedschecking.C、Itisdefinitelytrustworthy.D、Itwon’thurttotry.D女士最后说要告诉John,看他是否愿意试试,故D正确。A是
最新回复
(
0
)