更多"阅读程序:
Sub p(b ( ) As Integer)
"的相关试题:
[单项选择]阅读程序
SUB P(B( ) AS INTEGER)
FOR I=1 TO 4
B(I) =2*I
NEXT I
END SUB
PRIVATE SUB COMMAND1_CLICK( )
DIM A( 1 TO 4) AS INTEGER
A(1)=5
A(2) =6
A(3) =7
A(4) =8
P A( )
FOR I = 1 TO 4
MSGBOX A(I)
NEXT I
END SUB
运行上面的程序,单击命令按钮COMMAND1后,消息框4次输出的内容分别是( )。
A. 出错
B. 10, 12, 14, 16
C. 5, 6, 7, 8
D. 2, 4, 6, 8
[填空题]阅读程序:
Sub p(b ( ) As Integer)
For i=1 To 4
b(i) =2(i
Next i
End Sub
Private Sub Command1_Click( )
Dim a (1 To 4) As Integer
a(1)=5
a(2)=6
a(3)=7
a(4)=8
call p (a)
For i=1 To 4
Print a(i)
Next i
End Sub
运行上面的程序,单击命令按钮,输出结果为 ______。
[填空题]阅读程序:
Sub p(b( ) As Integer)
For i=1 To 4
b(i)=2*i
Next i
End 5ub
Private Sub Command1_C1ick( )
Dima(1 To 4)As InteSer
a(1)=5
a(2)=6
a(3)=7
a(4)=8
caU p(a)
For i=1 To 4
Pdnt a(i)
Next i
End Sub
运行上面的程序,单击命令按钮,输出结果为【15】。
[填空题]阅读程序:
Sub p(b( ) As Integer)
For i=1 To 4
b(i)=2*i
Next i
End 5ub
Private Sub Command1_C1ick( )
Dima(1 To 4)As InteSer
a(1)=5
a(2)=6
a(3)=7
a(4)=8
caU p(a)
For i=1 To 4
Pdnt a(i)
Next i
End Sub
运行上面的程序,单击命令按钮,输出结果为【15】。
[单项选择]阅读程序:
Sub subP(b( ) As Integer)
For i=1 To 4
b(i)=2 * i
Next i
End Sub
Private Sub Command1_Click( )
Dim a(1 To 4) As Integer
a(1)=5
a(2)=6
a(3)=7
a(4)=8
subP a( )
For i=1 To 4
Print a(i)
Next i
End Sub
运行上面的程序,单击命令按钮,输出结果为
A. 2
B. 5
C. 10
D. 出错
[单项选择]有如下程序:
Sub subP(b( ) As Integer)
For i=1 To 4
b(i)=2*i
Next i
End Sub
Private Sub Command1_Click( )
Dim a(1 To 4) As Integer
a(1)=5:a(2)=6:a(3)=7:a(4)=8
subP a( )
For i=1 To 4
Print a(i)
Next i
End Sub
运行上面的程序,单击命令按钮,输出结果为
A. 2
B. 5
C. 10
D. 出错
[单项选择]有以下程序:
Sub subP(b( )As Integer)
For i=1 To 4
b(i)=2*i
Next i
End Sub
Private Sub Commandl Click( )
Dim a(1 To 4)As Integer
a(1)=5
a(2)=6
a(3)=7
a(4)=8
subP a( )
For i=1 To 4
Print a(i)
End Sub
运行上面的程序,单击命令按钮,输出结果为【 】
[单项选择]阅读程序:
Function F(a As Integer)
b=0
Static c
b=b+1
c=c+1
f=a+ b+ c
End Function
Private Sub Command1_Click( )
Dim S As Integer
a=2
For i=1 To 3
Print P(
A. 4
B. 4
C. 4
[单项选择]阅读程序:
Function F(a As Integer)
b=0
Static c
b=b+1
c=c+1
F=a+b+c
End Function
Private Sub Command1_Click( )
Dim a As Integer
a=2
For i=1 To 3
Print F(
A. 4 5 6
B. 4 6 8
C. 4 7 9
[单项选择]有程序如下:
Sub subP(b( ) As Integer)
For i=1 To 4
b(i)=2*i
Next i
End Sub
Private Sub Command1_Click( )
Dim a(1 To 4) As Integer
a(1)=5
a(2)=6
a(3)=7
a(4)=8
subP a( )
For i=1 To 4
Print a(i)
Next i
End Sub
运行上面程序,单击命令按钮,输出结果为______ 。
A. 2
B. 5
C. 10
D. 出错
[单项选择]有以下程序:
Sub subP(b( )As Integer)
For i=1 To 4
b(i)=2*i
Next i
End Sub
Private Sub Command1_Click( )
Dim a(1 To 4)As Integer
a(1)=5
a(2)=6
a(3)=7
a(4)=8
subPa( )
For i=1 To 4
Print a(i)
Next i
End Sub
运行上面的程序,单击命令按钮,输出结果为( )。
A. 2
B. 5
C. 10
D. 出错