单项选择题

阅读程序:
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
<上一题 目录 下一题>
热门 试题

单项选择题
设有如下通用过程: Public Sub Fun(a( )As Integer,x As Integer) For i=1 TO 5 x=x+a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程: Private Sub Command1_Cliek( ) Dim arr(5) As Integer,n As Integer For i=1 To 5 arr(i)=i+i Next Fun arr,n Text1.Text=Str(n) End Sub 程序运行后,单击命令按钮,则在文本框中显示的内容是
A.30
B.25
C.20
D.15
单项选择题
在窗体上画—个名称为Label1的标签,然后编写如下事件过程: Private Sub Form_CIick( ) Dim arr(10,10)As Integer Dim i As Integer,j As Integer For i=2 To 4 For j=2 To 4 srr(i,j)=i*j Next j Next i Label1.Caption=Str(arr(2,2)+arr(3,3)) End Sub 程序运行后,单击窗体,在标签中显示的内容是
A.12
B.13
C.14
D.15
相关试题
  • 设有如下程序: Option Base 1 Pfivme...
  • 在名称为Form1的窗体上画一个文本框,其名...
  • 以下语句的输出结果是 【6】 。 Print...
  • 阅读下面的程序: Private Sub Form_Cl...
  • 设有如下程序: Private Sub Form_Clic...