单项选择题

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

A．21
B．13
C．8
D．25

<上一题目录下一题>

热门试题

单项选择题

有如下程序： Private Sub Form Click() Dim Check，Counter Check=True Counter=0 Do Do While Counter＜20 Counter=Counter+1 If Counter=10 Then Check=False Exit Do End If Loop Loop Until Check=False Print Counter，Check End Sub 程序运行后，单击窗体，输出结果为

A．15 0
B．20 -1
C．10 Tree
D．10 False

单项选择题

在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序： Private Sub Command1 Click() Dim x， y， z As Integer x = 5 y = 7 z = 0 Text1.Text = Call P1(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．没有显示

相关试题