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

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

admin2020-04-08  204
问题 考生文件夹下有工程文件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() TimerlEnabled=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全国计算机二级

相关试题推荐
随机试题
最新回复(0)