首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,在Form1的窗体中有一个文本框、一个计时器和两个命令按钮。程序的功能是在运行时,单击“开始计数”按钮,就开始计数(如图所示),每隔1秒,文本框中的数加1;单击“停止计数”按钮,则停止计数。要求:修改适当
(1)在考生文件夹下有一个工程文件sjt3.vbp,在Form1的窗体中有一个文本框、一个计时器和两个命令按钮。程序的功能是在运行时,单击“开始计数”按钮,就开始计数(如图所示),每隔1秒,文本框中的数加1;单击“停止计数”按钮,则停止计数。要求:修改适当
admin
2019-06-24
22
问题
(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://jikaoti.com/ti/E4N0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
(1)在考生文件夹下有一个工程文件sjt3.vbp,其功能是:1)单击“读数据”按钮,则把考生文件夹下in3.dat文件中的100个按升序排列的整数读入到数组a中,同时显示在Text1文本框中;2)单击“查找”按钮,则提示用户输入查找的数,并利用二分法
在考生文件夹下有一个工程文件sjt5.vbp,在窗体上给出了所有控件和不完整的程序,请去掉程序中的注释符,把程序中的“?”改为正确的内容。本程序的功能是:如果单击“取数”按钮,则把考生目录下的in5.txt文件中的15个姓名读到数组a中,并在窗体上显示这些
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1、标题为“鼠标光标形状”的窗体上画一个名称为Text1的文本框。请通过属性窗口设置适当属性,使得程序运行时,鼠标在文本框中时,鼠标光标为箭头(Arrow
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有2个标题分别是“读数据”和“查找质数”的命令按钮。请画1个名称为Text1、初始值为空的文本框,该文本框允许显示多行内容,且有垂直滚动条,如图3—36所示。程序功能:(1)考生文件夹下in5.dat
设程序中有如下数组定义和过程调用语句:Dima(10)AsIntegerCallp(a)如下过程定义中,正确的是
下面可以产生20~30(含20和30)的随机整数的表达式是
以下关于键盘事件的叙述中,错误的是
以下关系表达式中,其值为True的是
(1)在考生文件夹下有一个工程文件sjt3.vbp,其功能是:①单击“读数据”按钮,则把考生文件夹下in3.dat文件中的100个正整数读入数组a中;②单击“统计”按钮,则找出这100个正整数中的所有完全平方数(一个整数若是另外一个整
软件按功能可以分为:应用软件、系统软件和支撑软件(或工具软件)。下面属于应用软件的是
随机试题
男,26岁,自幼发现心脏杂音,未治疗。3天前剧烈运动时突发心前区疼痛,2天来心悸、气短,查体胸骨左缘可闻及广泛连续性杂音,P2亢进应采取的治疗措施是
工程咨询牵涉面广,需要考虑各种因素,协调和处理方方面面的关系,这说明工程咨询服务具有()的特点。
( )是轴承中的关键零件。
Excel2003单元格中输入数据的方法不正确的是()。
根据《会计档案管理办法》的规定,各级主管部门销毁会计档案时,应当由( )派人监销。
材料:一个爸爸很关注儿子的学习情况和班级里学习环境情况。于是他问儿子:“你们班上自习课的时候有多少人?”儿子说:“老师在的时候有45人。”于是爸爸又问:“老师不在的时候有多少人?”儿子回答:“一个人也没有。”请你针对上面的情况提出一些对班级老
教师给学生起侮辱学生的绰号,可给予教师()。
Myunclehasn’tbeenabletoquitsmoking,butatleasthehas______.
从目前我国中小学生素质发展状况看,()是现行教育内容中严重短缺的、亟待充实和强化的。
To:ParvatiMalikFrom:ChandrikaRaoDate:October2Subject:GPDSeminarDearParvati,Ienjoyedtalkingwithyouatthe
最新回复
(
0
)