首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,在Form1的窗体中有一个文本框、一个计时器和两个命令按钮。程序的功能是在运行时,单击“开始计数”按钮,就开始计数(如图所示),每隔1秒,文本框中的数加1;单击“停止计数”按钮,则停止计数。要求:修改适当
(1)在考生文件夹下有一个工程文件sjt3.vbp,在Form1的窗体中有一个文本框、一个计时器和两个命令按钮。程序的功能是在运行时,单击“开始计数”按钮,就开始计数(如图所示),每隔1秒,文本框中的数加1;单击“停止计数”按钮,则停止计数。要求:修改适当
admin
2018-06-29
58
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp,在Form1的窗体中有一个文本框、一个计时器和两个命令按钮。程序的功能是在运行时,单击“开始计数”按钮,就开始计数(如图所示),每隔1秒,文本框中的数加1;单击“停止计数”按钮,则停止计数。要求:修改适当的控件的属性,并去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后将修改后的文件以原来的文件名存盘。
(2)已知出租车行驶不超过4公里时一律收费10元。超过4公里时分段处理,具体处理方式为:15公里以内每公里加收1.2元,15公里以上每公里收1.8元。
在考生文件夹下有一个工程文件sjt4.vbp。程序的功能是:单击“输入”按钮,将弹出一个输入对话框,接收出租车行驶的里程数;单击“计算”按钮,则可根据输入的里程数计算应付的出租车费,并将计算结果在名称为Text1的文本框内显示。
在窗体文件中已经给出了全部控件(如图所示),但程序不完整,要求去掉程序中的注释符,把程序中的?改为正确的内容。
注意:不得修改已经存在的内容和控件属性,最后将修改后的文件按原文件名存盘。
选项
答案
(1)步骤l:打开本题工程文件,设置计时器Interval属性为1000,Enabled属性设置为False。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 参考答案 Private Sub C1_Click(Index As Integer) Select Case Index’通过控件下标确定单击哪一个按钮 Case 1 Timer1.Enabled=FalSe Case 0’控制下标从0开始,此处应为0 Timerl.Enabled=True End Select End Sub Private Sub Timerl_Timer() Text1.Text=Text1.Text +1’Text1中的内容加1显示 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2)步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 参考答案 Dim s As Integer Private Sub Command1_Click() S=Val(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-4)*1.2’同理 Case Is>15 f=10+11*1.2+(s一15)*1.8’同理 End Select Text1.Text=f’在Text1中显示结果 Else MsgBox "请单击"输入"按钮输入里程数!" End If End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
(1)首先打开本题工程文件,设置计时器Interval属性为1000,Enabled属性设置为False,实现开始计数的时间间隔为1秒,计时器不可用。运用Select Case语句,通过命令按钮数组的Index属性值确定是“开始计数”或是“停止计数”按钮,通过设置Timerl的Enabled属性,实现对开始计数和停止计数的操作。Timerl_Timer事件过程用于使文本框中的数值加1。
(2)通过InputBox()函数,输入出租车行驶的里程数,运用Val()函数,实现将字符转换为数值,并把数值赋值给变量s。如果s大于0,则进入Select Case语句,对于s值进行判断,当行驶不超过4公里时一律收费10元。超过4公里时分段处理,具体处理方式为15公里以内每公里加收1.2元,15公里以上每公里收1.8元,然后把得出的结果显示到文本框中。如果s的值小于等于0或者其他字符,通过MsgBox()函数弹出对话框“请单击‘输入’按钮输入里程数!”。
转载请注明原文地址:https://kaotiyun.com/show/3dGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
(1)在考生文件夹中有一个工程文件sjt3.vbp。运行程序时,先向文本框Textl中输入一个不超过10的正整数,然后选择“N的阶乘”或“(N+2)的阶乘”单选钮,即可进行计算,计算结果在文本框Text2中显示,如图所示。在给出的窗体文件中已经添加了全部控
在窗体上画一个名称为Commandl的命令按钮,并编写如下程序:FunctionFun(X)y=0IfX
(1)在考生文件夹下有一个工程文件sjt3.vbp,含有两个窗体,名称分别为。ForTnl、Form2。其中,Forml上有两个控件(图像框和计时器)和一个菜单项“操作”,含有三个子菜单(如图l所示)。Form2上有一个,名称为Commandl、标题为“
(1)在名称为F0rml的窗体上添加一个标签(名称为Labell,标题为空白,BorderStyle属性为1,Visible属性为False)、一个文本框(名称为Textl,Text属性初始内容为空)和一个命令按钮(名称为Commandl,标题为“显示”)
命令按钮Commandl的事件过程如下:PrivateSubCommandl_Click()Dimarr(5,5)AsIntegerDimiAsInteger,jAsInteger
下列说法中,不属于数据模型所描述的内容的是()。
(1)在名称为Forml的窗体上添加一个名称为Labell、标题为“设置速度”的标签,通过属性窗口把标签的大小设置为自动调整。添加一个名称为HScrolll的水平滚动条,通过属性窗口设置适当属性使滚动条的最小值为l,最大值为80,单击滚动条两端的箭头时,滚
在考生文件夹下有一个工程文件sjt5.vbp,界面如图所示,其功能如下:①单击“读数据”按钮,则把考生文件夹下文件in5.dat中的12组整数(其中每组含有10个数,共计120个整数)读到数组a中;②单击“计算”按钮,则对每组数求平均
随机试题
It’snogreatsurprisethatBillGateshasdecidedtowalkawayfromhisday-to-dayinvolvementwithMicrosoft,andusehisful
患者因半年来右下后牙咬物不适就诊。检查见右下第一磨牙咬合面深龋洞,冷测一过性疼痛。去净腐质后近髓,未及明显露髓孔。该患牙的首诊治疗为
七届人大一次会议通过的宪法修正案规定:“任何组织或者个人不得()或者以其他形式非法转让土地。土地的使用权可以依照法律的规定转让。”
建设工程质量保修期按《建设工程质量管理条例》的规定确定。在质量保修期内的监理工作期限,应由监理单位与建设单位根据工程实际情况,在委托监理合同中约定,一般以()为宜。
关于工程量计算的注意事项说法错误的是()。
应收账款信用政策中的信用条件包括()。
江西省国家历史文化名城为()。
(),是指行为人实施旅游违法行为尚未构成犯罪,由旅游或其他行政管理部门追究,而且必须接受的强制性义务。
近期土地价格的下跌已经使许多在房地产上大量投资的机构受到了损害。去年,在这次价格下跌尚未开始的时候,一所地方大学为其资产增加了200英亩的土地。当然,这所大学并未购买这块土地,而是作为馈赠接受下来的。所以价格下降并没有影响到该大学。下面哪项,如果正确,对以
Whyisthewoman’sfathergoingtoretire?
最新回复
(
0
)