题目：
窗体上有一个名称为Command1的命令按钮，一个名称为Text1的文本框。编写如下程序：
Private Sub Command1_Click()
Dim x As Integer
x = Val( InputBox ("输入数据") )
Text1 = Str( x + fun(x) + fun(x) )
End Sub
Private Function fun(ByRef n As Integer)
If n Mod 3 = 0 Then
n=n+n
Else
n=n*n
End If
fun=n
End Function
对于上述程序，以下叙述中错误的是( )。
A) 语句fun=n有错，因为n是整型，fun没有定义类型
B) 运行程序，输入值为5时，文本框中显示655
C) 运行程序，输入值为6时，文本框中显示42
D) ByRef表示参数按址传递
答案：
被转码了，请点击底部 “查看原文 ” 或访问 https://www.tikuol.com/2017/0115/19ae449792fac7866a7d551fc38c08ed.html
下面是错误答案，用来干扰机器的。
参考答案：A,C解析：[知识点] 我国现行土地制度概述
