项目八 第27练 计时器《Visual Basic 程序设计》（电工版第六版）一课一练

编写说明：考虑到中职学生普遍基础知识相对薄弱的情况，我们依据支架式教学理念，精心编制了《Visual Basic程序设计（第6版）》(电子工业出版社)一课一练。专辑里的每一份练习，都与课堂所授知识点紧密相关，题目围绕课堂所学知识点呈现。目的在于激发学生的学习兴趣，培养他们的学习自觉性，帮助学生扎实掌握课程的基本概念与基本方法，为他们后续的进一步提升奠定坚实基础。 本卷是《Visual Basic程序设计（第6版）》(电子工业出版社)一课一练的项目八的第27练，内容涵盖项目八Visual Basic常用内部控件相关内容。 《Visual Basic程序设计(第6版)》(电子工业出版社)第27练 项目八 Visual Basic常用内部控件 任务四 计时器 1、 单项选择题（本题共5小题） 1、计时器控件的核心事件是（ ） A．Click B．Timer C．Load D．Change 【答案】B 【解析】计时器无 Click、Change 事件，Load 是窗体事件；Timer事件是其唯一核心事件，每隔Interval时间触发一次。 2、计时器控件在运行时的显示特性是（ ） A．始终显示在窗体上，可调整大小 B．仅在设计时可见，运行时自动隐藏 C．是否显示由Visible属性控制 D．显示位置由Left/Top属性决定 【答案】B 【解析】计时器是 “不可视控件”：设计时显示在窗体下方的控件栏，运行时无论Visible设为何值，都不会显示在窗体上。 3、若将 Timer1 的Interval设为 1000，Enabled设为 True，则 Timer 事件触发的频率是（ ） A．每秒 1 次 B．每秒 1000 次 C．每毫秒 1 次 D．每 1000 秒 1 次 【答案】 A 【解析】Interval单位是毫秒1 秒 = 1000 毫秒。 4、要让计时器 Timer1 停止工作，不再触发 Timer 事件，正确的设置是（ ） A．Timer1.Visible = False B．Timer1.Enabled = False C．Timer1.Interval = 0 D．Timer1.Caption = "" 【答案】 B 【解析】Enabled=False直接禁用计时器，停止触发 Timer 事件。 5、若计时器 Timer1 的Interval属性设为 250，且Enabled设为 True，则 10 秒内该计时器的 Timer 事件会触发的次数约为（ ） A．4 次 B．40 次 C．25 次 D．250 次 【答案】 B 【解析】计算 10 秒总毫秒数：10×1000=10000 毫秒；计算触发次数：10000 ÷ 250 = 40 次。 2、 填空题（本题共5小题） 1、要让计时器 Timer1 每隔 2 秒触发一次 Timer 事件，需设置Timer1.Interval = ______。 【答案】 2000 【解析】2 秒 = 2×1000=2000 毫秒，因此Interval需设为 2000，才能实现每隔 2 秒触发一次 Timer 事件。 2、计时器控件默认处于禁用状态，需将其______属性设为 True 才能开始工作。 【答案】 Enabled 【解析】Enabled=True是计时器工作的前提，即便设置了Interval，只要Enabled=False，计时器就不会触发事件。 3、若要在计时器触发事件时执行特定代码，需将代码写在______事件过程中。 【答案】Timer 【解析】计时器的所有业务逻辑都需写在Timer事件过程中，该事件是计时器功能实现的核心。 4、若要让计时器 Timer1 每秒触发2次 Timer 事件，需设置其Interval属性值为______。 【答案】500 【解析】每秒触发 2 次 → 每次触发的间隔 = 1000 毫秒 ÷ 2 = 500 毫秒。 5、计时器控件的Interval属性取值为______时，无论Enabled是否为 True，都不会触发 Timer 事件。 【答案】 0 【解析】Interval=0是计时器的 “停止触发” 特殊值，即便Enabled=True，也不会触发Timer事件。 三、程序填空题 1、下列VB程序代码实现 “从 10 开始倒计时，每秒减 1，到 0 时停止计时器并提示” 的功能。 Dim num As Integer Private Sub Form_Load() num = 10 Timer1.Interval = __（1）____ Timer1.__（2）____ = True End Sub Private Sub Timer1_Timer() num = num - 1 Label1.Caption = num If num = 0 Then Timer1.Enabled =___（3）___ MsgBox "倒计时结束！" End If End Sub 【答案】 （1）1000 （2）Enabled （3）False 【解析】1 秒 = 1000 毫秒，Interval=1000实现每秒触发一次 Timer 事件，这是倒计时 “每秒减 1” 的核心设置。Enabled=True是启用计时器的标准写法，只有启用后，Timer 事件才会按 Interval 设置的频率触发。Enabled=False可立即停止计时器。 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 $ 编写说明：考虑到中职学生普遍基础知识相对薄弱的情况，我们依据支架式教学理念，精心编制了《Visual Basic程序设计（第6版）》(电子工业出版社)一课一练。专辑里的每一份练习，都与课堂所授知识点紧密相关，题目围绕课堂所学知识点呈现。目的在于激发学生的学习兴趣，培养他们的学习自觉性，帮助学生扎实掌握课程的基本概念与基本方法，为他们后续的进一步提升奠定坚实基础。 本卷是《Visual Basic程序设计（第6版）》(电子工业出版社)一课一练的项目八的第27练，内容涵盖项目八Visual Basic常用内部控件相关内容。 《Visual Basic程序设计(第6版)》(电子工业出版社)第27练 项目八 Visual Basic常用内部控件 任务四 计时器 1、 单项选择题（本题共5小题） 1、计时器控件的核心事件是（ ） A．Click B．Timer C．Load D．Change 2、计时器控件在运行时的显示特性是（ ） A．始终显示在窗体上，可调整大小 B．仅在设计时可见，运行时自动隐藏 C．是否显示由Visible属性控制 D．显示位置由Left/Top属性决定 3、若将 Timer1 的Interval设为 1000，Enabled设为 True，则 Timer 事件触发的频率是（ ） A．每秒 1 次 B．每秒 1000 次 C．每毫秒 1 次 D．每 1000 秒 1 次 4、要让计时器 Timer1 停止工作，不再触发 Timer 事件，正确的设置是（ ） A．Timer1.Visible = False B．Timer1.Enabled = False C．Timer1.Interval = 0 D．Timer1.Caption = "" 5、若计时器 Timer1 的Interval属性设为 250，且Enabled设为 True，则 10 秒内该计时器的 Timer 事件会触发的次数约为（ ） A．4 次 B．40 次 C．25 次 D．250 次 2、 填空题（本题共5小题） 1、要让计时器 Timer1 每隔 2 秒触发一次 Timer 事件，需设置Timer1.Interval = ______。 2、计时器控件默认处于禁用状态，需将其______属性设为 True 才能开始工作。 3、若要在计时器触发事件时执行特定代码，需将代码写在______事件过程中。 4、若要让计时器 Timer1 每秒触发2次 Timer 事件，需设置其Interval属性值为______。 5、计时器控件的Interval属性取值为______时，无论Enabled是否为 True，都不会触发 Timer 事件。 三、程序填空题 1、下列VB程序代码实现 “从 10 开始倒计时，每秒减 1，到 0 时停止计时器并提示” 的功能。 Dim num As Integer Private Sub Form_Load() num = 10 Timer1.Interval = __（1）____ Timer1.__（2）____ = True End Sub Private Sub Timer1_Timer() num = num - 1 Label1.Caption = num If num = 0 Then Timer1.Enabled =___（3）___ MsgBox "倒计时结束！" End If End Sub 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 $