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

文章作者 100test 发表时间 2007:03:10 18:03:49
来源 100Test.Com百考试题网

知识点：程序填空（四）
下面程序用来设置文本框中文字效果，单击选中复选框（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