首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有工程文件sjt3.vbp。窗体的设计界面、各控件初始属性设置及有关代码见窗体文件。该程序的功能是模拟秒表计时,程序运行时,单击“开始”按钮,秒表开始工作,每隔0.1秒显示一次时间,标签Labell中显示整秒数,标签Label2中显示小数部分(
考生文件夹下有工程文件sjt3.vbp。窗体的设计界面、各控件初始属性设置及有关代码见窗体文件。该程序的功能是模拟秒表计时,程序运行时,单击“开始”按钮,秒表开始工作,每隔0.1秒显示一次时间,标签Labell中显示整秒数,标签Label2中显示小数部分(
admin
2020-04-08
224
问题
考生文件夹下有工程文件sjt3.vbp。窗体的设计界面、各控件初始属性设置及有关代码见窗体文件。该程序的功能是模拟秒表计时,程序运行时,单击“开始”按钮,秒表开始工作,每隔0.1秒显示一次时间,标签Labell中显示整秒数,标签Label2中显示小数部分(可精确到0.1秒);单击“结束”按钮,秒表停止工作,计时结束。下图所示的是某次秒表计时结果为7.3秒的示意图。
程序已经给出,但不完整,请将其中的注释符去掉,把?改为正确的内容,以实现上述程序功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,最后程序按原文件名存盘。
选项
答案
【操作步骤】 步骤l:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释“′”,将问号改为正确的内容。 参考答案(划线部分是需要填入的内容) Dim m As Integer Dim n As Integer Private Sub Commandl_Click() m=0 n=0 Labell.Caption="0." Label2.Caption="0" Timerl.Interval=
100
Timerl.Enabled=Thie End Suh Prtvate hub Command2_Click() Timerl
Enabled=False
End Sub P14vate SubTimer_Timer()
m=m+1
If m=10 Then n=n+l Labell.Caption=Trim(
Str(n)
)"′" Label2.Caption="0" m=0 Else Label2.Caption=Trim(
Str(m)
) End If End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
计时器控件的Interval属性用于设置计时器事件之间所间隔的毫秒数;计时器控件的Enabled属性用于设置计时器是否可用;Trim()函数用于去掉字符串左、右两边的空白字符。
转载请注明原文地址:https://kaotiyun.com/show/aNTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
阅读程序:OptionBase1PrivateSubForm_Click()DimArr(3,3)AsIntegerFori=1To3Forj=1To3
设有如下事件过程:PrivateSubForm_Click()x=0Whilex10x=x+1x=x*xWendPrintxEndSub运行程
将文本框的()属性设置为True时,文本框可以输入或显示多行文本,且会自动换行。
如果在框架中画了2个复选框,且框架的Enabled属性被设置为False,2个复选框的Enabled属性被设置为True,则下面叙述中正确的是( )。
下面关于文件叙述中错误的是( )。
已知文本框的ScrollBars属性设置为3,却看不到任何效果,原因是()。
支持子程序调用的数据结构是( )。
窗体上有一个名称为Command1的命令按钮,其单击事件过程如下:PrivateSubCommand1_Click()DimsAsDoubles=0:i=1DoWhilei<6s
随机试题
人民军队区别于旧军队的根本标志是()。
A、肾盂肾炎B、膀胱炎C、两者均有D、两者均无肋腰点有压痛
男性,48岁,有间歇性头痛、头晕、血压偏高病史,昨日出现剧烈头痛、心悸、多汗、呕吐、视物模糊、抽搐、面色苍白,血压220/122mmHg,心率120次/分。合理诊断是
诊断扁平颅底主要测量
中国证监会在受理金融期货结算业务资格申请之日起3天内,作出批准或者不批准的决定。( )
证券公司将其所管理的客户资产投资于一家公司发行的证券,按证券面值计算,不得超过该()的10%。
关于“一物二卖”法律效力的表述,错误的是()。
函数的递减区间为____________.
DuringMcDonald’searlyyearsFrenchfriesweremadefromscratcheveryday.RussetBur-bankpotatoeswere【C1】______,cutintos
Lookatthenotesbelow.Youwillhearawomandiscussingproductionproblemswithherboss.Mee
最新回复
(
0
)