考生文件夹下有工程文件sjt3.vbp。窗体的设计界面、各控件初始属性设置及有关代码见窗体文件。该程序的功能是模拟秒表计时,程序运行时,单击“开始”按钮,秒表开始工作,每隔0.1秒显示一次时间,标签Label1中显示整秒数,标签Label2中显示小数部分(

admin2020-08-10  29

问题 考生文件夹下有工程文件sjt3.vbp。窗体的设计界面、各控件初始属性设置及有关代码见窗体文件。该程序的功能是模拟秒表计时,程序运行时,单击“开始”按钮,秒表开始工作,每隔0.1秒显示一次时间,标签Label1中显示整秒数,标签Label2中显示小数部分(可精确到0.1秒);单击“结束”按钮,秒表停止工作,计时结束。下图所示的是某次秒表计时结果为7.3秒的示意图。

    程序已经给出,但不完整,请将其中的注释符去掉,把?改为正确的内容,以实现上述程序功能。
    注意:考生不得修改窗体文件中已经存在的控件和程序,最后程序按原文件名存盘。

选项

答案计时器控件的Interval属性用于设置计时器事件之间所间隔的毫秒数;计时器控件的Enabled属性用于设置计时器是否可用;Trim( )函数用于去掉字符串左、右两边的空白字符。 题目要求每隔0.1秒显示一次时间,则第1个?处应为Interval=100;要求单击“结束”按钮,秒表停止工作,则第2个?处应为Enabled=False;计时器每执行一次Timer事件,label2中显示数字加1,则第3个?处应为m=m+1;Label2中显示数字每满10,Label1中显示数字加1,更改Label1的Caption属性和Label2的Caption属性,没有满10,更改Label2的Caption属性,第4个?处应为Str(n),第5个?处应为Str(m)。 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释“’”,将问号改为正确的内容。 Dim m As Integer Dim n As Integer Private Sub Command1_Click( ) m=0 n=0 Label1.Caption=“0.” Labe2.Caption=“0” Timer1.Interval=100 Timer1.Enabled=True End Sub Private Sub Command2_Click( ) Timer1.Enabled=False End Sub Private Sub Timer1_Timer( ) m=m+1 If m=10 Then n=n+1 Label1.Caption=Trim(Str(n))+“.” Label2.Caption=“0” m=0 Else Label2.Caption=Trim(Str(m)) End If End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。

解析
转载请注明原文地址:https://kaotiyun.com/show/HvHp777K
0

最新回复(0)