问答题

试题四
阅读以下应用说明以及用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 所示的杨辉三从下角形（每一行都是二项式展开的系数）。请完善程序代码。


图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