题目内容（请给出正确答案）

[主观题]

（28）在窗体上画4个文本框，并用这4个文本框建立一个控件组，名称为Text1（下标从0开始，自左至右顺序

（28）在窗体上画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.出错信息

提问人：网友policecdc 发布时间：2022-01-06

参考答案

查看官方参考答案

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装简答题APP，拍照搜题省时又省心！

更多“（28）在窗体上画4个文本框，并用这4个文本框建立一个控件组…”相关的问题

第1题

在窗体上画4个文本框，并用这4个文本框建立一个控件数组，名称为Text1（下标从0开始，自左至右顺序增

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

A．0 1 2 3

B．1 2 34

C．0 1 3 2

D．出错信息

点击查看答案

第2题

在窗体上画4个文本框，并用这4个文本框建立一个控件数组，名称为Text1（下标从0开始，自左至右顺序增

在窗体上画4个文本框，并用这4个文本框建立一个控件数组，名称为Text1(下标从0开始，自左至右顺序增大)，然后编写下列事件过程：

Private Sub Command1_Click()

For Each TextBox In Text1

Text1(i)=Text1(i).Index

i=i+1

End Sub

程序运行后，单击命令按钮，4个文本框中显示的内容分别为()。

A．0 1 2 3

B．1 2 3 4

C．0 1 3 2

D．出错信息

点击查看答案

第3题

在窗体上画4个文本框，并用这4个文本框建立一个控件数组，名称为Text1 （下标从0开始，自左至右顺序

在窗体上画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．出错信息

点击查看答案

第4题

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

点击查看答案

第5题

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

A．Option Text

B．Index Text

C．Index Font

D．Option Font

点击查看答案

第6题

在窗体上画一个名称为Text1的文本框，然后画3个单选按钮，并用这3个单选按钮建立一个控件数组，名称

为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

A．Option Text

B．Index Text

C．Index Font

D．Option Font

点击查看答案

第7题

在窗体上画四个文本框，并用这四个文本框建立一个控件数组，名称为Text1（下标从0开始，依次增大)，然

在窗体上画四个文本框，并用这四个文本框建立一个控件数组，名称为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 3

B．1 2 3 4

C．0 1 3 2

D．出错信息

点击查看答案

第8题

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

点击查看答案

第9题

（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

点击查看答案

第10题

（24）在窗体上画1个名为Text1的文本框和1个名为Labe11的标签，再画4个名为Op1的单选按钮控件数组，

其Index属性按季度顺序为0~3，如图1所示。在文件Sales.txt中按月份顺序存有某年12个月的销售额，并把相应的文字显示在标签上。如图2所示是单击“第二季度”单选按钮所产生的结果。请选择可在空白处填写的合适语句（24）在窗体上画1个名为Text1的文本框和1个名为Labe11的标签，再画4个名为Op1的单选按

Option Base 1 Dim sales(12)As Load Private Sub For_Load() Open"c:\sales.txt"For Input As#1 For k=1 To 12 Input#1,sales(k) Next Close#1 End Sub Private Sub_________(Index As Integer) Dim sum As Long,k As Integer,month As Integer sum=0 Month=Index*________ For k=1 To 3 month=month+1 sum=sum+sales(month) Next k Label1.Caption=__________.Caption&"销售总额：" Text1=sum End Sub A.Op1_Click 3 Op1(Index) B.Op1_Click 0 Option1(Index) C.Option1_Click 1 Op1(Index) D.Option1_Click 2 Option1(Index)

点击查看答案