阅读以下应用说明以及用Visual Basic语言编写的程序代码，将应填入（n)处的字句写在答题纸的对应栏

阅读以下应用说明以及用Visual Basic语言编写的程序代码，将应填入(n)处的字句写在答题纸的对应栏内。

【应用4.1】

设应用程序的运行窗口内有一个文字标签(Label)以及一个框架，其中有三个复选框(chk1，chk2，chk3)，各个复选框单击事件过程的程序代码如下：

Private Sub chkl_Click()

Label.fontBold=chkl.Value

End Sub

Private Sub chk2_Click()

Label.fontltalic=chk2.Value

End Sub

Private Sub chk3_Click()

Label.fontUnderLine=chk3.Value

End Sub

三个复选框chkl、chk2、chk3的功能分别是：(1)。

【应用4.2】

设应用程序的运行窗口内有两个文本框Txt1和Txt2，其初始内容为空。在Txt1文本框中输入一个数值，当光标离开此文本框(例如进入文本框Txt2)时，执行的程序代码如下：

Private Sub Txt1_LostFocus()

dim x aS double

x=Val(Txtl．Text)

工f x＜0 Or x＞100 Then

Txtl.Text =""

MsgBox$("请重新输入!")

Txtl.SetFocus

Else

Txt2.Text=Txt1.Text

End If

End Sub

该程序代码的功能是：若在文本框Txtl中输入的数值小于0或大于100，当光标离开此文本框时，(2)；否则，将其值复制到文本框Txt2中。

【应用4.3】

在下面的应用中，当窗口内发生C1ick事件时，窗口内将显示如图2-4所示的杨辉三角(每一行都是二项式展开的系数)。请完善程序代码。

Private Sub Form. Click()

Dim i，j，c As Integer，StrTemp AS String

Dim a(9)As Integer

a(0)=0=a(1)=l：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