有“数字时钟”窗体如下: 在窗口中有按钮“[开/关]时钟”,单击该按钮可以显示或隐藏时钟。其中按钮的名称为“开关”, 显示时间的文本框名称为“时钟”,计时器间隔已设置为500。 请在空白处填入适当的语句,使程序可以完成指定的功能。

admin2013-03-30  31

问题 有“数字时钟”窗体如下:
   
   在窗口中有按钮“[开/关]时钟”,单击该按钮可以显示或隐藏时钟。其中按钮的名称为“开关”,
   显示时间的文本框名称为“时钟”,计时器间隔已设置为500。
   请在空白处填入适当的语句,使程序可以完成指定的功能。
   Dim flag As Integer
   Private Sub Form_Load()
        flag=1
   End Sub
   Private Sub Timer1_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的值有两个: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”。
转载请注明原文地址:https://jikaoti.com/ti/V5V0FFFM
0

最新回复(0)