【说明】 该应用程序是用来修改文本框中的字体属性，其运行窗口如图4所示。
窗口由1个标签(Labell)、1个文本框(txtPassage)和4个选择框(chkFont，chkltalic，chkSize，chkColor)组成。程序运行后，用户在文本框内输入一段文字，然后按需要单击各选择框，用以改变文本的字体、字型、颜色及大小。 文本框的Mulitine属性已经设为True。当不选择“黑体”时，文字应是“宋体”。当不选择“大小16”时，字号为9。当不选择“紫色”时，字色为黑色。当不选择“斜体”时，文字采用正常字型。 【程序代码】 Private Sub chkFont Click( ) If (1) Then txtPassage. FontName ="黑体" Else txtPassage. FontName ="宋体" End If End Sub Private Sub (2) () If chkColor. Value = 1 Then txtPassage. ForeColor = QBColor(13) Else txtPassage. ForeColor = QBColor (0) End If End Sub Private Sub chkltalic_Click() If chkltalic. Value = 1 Then txtPassage. Fontl talic = (3) Else txtPassage. Fontltalic= (4) End If End Sub Private Sub chkSize Click( ) If (5) Then txtPassage. Font. Size = 16 Else txtPassage. Font. Size = 9 End If End Sub
参考答案：
解析：(1)chkFont．Value或chkFont．Value=1 (2)chkColor_Click (3)True (4)False (5)chkSize，Value或chkSize．Value=1 (1)空需要填写修改字体的条件，当不选择“黑体”时，文字应是“宋体”，即chkFont．Value；1时为黑体，因此(1)空应填入“chkFont．Value=1”或“chkFont．Value”。 (2)空要填写修改颜色的过程的名称，这应当是选择框chkColor的click事件。因此(2)空应填入“chkColor_Click”。 当不选择“斜体”时，文字采用正常字型。因此(3)、(4)空分别填入“True”、“False”。 当不选择“大小16”时，字号为9。因此(5)空处应填写“chkSize． Value=1或“chkSize．Value”。