单项选择题

下列程序的执行结果为( )。 　　 Private Sub Comrnandl_Click( ) 　　　　Dim p As Integer, q As Integer 　　　　p=12：q=20 　　　　Call Value(p, q) 　　　　Print p; q 　　 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　1220　15
B．12　2012　25
C．24　1512　20
D．24　1212　15
<上一题 目录 下一题>
热门 试题

单项选择题
有如下事件过程：Private Sub Commaild1_Click( )Dim i As IntegerFor i =1 To 2DCNext iEnd SubSub DC( )Dim x As Integer，m As StringStatic y，nx=x + 1y=y + 1m=m& * ：n=n & # Print x，y，m，nEnd Sub程序运行后，输出的结果是( )。
A． 1 1 * # 　　 1 1 * #
B． 1 1 * #　　 1 2 * #
C．1 1 * #　　1 1 * ##
D． 1 1 * #　　 1 2 * ##
单项选择题
有如下程序：Private Sub Command1_Click()Dim k As Integer，m As IntegerDim p As Integerk=4：m=1p=PC(k，m)：Print p；p=PC(k，m)：Print pEnd SubPrivate Function PC(a As Integer，b As Integer)Static m As Integer，i As Integerm=0：i=2i=i + m + 1m=i + a + bPC=mEnd Function程序运行后，输出的结果为（ ）。
A． 4 6
B． 6 6
C．8 8
D．10 12
相关试题