首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,在Form1的窗体中有一个文本框、一个计时器和两个命令按钮。程序的功能是在运行时,单击“开始计数”按钮,就开始计数(如图所示),每隔1秒,文本框中的数加1;单击“停止计数”按钮,则停止计数。要求:修改适当
(1)在考生文件夹下有一个工程文件sjt3.vbp,在Form1的窗体中有一个文本框、一个计时器和两个命令按钮。程序的功能是在运行时,单击“开始计数”按钮,就开始计数(如图所示),每隔1秒,文本框中的数加1;单击“停止计数”按钮,则停止计数。要求:修改适当
admin
2019-06-24
43
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp,在Form1的窗体中有一个文本框、一个计时器和两个命令按钮。程序的功能是在运行时,单击“开始计数”按钮,就开始计数(如图所示),每隔1秒,文本框中的数加1;单击“停止计数”按钮,则停止计数。要求:修改适当的控件的属性,并去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后将修改后的文件以原来的文件名存盘。
(2)已知出租车行驶不超过4公里时一律收费10元。超过4公里时分段处理,具体处理方式为:15公里以内每公里加收1.2元,15公里以上每公里收1.8元。
在考生文件夹下有一个工程文件sjt4.vbp。程序的功能是:单击“输入”按钮,将弹出一个输入对话框,接收出租车行驶的里程数;单击“计算”按钮,则可根据输入的里程数计算应付的出租车费,并将计算结果在名称为Text1的文本框内显示。
在窗体文件中已经给出了全部控件(如图所示),但程序不完整,要求去掉程序中的注释符,把程序中的?改为正确的内容。
注意:不得修改已经存在的内容和控件属性,最后将修改后的文件按原文件名存盘。
选项
答案
(I)【操作步骤】 步骤1:打开本题工程文件,设置计时器Interval属性为1000,Enabled属性设置为False。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 参考答案(画线部分是需考生填入的内容) Private Sub C1_Click(Index As Integer) Select Case
Index
’通过控件下标确定单击哪一个按钮 Case 1 Timer1.Enabled=False Case
0
’控制下标从0开始,此处应为0 Timer1.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)首先打开本题工程文件,设置计时器IntervM属性为1000,Enabled属性设置为False,实现开始计数的时间间隔为1秒,计时器不可用。运用Select Case语句,通过命令按钮数组的Index属性值确定是“开始计数”或是“停止计数”按钮,通过设置Timer1的Enabled属性,实现对开始计数和停止计数的操作。Timer1_Timer事件过程用于使文本框中的数值加1。
(2)通过InputBox()函数,输入出租车行驶的里程数,运用Val()函数,实现将字符转换为数值,并把数值赋值给变量S。如果S大于0,则进入SelectCase语句,对于S值进行判断,当行驶不超过4公里时一律收费10元。超过4公里时分段处理,具体处理方式为15公里以内每公里加收1.2元,15公里以上每公里收1.8元,然后把得出的结果显示到文本框中。如果S的值小于等于0或者其他字符,通过MsgBox()函数弹出对话框“请单击‘输入’按钮输入里程数!”。
转载请注明原文地址:https://kaotiyun.com/show/NqUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在利用菜单编辑器设计菜单时,为了把组合键<Alt+O>设置为“打开(O)”菜单项的访问键,可以将该菜单项的标题设置为()。
窗体上有文本框Text1和一个菜单,菜单标题、名称见表,结构如图所示。要求程序执行时单击“保存”菜单项,则把其标题显示在Text1文本框中,下面可实现此功能的事件过程是()。
(1)考生文件夹下的工程文件sjt3.vbp中有一个初始内容为空、且带有垂直滚动条的文本框,其名称为Text1:两个标题分别为“读数据”和“查找”的命令按钮,其名称分别为Cmd1、Cmd2。请画一个标题为“查找结果”的标签Label1,再画一个名称为Tex
(1)在考生文件夹下有一个工程文件sjt3.vbp,在程序运行时,单击“输入整数”按钮,可以从键盘输入一个整数,并在窗体上显示此整数的所有不同因子和因子个数。如图3—158(a)是输入53后的结果,如图3—158(b)是输入100的结果。已经给出了全部控件
某人设计了如下程序用于计算并输出7!(7的阶乘)PrivateSubCommand1_Click()t=0Fork=7To2Step-1t=t*kNextPritetEnd
下列数组定义中错误的是
设a=2,b=3,c=4,d=5,表达式Nota
设窗体文件中有下面的事件过程:PrivateSubCommand1_Click()Dims:a%=100:PrintaEndSub其中变量a和s的数据类型分别是
下面定义窗体级变量a的语句中错误的是
考生文件夹下有工程文件sjt5.vbp和数据文件in5.txt。in5.txt中有多条记录,每条记录占一行,含4个数据项,数据项的含义依次是:姓名、数学成绩、语文成绩、英语成绩。窗体上按钮“读取数据”的功能是把in5.txt中的所有记录读到数组a中(每个数
随机试题
为消除焊后可能产生的内应力,对结构件采取的热处理措施是________。
患者,女,33岁。反复尿频、尿急、尿痛2周,无伴腰痛、发热,给予氧氟沙星治疗5天,症状无改善。查体:血压122/72mmHg,双肺呼吸音清,心率72次/分,心律正常,未闻心脏杂音,腹软,无压痛反跳痛,肾区无叩击痛、双下肢无水肿。关于该患者,下列描述不正确的
对角径小于11.5cm坐骨棘间径小于10cm
A.脾B.小肠C.大肠D.膀胱E.胃主受盛化物的是
中国人民银行在某一时期采取以下货币政策措施:买入商业银行持有的国债300亿元;购回400亿元商业银行持有的到期央行票据。假定此时商业银行的法定存款准备金率为12%,超额准备金率为3%,现金漏损率为5%。根据以上资料,回答下列问题:关于此次货币政策操作
小芳同学做了一个近15页的PowerPoint“班级秀”电子报刊,后来王老师需要她在每一页上都加上班级的标志,最好的方法是()。
-344,17,-2,5,(),65
在TCP/IP参考模型中,传输层的主要作用是在互联网络的源主机与目的主机对等实体之间建立用于会话的
Theyoungmothertriedherbesttokeephertemper,butintheendherpatienceran______.
Inthecenterofabigcitythereareusuallydozensoflargeofficebuildingsthathousebigbanks,corporationheadquarters,a
最新回复
(
0
)