单项选择题

下列程序的执行结果为
　　Private Sub Commandl_Click( )
　　　　Dim X As Integer，y As Integer
　　　　x=12：y=20
　　　　Call Value(x，y)
　　　　Print X；y
　　End Sub
　　Private Sub Value(ByVal m As Integer，ByVal n As Integer)
　　　　m=m * 2：n=n-5
　　　　Print m；n
　　End Sub

A．20　　12
　20　　15
B．12　　20
　12　　25
C．24　　15
　12　　20
D．24　　12
　12　　15
<上一题 目录 下一题>
热门 试题

单项选择题
下面程序段，运行后的结果是 Private Sub Commandl_Click( ) Dim b%(1 To 4)，i%，t# For i=1 To 4 b(i)=i Next i t=Tof(b( ) ) Print t= ；t， End Sub Function Tof(a() As Integer) Dim t#，i% t=1 For i=2 To UBound(
A．

　　　　　　t=t * a(i)
单项选择题
以下程序段的输出结果为 Dim 1，a(10)，p(3) k=5 Fori=0 To 10 a(i)=i Next i For i=0 To 2 p(i)=a(i*(i+1)) Next i For i=0 To 2 k=k+p(i)*2 Next i Frint k
A．20
B．21
C．56
D．32
相关试题