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

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

admin2009-02-15  47
问题 阅读以下应用说明及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://kaotiyun.com/show/0bjZ777K
本试题收录于： 程序员下午应用技术考试题库软考初级分类
0

程序员下午应用技术考试

软考初级

相关试题推荐
随机试题
最新回复(0)