Dim csz As single ‘类型应该相同Private Sub Form_Load()csz = InputBox("请输入函数,自变量为x", "函数设定")End SubFunction f(ByVal x As Single) as single 'function是不是也应该定义类型？还有不知道你这个x和xsz是什么关系？？f = cszEnd Function
