（26）在窗体上画一个名称为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

题目

（26）在窗体上画一个名称为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 SubA.Option Text B.Index Text C.Index Fonr D.Option Fonr

相似考题

1.在窗体上画一个名称为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

2.在窗体上画一个名称为Text1的文本框，然后画3个单选按钮，并用这3个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，请选择空白处合适的语句( )。 Private Sub Optionl_Click(Index As Integer) Select Case Case 0 a="宋体" Case 1 a="黑体" Case 2 a="楷体 GB2312" End Select Text =a End SubA．Option TextB．Index TextC．Index FontD．Option Font

3.在窗体上画一个名称为Text1的文本框，然后画3个单选按钮，并用这3个单选按钮建立一个名为Option1的控件数组，程序运行后，如果单击某个单选按钮，则文本框中的字体根据所选择的单选按钮切换，如图1所示。请选择适合空白处的语句（ ）。A. Option TextB. Index TextC. Index FontD. Option Font

4.在窗体上画四个文本框，并用这四个文本框建立一个控件数组，名称为Text1(下标从0开始，依次增大)，然后编写如下事件过程： Private Sub Command1_Click() For Each TextBox In TeXt1 Text1(i)=Text1(i).Index i=i+1 Next End Sub 程序运行后，单击命令按钮，四个文本框中显示的内容分别为 ______。A．0 1 2 3B．1 2 3 4C．0 1 3 2D．出错信息

参考答案和解析
正确答案：C
【解析】控件数组中的控件共享同一个事件过程，相互间通过Index属性区别，题中单选按钮数组的单击事件中，有一个Index参数，单击不同的单选按钮，它取不同的值，根据该值进行不同的操作，所以，Select Case语句的表达式应为“Index”；题中要求改变文本框中的字体，所以应修改Text1的Font属性。
更多“(26)在窗体上画一个名称为Text1的文本框,然后画三个单选按钮,并用这三个单选按钮建立一个控件数 ”相关问题

  • 第1题：

    在窗体上画四个文本框(如下图所示)，并用这四个文本框建立一个控件数组，名称为 Text1(下标从0开始，自左至右顺序增大)，然后编写如下事件过程 Private Sub Commandl_Click() For Each TextBoxinTextl Text1(i)=Text1(i).Index i=i+1 Next End Sub 程序运行后，单击命令按钮，四个文本框中显示的内容分别为( )。

    A．0 1 2 3

    B．1 2 3 4

    C．0 1 3 2

    D．出错信息


    正确答案：A

  • 第2题：

    在窗体上画二个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

    程序运行后，单击命令按钮，在文本框中显示的值是

    A．2

    B．3

    C．4

    D．5


    正确答案：B
    题只能计算当i>1所循环的次数。注意i在循环体内被强行加3，到For循环时．还要再加步长1，这相当于因此，n=3。选择B。

  • 第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题：

    在窗体上画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。

  • 第5题：

    在窗体上画一个名称为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属性。

相关内容