在窗体上画一个名称为Text1的文本框，然后画3个单选按钮，并用这3个单选按钮建立一个控件数组，名数为Option1。程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，如图所示。请填空。Private Sub Option1_Click（Index As Integer）Select Case 【8】Case 0a="宋体"Case 1a="黑体"Case 2a="楷体_GB2312"End SelectText1 【9】 =aEnd Sub
题目
在窗体上画一个名称为Text1的文本框，然后画3个单选按钮，并用这3个单选按钮建立一个控件数组，名数为Option1。程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，如图所示。请填空。
Private Sub Option1_Click（Index As Integer）
Select Case 【8】
Case 0
a="宋体"
Case 1
a="黑体"
Case 2
a="楷体_GB2312"
End Select
Text1 【9】 =a
End Sub
相似考题
更多“在窗体上画一个名称为Text1的文本框,然后画3个单选按钮,并用这3个单选按钮建立一个控件 ”相关问题
-
第1题：
在窗体上画4个文本框(如图16-8所示)，并用这4个文本框建立一个控件数组，名称为Text1(下标从0开始，自左至右顺序增大)，然后编写如下事件过程： Private Sub Command1_Click() For Each TextBox In Text1 Text1(i)=Text1(i). Index i=i+1 Next End Sub 程序运行后，单击命令按钮，4个文本框中显示的内容分别为______。
A．0 1 2 3
B．1 2 3 4
C．0 1 3 2
D．出错信息
正确答案：A
解析：对象变量TextBox作为For Each-Next语句的控制变量。Index属性返回或设置唯一的标识控件数组中一个控件的编号，其值是从0开始的。最终4个文本框的内容分别为0、1、2和3。 -
第2题：
在窗体上画4个文本框，并用这4个文本框建立一个控件数组，名称为Text1(下标从0开始，自左至右顺序增大)，然后编写下列事件过程：
Private Sub Command1_Click()
For Each TextBox In Text1
Text1(i)=Text1(i).Index
i=i+1
Next
End Sub
程序运行后，单击命令按钮，4个文本框中显示的内容分别为( )。
A．0 1 2 3
B．1 2 3 4
C．0 1 3 2
D．出错信息
正确答案：A
解析：数组控件的Index属性默认从0开始，因此这4个文本框的Index值分别为0、1、2、3。题中通过 For Each循环，依次将每个文本框的Index属性值赋给它自己的Text属性，因此，运行程序后，文本框显示的内容为0、1、2、3。 -
第3题：
在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，如图所示，请填空。
Private Sub Option1_Click（Index As Integer）
Select Case ______
Case 0
a = "宋体"
Case 1
a = "黑体"
Case 2
a = "楷体＿GB2312"
End Select
text1. ______ =a
End Sub
正确答案：index font
-
第4题：
在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，请选择空白处合适的语句( )。 Private Sub Option1_Click(Index AS Integer) Select Case______ Case 0 a="宋体" Case 1 a="黑体"
A．Option Text
B．Index Text
C．Index Font
D．Option Font
正确答案：C
解析： 控件数组中的控件共享同一个事件过程，相互间通过Index属性区别，题中单选按钮数组的单击事件中，有一个Index参数，单击不同的单选按钮，它取不同的值，根据该值进行不同的操作，所以，Select Case语句的表达式应为“Index”；题中要求改变文本框中的字体，所以应修改Text1的Font属性。 -
第5题：
在窗体上画4个文本框，并用这4个文本框建立一个控件数组，名称为Text1 (下标从0开始，自左至右顺序增大)，然后编者按写如下事件过程： Private Sub Command1_Cliek() For Each TextBox In Text1 Text1(i)=Text1(i).Index i=i+1 Next End Sub 程序运行后，单击命令按钮，4个文本框中显示的内容分别为( )。
A．0 1 2 3
B．1 2 3 4
C．0 1 3 2
D．出错信息
正确答案：A
解析：数组控件的Index属性默认从。开始，因此这4个文本框的Index值分别为0、1、2、3。题中通过For Each循环，依次将每个文本框的Index属性值赋给它自己的Text属性，因此，运行程序后，文本框显示的内容为0、1、2、3。