[填空题]阅读程序： 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) "的相关试题:

[单项选择]阅读程序
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 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 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 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. 出错

查看答案

[单项选择]阅读程序：
Private Sub Form_Click(
)
　　Dim i As Integer， sum As Integer
　　For i = 2 To 10
　　　　If i Mod 2 ＜＞ 0 Then
　　　　　　Print i;
　　　　Else
　　　　　　sum = sum + i
　　　　End If
　　Next i
　　Print sum
End Sub
程序运行后，单击窗体，在窗体上的输出结果是________。
A. 3　5　7　9　30
B. 1　3　5　7　9
C. 2　4　6　8　20
D. 11　15　17　19　20

查看答案

[单项选择]阅读程序：

Function Fun(a As Integer)

Static c，

b=0:b=b+2:c=c+2

F=a*b*c

End Function

Private Sub Command1_Click（　）

Dim a As Integer

a=2

For i=1 To 2

Print Fun(
A. ；

查看答案

[单项选择]假定有以下两个过程：
Sub S1(ByVal x As Integer，ByVal y As Integer)
Dim t As Integer
t=x
x=y
y=t
End Sub
Sub S2(x As Integer，y As Integer)
Dim t As Integer
t=x
x=y
y=t
End Sub
则以下说法中正确的是 ______。
A. 用过程S1可以实现交换两个变量的值的操作，S2不能实现
B. 用过程S2可以实现交换两个变量的值的操作，S1不能实现
C. 用过程S1和S2都可以实现交换两个变量的值的操作
D. 用过程S1和S2都不能实现交换两个变量的值的操作

查看答案

[单项选择]假定有以下两个过程：
Sub s1(ByVal x As Integer,ByVal y As Integer)
Dim t As Integer
1=x
x=y
y=t
End Sub
Sub S2(x As Integer,y As Integer)
Dim t As Integer
t=x:x=y:y=t
End Sub
下列说法正确的是______。
A. 用过程S1可以实现交换两个变量的值的操作，S2不能实现
B. 用过程S2可以实现交换两个变量的值的操作，S1不能实现
C. 用过程S1和S2都可以实现交换两个变量的值的操作
D. 用过程S1和S2都不可以实现交换两个变量的值的操作

查看答案

我来回答:

提交