题目内容
（请给出正确答案）
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Command1_Click()
Dim s As Integer
Dim aa(3, 2) As Integer
For i = 1 To 3
For j = 1 To 2
aa(i, j) = i + j
Next j
Next i
s = aa(1, 2) + aa(2, 1)
Print s
End Sub
程序运行后，单击命令按钮，窗体上显示的值是()
A. 4
B. 5
C.6
D. 7
如果结果不匹配，请 联系老师 获取答案
更多“在窗体上画一个名称为Text1的文本框和一个名称为Comma…”相关的问题
A． Visual
B．Basic
C．Program
D．出错
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim arr(10,10)As Integer,i,j As Integer
For i=1 To 3
For j=2 To 4
arr(i,j)=i+j
Next
Next
Text1.Text=arr(2,3)+arr(3,4)
End Sub
程序运行后,单击命令按钮,在文本框中显示的值是
A．12
B．13
C．14
D．15
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim arr(10，10)As Integer，i，j As Integer For i=1 To 3 For j=2 To 4 arr(i，j)=i+j Next Next Text1.Text=an(2，3)+arr(3，4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是
A．12
B．13
C．14
D．15
在窗体上画四个文本框，并用这四个文本框建立一个控件数组，名称为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．出错信息
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后输写如下程序：
Private Sub Command1_Click()
Dim x，y，z As Integer
x=5
y=7
z=0
Text1.Text=""
Call Fun1(x，y，z)
Text1.Text=Str(z)
End Sub
Sub Fun1(ByVal a As Integer，ByVal b As Integer，c As Integer)
c=a+b
End Sub
程序运行后，如果单击命令按钮，则在文本框中显示的内容是
A．0
B．12
C．Str(z)
D．没有显示
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序： Private Sub Command1_Click() Dim x，y，z As Integer x=5 y=7 z=0 Text1.Text=”” Call Pl(x，y，z) Text1.Text=Str(z) End Sub Sub Pl(ByVal a As Integer，ByVal b As Integer，c As Integer) c=a+b End Sub 程序运行后，如果单击命令按钮，则在文本框中显示的内容是
A．0
B．12
C．Str(z)
D．没有显示
在窗体上画一个名为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim arrayl(10, 10)As Integer Dim i As Integer, j As Integer For i=1 To 3 For j=2 To 4 arrayl(i, j)=i+j Next j Next i Text1. Text=arrayl(2, 3)+arrayl(3, 4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是______。
A．12
B．13
C．14
D．15
在窗体上画一个名称为Text1的文本框，然后编写如下代码： Option Base 1 Private Sub Form. Click() Dim arr Dim Start As Integer, Finish As Integer Dim Sum As Integer arr = Array(12, 4, 8, 16) Start = LBound (arr) Finish = UBound (arr) Sun = 0 For i = Start To Finish Sum = Sum + arr(i) Next i c = Sum/Finish Text1.Text = c End Sub程序运行后，单击窗体，则在文本框中显示的内容是______。
A．40
B．10
C．12
D．16
Private Commandl_Click（）
Dim i As Integer, n As Integer
For i=0 To 50
i = i+3
n = n+1
If i＞10Then Exit For
Next
Textl.Text=Str（n）
End Sub
程序运行后，单击命命令按钮，在文本框中显示的值是（）。 A．5
B．4
C．3
D．2
