【简答题】

试题四（共 15 分）
　　阅读以下应用说明以及用 Visual Basic 编写的程序代码，将应填入 （n） 处的字句写在答题纸的对应栏内。
[应用 4.1]
　　设应用程序的运行窗口内有一个文字标签（Label）以及一个框架，其中有三个复选框（chk1，chk2，chk3），各个复选框单击事件过程的程序代码如下：
　　Private Sub chk1_Click( )
　　　Label.fontBold = chk1.Value
　　End Sub
　　Private Sub chk2_Click( )
　　　Label.fontItalic = chk2.Value
　　End Sub
　　Private Sub chk3_Click( )
　　　Label.fontUnderLine = chk3.Value
　　End Sub
　　三个复选框 chk1、chk2、chk3 的功能分别是： (1) 。
[应用 4.2]
　　设应用程序的运行窗口内有两个文本框 Txt1 和 Txt2，其初始内容为空。在 Txt1 文本框中输入一个数值，当光标离开此文本框（例如进入文本框 Txt2）时，执行的程序代码如下：
　　Private Sub Txt1_LostFocus()
　　　dim x as double
　　　x = Val(Txt1.Text)
　　　If x<0 Or x>100 Then
　　　　Txt1.Text = ""
　　　　MsgBox$ ("请重新输入！")
　　　　Txt1.SetFocus
　　　Else
　　　　Txt2.Text = Txt1.Text
　　　End If
　　End Sub
　　该程序代码的功能是：若在文本框 Txt1 中输入的数值小于 0 或大于 100，当光标离 开此文本框时， (2) ；否则，将其值复制到文本框 Txt2 中。
[应用 4.3]
　　在下面的应用中，当窗口内发生 Click 事件时，窗口内将显示如图 4-1 所示的杨辉三角形（每一行都是二项式展开的系数）。请完善程序代码 
     
　　Private Sub Form_Click()
　　　Dim i, j, c As Integer,StrTemp As String
　　　Dim a(9) As Integer
　　　a(0) = 0: a(1) = 1
　　　StrTemp = Str(a(1)) + Space(3) CurrentX = (ScaleWidth - TextWidth(StrTemp)) / 2
　　　Print StrTemp
　　　For j = 2 To 9
　　　　a(j) = 1
　　　　For c = j-1 To 2 Step -1
　　　　　a(c) = 　(3)　
　　　　Next
　　　　 (4) = ""
　　　　For c = 1 To j
　　　　　StrTemp = StrTemp & Str( (5) ) & Space(5 - Len(Str(a(c))))
　　　　Next
　　　　CurrentX = (ScaleWidth - TextWidth(StrTemp)) / 2
　　　　Print StrTemp
　　　Next
　　End Sub