问题
填空题
有“数字时钟”窗体如下:
在窗口中有“[开/关]时钟”按钮,单击该按钮可以显示或隐藏时钟。其中按钮的名称为“开关”,显示时间的文本框名称为“时钟”,计时器间隔已设置为500。请在空白处填入适当的语句,使程序可以完成指定的功能。
Dim flag As Integer
Private Sub Form_Load()
flag=1
End Sub
Private Sub Form_Timer()"计时器触发"事件过程
时钟=Time 在"时钟"文本框中显示当前时间
End Sub
Private Sub开关_Click()"开关"按钮的单击事件过程
If______Then
时钟.Visible=False
flag=0
Else
时钟.Visible=True
flag=1
End If
End Sub
答案
参考答案:flag=1
解析: 本题当单击“开关”按钮时显示或隐藏时钟,在窗体加裁时flag斌值为1,单击开关触发“开关Click([]”函数,此时判断flag标志,当flag为关时,隐藏时钟,flag标志转换为开;当flag为开时,显示时钟,flag标志换为开。