单选题编写如下程序：
Private Sub Command1_Click() Dim x As Integer x=10
Print fun1(x, 12)+x
End Sub
Private Function fun 1(m As Integer, n As Integer)As Integer
If n＞10 Then m=n
fun1=m+n
End Function
程序运行后，单击命令按钮Command1，输出结果为

A、 30
B、 32
C、 34
D、 36

【正确答案】 D

【答案解析】[解析] 本体是一个简单的函数调用，调用fun1函数时将x的值作为实参传送给fun1函数，由于第二个参数12满足n＞10，会将形参m的值也改变为12，因返回的函数值为24：由于函数fun1的各个参数为地址传递，因此对于形参m的值会影响实参x的值，即x的值也变为12。