更多"有以下程序：
Sub subP(b（ ）As Integer"的相关试题:
[单项选择]有以下程序：
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. 出错
[填空题]运行下列程序：
Dim t As Integer
Private Sub Form_Click（ ）
t = 2
x=Val(InputBox("输入一个整数5"))
Print funl(x); t
End Sub
Private Function fun1(y)
If y＞0 Then
fun1 = 1： t=10
Else If y=0 Then
fun1 = 0： t=20
Else
fun1 = -1： t=30
End If
End Function
从键盘为变量x输入数据5，输出的结果是 【8】 。
[填空题]运行下列程序：
Dim t As Integer
Private Sub Form_Click（ ）
t = 2
x=Val(InputBox("输入一个整数5"))
Print funl(x); t
End Sub
Private Function fun1(y)
If y＞0 Then
fun1 = 1： t=10
Else If y=0 Then
fun1 = 0： t=20
Else
fun1 = -1： t=30
End If
End Function
从键盘为变量x输入数据5，输出的结果是 【8】 。
[单项选择]阅读程序： 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 4 6 8
B. 5 6 7 8
C. 10 12 14 16
D. 出错
[填空题]运行下列程序：
Dim t As Integer
Private Sub Form_C1ick( )
t=2
x=Val(InputBox("输入一个整数5"))
Print funl(x)；t
End Sub
Private Function funl(v)
If y＞0 Then
fun1=1:t=10
Else If y=0 Then
fun1=0:t=20
Else
fun1=-1:t=30
End If
End Function
从键盘为变量x输入数据5，输出的结果是______。
[单项选择]设有如下程序：
Dim a（ ）As Integer
Private Sub Command1_Click（ ）
n=-5:m=6
ReDim a(n To m)
For i=LBound(a，1)To UBound(a，1)
a(i)=i
Next i
Print a(LBound(a，1))；a(UBound(a，1))
End Sub
程序运行后，单击命令按钮，则输出结果是 ______。
A. 0 0
B. -5 0
C. -5 6
D. 0 6
[单项选择]有程序如下: 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 4 6 8
B. 5 2 2 2
C. 10 12 14 16
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. 出错
[填空题]下列程序段的输出结果为______。
Dimy As Integer
Private Sub Commandl_CUck（ ）
DimX As Integer
x=2
TeKt1.Text=SecondFunc(FirStFunC(X)，y)
Text2.Text=FirstFunc(X)
End Sub
PrivateFunctionFirstFunc(XASInteger)As Integer
x=x+y:y=x+y
FirstFunc=x+y
End Function
PtivateFunction SecondFunc(X As Integer,y AS Integer)As Integer
SecondFunc=2*x+y
End Function
[填空题]下列程序段的输出结果为______。
Dimy As Integer
Private Sub Commandl_CUck（ ）
DimX As Integer
x=2
TeKt1.Text=SecondFunc(FirStFunC(X)，y)
Text2.Text=FirstFunc(X)
End Sub
PrivateFunctionFirstFunc(XASInteger)As Integer
x=x+y:y=x+y
FirstFunc=x+y
End Function
PtivateFunction SecondFunc(X As Integer,y AS Integer)As Integer
SecondFunc=2*x+y
End Function
[填空题]在窗体上画’一个命令按钮，然后编写如下程序
Dim x As Integer
Sub inc (a As Integer)
x=x +a
End Sub
Private Sub Command l_click（ ）
inc 2
inc 3
inc4
Ms g box x;
End Sub
程序执行后，单击Command I命令按钮，消息框显示结果是 【14】 。
