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

[主观题]

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

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

参考答案

查看官方参考答案

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

您可能会需要：

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

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

更多“在窗体上画四个文本框，并用这四个文本框建立一个控件数组，名称…”相关的问题

第1题

在窗体中添加命令按钮cmd，并编写如下程序：

Funtion panduan(x As Integer,y As Integer) As Integer

panduan=IIF(x＞y,x,y)

End Function

Private Sub cmd_click()

Dim a As Integer,b As Integer

a=4

b=7

MsgBox panduan(a, b)

End Sub

打开窗体单击命令按钮，消息框中输出的结果为【】。

点击查看答案

第2题

室内供暖管网系统的布置一般遵循的原则有（）。

A. 散热器通常安装在窗的下部，以便使散热器表面上升的热空气与冷风混合而降低温度后再循环至室内中部，以此来抵御冷风侵入和增加对人的舒适性

B. 立管一般布置在窗间靠近墙处或墙壁的角落

C. 位于顶层顶棚和地沟内的干管有保温措施，以减少热损失和防止冻结

D. 根据供暖系统的形式布置干管，一般合理地分成若干支路，以便阻力损失平衡

E. 供暖管道系统的引入口一般设置在建筑物热负荷对称的位置，大多是建筑物的上部，以系统作为半径

点击查看答案

第3题

能够触发窗体的MouseDown事件的操作是。

A、按下鼠标

B、拖动窗体

C、鼠标滑过窗体

D、按下键盘上的某个键

点击查看答案

第4题

SNMP属性窗口中，设置团体名称所在窗口是（）

A. 代理

B. 陷阱

C. 安全性

D. 服务

点击查看答案

第5题

执行以下程序段

Dim x As Integer，i As Integer

x＝0

For i=20 To 1 Step-2 x＝x+i\5

Next i

后,x的值为

A．16

B．17

C．18

D．19

点击查看答案

第6题

假定建立了一个名为Command1的命令按钮数组，则以下说法中错误的是

A．数组中每个命令按钮的名称(Name属性)均为Command1

B．数组中每个命令按钮的标题(Caption属性)都一样

C．数组中所有命令按钮可以使用同一个事件过程

D．用名称Command1(下标)可以访问数组中的每个命令按钮

点击查看答案

第7题

阅读程序： Option Base 1 Dim arr()As Integer Private Sub Form_Click() Dim i AsInteger，j As Integer ReDim arr(3，2) For i=1 To 3 Forj=1 To 2 arr(i，j)=i*2+j Next j Next i ReDim Preserve arr(3，4) For j=3 To 4 arr(3，j)=j+9 Nextj Print arr(3，2)+arr(3，4) End Sub 程序运行后，单击窗体，输出结果为

A．21

B．13

C．8

D．25

点击查看答案

第8题

设有如下程序： Private Sub Command1_Click() Dim c As Integer，d As Integer c=4 d=InputBox(“请输入一个整数”) Do While d＞0 If d＞c Then C=C+1 End lf d=InputBox(“请输入一个整数”) Loop Print c+d End sub 程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0，则输出结果是

A．12

B．11

C．10

D．9

点击查看答案

第9题

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Dim SW As Boolean Function func(X As Integer)As Integer IfX＜20 Then Y=X Else Y=20+X End lf func=Y End Function Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) SW=False End Sub Private Sub Form_MouseUp(Button As Integer，Shift As Integer，X As SinSle，Y As Single) SW=True End Sub Prinvate Sub Command1_Click() Dim intNum As Integer intNum=InputBox(””) If SW Then Print func(intNum) End If End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入25，则程序的执行结果为

A．输出0

B．输出25

C．输出45

D．无任何输出

点击查看答案