高校等考试题天天练二级VB]10月27日

知识点：程序填空（四）
下面程序用来设置文本框中文字效果，单击选中复选框（check1）时，文本框(Text1)中文字变为粗体，再次单击时，取消粗体效果。请填空完善它。
Dim s As   (7)  
Private Sub Check1_Click()
  s = Not s
  If   (8)   Then
    Text1.FontBold = True
  Else
    Text1.FontBold = False
  End If
End Sub
Private Sub Form_Load()
Text1.Text = "计算机"
Check1.  (9)   = 0  ‘初始复选框未被选中
s = False
End Sub