设计一个计时程序。该程序用户界面如图所示,由一个文本框(Text1)、两个按钮:命令按钮1(Command1)、命令按钮2(Command2)组成。程序运行后,单击开始按钮,则开始计时,文本框中显示秒数,单击停止按钮,则计时停止。单击窗口则退出。请在【

admin2010-03-30  35

问题 设计一个计时程序。该程序用户界面如图所示,由一个文本框(Text1)、两个按钮:命令按钮1(Command1)、命令按钮2(Command2)组成。程序运行后,单击开始按钮,则开始计时,文本框中显示秒数,单击停止按钮,则计时停止。单击窗口则退出。请在【  】、【  】和【  】处填入适当的内容,将程序补充完整。

   Option Explicit
   Dim i
   Private Sub Command1_Click()
       i=0
       Timer1.Interval=1000
        TimerEnabled=True
   End Sub
       Private Sub Command2_Click()
       TimerEnabled=False
   End Sub
   Private Sub Form_Click()
       【  】Me
   End Sub
   Private Sub Form_Load()
       TimerEnabled=False
       TextText=0
   End Sub
   Private Sub Timer1_【  】()
       i=i+1
       TextText=【  】
   End Sub

选项

答案 Unload,Timer,i

解析 计时器控件的常用事件是Timer事件,是计时器在间隔了一个Interval时间后所触发的事件。题中[12]处应填事件为Tim cr。i是一个控制时间的变量。文本框中显示的是计时器的计数秒数,故应把控制时间变量的i赋值给文本框的Text属性。[13]处应填变量i。题中要求单击窗口则退出程序,可以用卸载语句Unload Me来实现此功能。
转载请注明原文地址:https://kaotiyun.com/show/aK1p777K
0

最新回复(0)