单项选择题

在窗体上画一个名称为Labell的标签，然后编写如下事件过程。 Private Sub Form_Click( ) Dim arr(10, I0) As Integer Dim i As Integer, j As Integer For i = 2 To 4 For j =2 To 4 arr(i,j) =i*j Next Next Labell. Caption = Str(arr(2,2) + arr(3,3) ) End Sub 程序运行后，单击窗体，在标签中显示的内容是

A．12
B．13
C．14
D．15
<上一题 目录 下一题>
热门 试题

单项选择题
有如下程序。 Private Sub Commandl_Click() Dim a As Single Dim b As Single a=5:b=4 Call Sub1 ( a, b) End Sub Sub Subl(x As Single, y As Single) t=x x=t y y = t Mod y End Sub 在调用运行上述程序后，a和b的值分别为
A．0 0
B．1 1
C．2
D．1 2
单项选择题
有如下的程序。 Private Sub Commandl_Click( ) Dim k As Integer, m As Integer Dim P As Integer k=4: m=1 P=Fun(k, m) : Print P; P = Fun ( k, m) : Print P End Sub Private Function Fun( a As Integer, b As Integer) Static m As Integer, i As Integer m=5:i=2 i=i+m+1 m=i + a + b Fun=m 2 End Function 单击命令按钮后，输出结果为
A．2 2
B．4 4
C．5 5
D．6
相关试题