Question

vb 我想定义一个function,即x关于y的表达式,但我希望这个表达式可以用inputbox函数让用户自己输入

有什么解决方法么?请大神赐教!!!
Dim csz As String
Private Sub Form_Load()
csz = InputBox("请输入函数,自变量为x", "函数设定")
End Sub
Function f(ByVal x As Single)
f = csz
End Function
但这样不行,后面无法正常使用这个函数

Answer 1

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

追问

可能我没有表达清楚，我想要的功能是这样：
由用户输入一个函数表达式，在VB内部生成该函数的Function，然后用这个function函数完成一系列相关运算。

追答

Dim x As single, csz as string
Function Callstr(StrNum As String) As double
Set MSSC = CreateObject("MSScriptControl.ScriptControl")
MSSC.Language = "VBScript"
Callstr= MSSC.Eval(StrNum)
End Function

Private Sub Form_Load()
x= InputBox("自变量为x", "函数设定")
csz=InputBox("请输入函数表达式", "函数设定")

End Sub

Function f(ByVal x As Single) as double
f= CalcStr(csz)
End Sub

追问

非常感谢!我现在有了一点方向了，嘿嘿~
我实验了下，这个方法还是有一些问题
我根据我的情况修改了极少数的代码，运行程序的时候，提示
Callstr= MSSC.Eval(StrNum)
这句有问题，我就有点糊涂了，可以加你为好友么？我把完整的程序发给你，帮我看看是哪儿出了问题~嘿嘿~

追答

可以，就这样做的~