（11 ）有 “ 數(shù)字時鐘 ” 窗體如下：在窗口中有按鈕 “ [ 開 ／ 關(guān) 〕 時鐘 ” ， 單擊該按鈕可以顯示或

（11 ）有 “ 數(shù)字時鐘 ” 窗體如下：

在窗口中有按鈕 “ [ 開 / 關(guān) 〕 時鐘 ” ， 單擊該按鈕可以顯示或隱藏時鐘 。 其中按鈕的名稱為 “ 開關(guān) ” ， 顯示時間的文本框名稱為 “ 時鐘 ” ，計時器間隔己設(shè)置為 500 。請在空白處填入適當(dāng)?shù)恼Z句，使程序可以完成指定的功能。

Dim flag As integer

Private Sub Form. Load （）

flag=1

End Sub

Private Sub Form. Timer （） ’“ 計時器觸發(fā) ” 事件過程

時鐘 =Time ， 在 “ 時鐘 ” 文本框中顯示當(dāng)前時間

End Sub

Private Sub 開關(guān) Click （）， “ 開關(guān) ” 按鈕的單擊事件過程

If 【 11 】 Then

時鐘 .Visible=False

flag=0

Else

時鐘 .Visible=True

flag=1

End If

End Sub