阅读以下应用说明及Visual Basic部分程序代码,将应填入(n)处的字句写在对应栏内。 【说明】 该应用程序是用来修改文本框中的字体属性,其运行窗口如图4所示。 窗口由1个标签(Labell)、1个文本框(txtPassage)和4个选择

admin2009-02-15  58

问题 阅读以下应用说明及Visual Basic部分程序代码,将应填入(n)处的字句写在对应栏内。
【说明】
   该应用程序是用来修改文本框中的字体属性,其运行窗口如图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”。
转载请注明原文地址:https://jikaoti.com/ti/orW7FFFM
0

最新回复(0)