Private Sub Command1_Click()
a = 1: b = 2: c = 3
Call test(a, b + 3, (c))
Print "main:"; a; b; cEnd Sub
Private Function text(p, m, n)p = p + 1: m = m + 1: n = n + 1
Print "sub:"; p; m; n
End Function这是书上一个例题的代码 结果是sub:2 6 4 
                             main:2 2 3
可是 运行时出现这样的结果    编译错误  子程序或函数未定义  这是怎么回事