在窗体上画一个名称为Text1的文本框,然后画三个单选按钮,并用这三个单选按钮建立一个控件数组,名称为Option1。程序运行后,如果单击某个单选按钮,则文本框中的字体将根据所选择的单选按钮切换,如图所示。请填空。 Private Sub Op

admin2009-02-13  21

问题 在窗体上画一个名称为Text1的文本框,然后画三个单选按钮,并用这三个单选按钮建立一个控件数组,名称为Option1。程序运行后,如果单击某个单选按钮,则文本框中的字体将根据所选择的单选按钮切换,如图所示。请填空。

     Private Sub Option1_Click(1ndex As Integer)
         Select Case【  】
           Case0
              a=“宋体”
           Case 1
              a=“黑体”
           Case 2
              a=“楷体GB2312”
       End Select
       Text1.【  】=a
    End Sub

选项

答案 Index , Font或FontName或Font.Name

解析 用于控件数组拥有相同的名称,所以必须用下标来访问控件数组中的不同元素。这个属性用Index来表示。本题建立了单选按钮的控件数组,要求选择不同的单选按钮,则文本框中的字体将根据所选的单选按钮切换,所以在Select分支控制语句的Case后填:Index,表示不同的控件。第9个空应把字体值赋给Text1的FontName属性,该属性确定文本框中文字的显示格式。Name属性为Font属性的子属性,故答案中的写法是等价写法。
转载请注明原文地址:https://kaotiyun.com/show/bB1p777K
0

最新回复(0)