有“数字时钟”窗体如图所示。在窗口中有按钮“[开/关]时钟

问题填空题

有“数字时钟”窗体如图所示。

在窗口中有按钮“[开/关]时钟”，单击该按钮可以显示或隐藏时钟。其中按钮的名称为“开关”，显示时间的文本框名称为“时钟”，计时器间隔已设置为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

解析：本题考查的是VBA编程基础。题目要求单击该按钮可以显示或隐藏时钟，在本程序中，变量flag的值有两个：0或1，作用是反应按钮的开关状态。根据子过程Form_Load()可以知道，flag的初始值为1，下面看子过程开关_Click()，根据程序中的If-Else语句可以知道，当变量flag=1时，执行“时钟.Visible=False”语句，将时钟的Visible属性设置为False，并将flag的值改为0；当变量flag=0时，则执行“时钟.Visible=True”语句，将时钟的Visible属性设置为True，并将flag的值改为1，所以本空填“flag=1”。