有如下程序：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 F
题目
有如下程序：
Private Sub Command1_Click（）
Dim k As Integer, m As Integer
Dim p As Integer
k=4: m=1
p=PC（k, m） : Print p;
p=PC（k, m） : Print p
End Sub
Private Function PC（a As Integer, b As Integer）
Static m As Integer, i As Integer
m=0: i=2
i=i + m + 1
m=i + a + b
PC=m
End Function
程序运行后，输出的结果为（ ）。
A．4 6
B．6 6
C．8 8
D．10 12
相似考题
更多“有如下程序: PrivateSubCommand1_Click() DimkAsInteger,mAsInteger DimpAsInteger k=4 ”相关问题
-
第1题：
有如下的程序： Private Sub Command1_Click() Dim k As Integer，m As Integer Dim P As Integer k=4：m=1 P=Fun(k,m)：Print P； P=Fun(k,m)：Print P End Sub Private Function Fun(a As Integer，b As Integer) Static m As Integer，i As Integer in=5：i=2 i=i+m+1 m=i+a+b Fun=m\2 End Function 单击命令按钮后，输出结果为
A．2 2
B．4 4
C．5 5
D．6 6
正确答案：D
解析：在Sub过程中，程序段先定义了3个Integer型变量k,m,p，并赋给k初值为4,m的初值为1，然后调用事件过程Fun，并将它的值赋给p；在事件过程Fun中定义了两个形参，参数的传送是通过引用实参，即将k,m的地址作为a,b的地址；在Fun中，将m,i定义为静态变量，所以第一次调用后的值仍然保留，但是m,i分别都有赋值语句，将它们的值变为5,2，所以返回值不变，都是6,6。 -
第2题：
有如下的程序。
Private Sub Command1_Click()
Dim k As Integer, m As Integer
Dim P As Integer
k=4: m=1
P=Fun(k, m) : Print P;
P=Fun(k, m) : Print P
End Sub
Private Function Fun(a As Integer, b As Integer)
Static m As Integer, i As Integer
m=5: i=2
i=i + m + 1
m=i + a + b
Fun=m \ 2
End Function
单击命令按钮后,输出结果为
A．2 2
B．4 4
C．5 5
D．6 6
正确答案：D
解析：在Sub过程中,程序段先定义了3个Integer型变量k,m,p,并赋给k初值为4,m的初值为1,然后调用事件过程Fun,并将它的值赋给p;在事件过程Fun中定义了两个形参,参数的传送是通过引用实参,即将k,m的地址作为a,b的地址;在Fun中,将m,i定义为静态变量,所以第一次调用后的值仍然保留,但是m,i分别都有赋值语句,将它们的值变为5,2,所以返回值不变,都是6,6。 -
第3题：
有如下程序：Private Sub Command1_Click() Dim k As Integer，m As Integer Dim op As Integer k=4：m=1 op：PPC(k，m)：Print op； op：PPC(k，m)：Print opEnd SubPrivate Function，PPC(a As Integer，b As Integer) Static m As Integer，i As Integer m=0：i=2 i=i+m+1 m=i+a+b PPC=mEnd Function程序运行后，输出的结果为
A．4 6
B．6 6
C．8 8
D．10 12
正确答案：C
解析：在Sub过程中，程序段先定义了3个Integer型变量k,m,op,并给k赋给初值4，m的初值为1，然后调用事件过程PPC，并将它的值赋给op；在事件过程PPC中定义了两个形参，参数的传送是通过引用实事，即将k，m的地址作为a，b的地址；在PPC中，将m，I定义为静态变量，第一次调用后的值仍然保留，但是m，I分别都有赋值语句，将它们的值变为0，2，所以返回值不变。注意：过程的定义和调用，以及参数传递方式的选择。 -
第4题：
以下用户自定义函数 Function Func(a As Integer, b As Integer) As Integer Static m As Integer, i As Integer m=0:i=2 i=i+m+i m=i+a+b Func=m End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim k As Integer，m As Integer，p As Integer k=4：m=1 P=Func(k，m) Print p End Sub 程序运行后，单击命令按钮，输出结果为
A．8
B．9
C．10
D．11
正确答案：A
解析：变量i的计算过程为i=2+0+1=3，变量m的计算过程为m=3+4+1=8，m的值通过于函数名Fune返回。 -
第5题：
有如下程序。
Private Sub Command1_Click()
Dim k As Integer, m As Integer
Dim op As Integer
k=4: m=1
op=PPC(k, m) : Print op;
op=PPC(k, m) : Print op
End Sub
Private Function PPC(a As Integer, b As Integer)
Static m As Integer, i As Integer
m=0: i=2
i=i + m + 1
m=i + a + b
PPC=m
End Function
程序运行后,输出的结果为
A．4 6
B．6 6
C．8 8
D．10 12
正确答案：C
解析：考查考生对函数及函数参数的运用。在Sub过程中,程序段先定义了3个Integer型变量k,m,op,并给k赋给初值4,m的初值为1,然后调用事件过程PPC,并将它的值赋给op;在事件过程PPC中定义了两个形参,参数的传送是通过引用实参,即将k,m的地址作为a,b的地址;在PPC中,将m,i定义为静态变量,第一次调用后的值仍然保留,但是m,i分别都有赋值语句,将它们的值变为0,2,所以返回值不变。函数PPC中的两个参数都是以传值方式传递,注意不要与传地址方式传递混淆。