首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,在Form1的窗体中有一个文本框、一个计时器和两个命令按钮。程序的功能是在运行时,单击“开始计数”按钮,就开始计数(如图所示),每隔1秒,文本框中的数加1;单击“停止计数”按钮,则停止计数。要求:修改适当
(1)在考生文件夹下有一个工程文件sjt3.vbp,在Form1的窗体中有一个文本框、一个计时器和两个命令按钮。程序的功能是在运行时,单击“开始计数”按钮,就开始计数(如图所示),每隔1秒,文本框中的数加1;单击“停止计数”按钮,则停止计数。要求:修改适当
admin
2020-06-30
65
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp,在Form1的窗体中有一个文本框、一个计时器和两个命令按钮。程序的功能是在运行时,单击“开始计数”按钮,就开始计数(如图所示),每隔1秒,文本框中的数加1;单击“停止计数”按钮,则停止计数。要求:修改适当的控件的属性,并去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后将修改后的文件以原来的文件名存盘。
(2)已知出租车行驶不超过4公里时一律收费10元。超过4公里时分段处理,具体处理方式为:15公里以内每公里加收1.2元,15公里以上每公里收1.8元。
在考生文件夹下有一个工程文件sjt4.vbp。程序的功能是:单击“输入”按钮,将弹出一个输入对话框.接收出租车行驶的里程数;单击“计算”按钮,则可根据输入的里程数计算应付的出租车费,并将计算结果在名称为Text1的文本框内显示。
在窗体文件中已经给出了全部控件(如图所示),但程序不完整,要求去掉程序中的注释符,把程序中的?改为正确的内容。
注意:不得修改已经存在的内容和控件属性,最后将修改后的文件按原文件名存盘。
选项
答案
(1) 【操作步骤】 步骤1:打开本题工程文件,设置计时器Interval属性为1000,Enabled属性设置为FMse。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 Private Sub Cl_Click(Index As Integer) Select Case Index’通过控件下标确定单击哪一个按钮 Case 1 Timer1.Enabled=FalSe Case0’控制下标从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:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/zBHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在考生文件夹下有一个工程文件sjl5.vbp,窗体上有2个标题分别是“读数据”和“查找质数”的命令按钮。请画1个名称为Text1、初始值为空的文本框,该文本框允许显示多行内容,且有垂直滚动条,如图3-36所示。程序功能:(1)考生文件
关于自定义数据类型,下面叙述中不正确的是()。
有三个关系R、S和T如下:由关系R和S通过运算得到关系T,则所使用的运算为()。
假定编写了如下的Sub过程:PublicSubProc(a()AsInteger)StaticiAsIntegerDoa(i)=a(i)+a(i+1)i=i+1LoopWhilei<2EndSub编写如下事件过程:Priv
VB中有3个键盘事件:KeyPress、KeyDown、KeyUp,若光标在Text1文本框中,则每输入一个字母( )。
设窗体上有名称为Option1的单选按钮,且程序中有语句:IfOption1.Value=TrueThen下面语句中与该语句不等价的是( )。
下列叙述中正确的是( )。
将窗体的KeyPreview属性设为True,然后编写如下程序:PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyCode)
下列关于类、对象、属性和方法的叙述中,错误的是()。
下列有关通用对话框控件的说法中,正确的是
随机试题
男性,28岁。心悸气短10年,胸闷胸痛,活动中晕厥发作,下肢水肿。查体:心脏大,心尖部舒张期杂音,胸骨左缘3肋间3/6收缩期杂音,肝大,下肢水肿。心电图:房颤,超声二尖瓣、主动脉瓣增厚,开放受限。该患者胸痛及晕厥的原因是
切除子宫做病理检查,光镜下见子宫壁深肌层内有大量异型的滋养层细胞浸润,并有绒毛结构,应诊断为
下列关于房地产价格影响因素,说法正确的是()。
根据《关于加强规划环境影响评价与建设项目环境影响评价联动工作的意见》,下列规划中,属于可以实施规划环评与规划包含的项目环评联动工作的是()。
某建筑工程公司为甲市增值税一般纳税人,2016年6月到乙市提供建筑服务(建筑用主要材料由建设单位提供),取得含税价款5768万元,该建筑工程公司将承包工程中的电梯安装业务分包给某电梯安装企业,支付含税分包款618万元,取得增值税普通发票。建筑工程公司购进建
将一根长为374厘米的合金铝管截成若干根36厘米和24厘米两种型号的短管.加工损耗忽略不计,则最后剩余部分的管子最少是多少厘米?
按照权利的效力范围不同,可以将权利分为()。
【汉承秦制】
下列程序运行后的输出结果是______。PrivateSubf(k,s)s=1forj=1Toks=s*jNextjEndSubPrivateSubCommand1_Click()
A.noneB.MarchC.nearlyD.ChineseE.lunchG.forestF.supperthelastmealofaday
最新回复
(
0
)