子函数或函数未定义怎么修改Dim a As IntegerPrivate Sub Command1_Click()a =