试题四（共 15 分）阅读以下应用说明以及用Visual Basic 编写的程序代码

题目：

试题四（共 15 分）阅读以下应用说明以及用Visual Basic 编写的程序代码，将应填入（n） 处的字句写在答题纸的对应栏内。[应用4.1]设应用程序的运行窗口内有一个文字标签（Label）以及一个框架，其中有三个复选框（chk1，chk2，chk3），各个复选框单击事件过程的程序代码如下：Private Sub chk1_Click( )Label.fontBold = chk1.ValueEnd SubPrivate Sub chk2_Click( )Label.fontItalic = chk2.ValueEnd SubPrivate Sub chk3_Click( )Label.fontUnderLine = chk3.ValueEnd Sub三个复选框chk1、chk2、chk3 的功能分别是： (1) 。[应用4.2]设应用程序的运行窗口内有两个文本框Txt1 和Txt2，其初始内容为空。在Txt1 文本框中输入一个数值，当光标离开此文本框（例如进入文本框Txt2）时，执行的程序代码如下：Private Sub Txt1_LostFocus()dim x as doublex = Val(Txt1.Text)If x<0 Or x>100 ThenTxt1.Text = ""MsgBox$ ("请重新输入！")Txt1.SetFocusElseTxt2.Text = Txt1.TextEnd IfEnd Sub该程序代码的功能是：若在文本框Txt1 中输入的数值小于0 或大于100，当光标离开此文本框时， (2) ；否则，将其值复制到文本框Txt2 中。[应用4.3]在下面的应用中，当窗口内发生Click 事件时，窗口内将显示如图4-1 所示的杨辉三从下角形（每一行都是二项式展开的系数）。请完善程序代码。

图4-1Private Sub Form_Click()Dim i, j, c As Integer,StrTemp As StringDim a(9) As Integera(0) = 0: a(1) = 1: StrTemp = Str(a(1)) + Space(3)CurrentX = (ScaleWidth - TextWidth(StrTemp)) / 2Print StrTempFor j = 2 To 9a(j) = 1For c = j-1 To 2 Step -1a(c) = (3)Next(4) = ""For c = 1 To jStrTemp = StrTemp & Str( (5) ) & Space(5 - Len(Str(a(c))))NextCurrentX = (ScaleWidth - TextWidth(StrTemp)) / 2Print StrTempNextEnd Sub