vb中如何将文本框中字符串（不只是数字）加入程序中，像val函数那样的

Question

如题所述

Answer 1

’通用段声明Dim Sc As Object‘Form_Load中添加以下代码Private Sub Form_Load() Set Sc = CreateObject("ScriptControl") Sc.Language = "VBScript" Sc.Modules.Add "MyCode"End Sub'//////////////////////////////////////////////////'以下是函数部分Function F(ByVal x As Single, strF As String) As Single Dim strE$ strE = "Function y(x):x=" & CStr(x) & ":y=" & strF & " :End Function" & vbCrLf Sc.Modules.Item(1).AddCode strE F = Sc.Run("y", x)End Function'/////////////////////////////////////////////‘以下是函数调用部分，函数的第一个参数是变量值，单精度；第二个参数是算式，字符串Private Sub Command1_Click() Print F(Val(Text1.Text), Text2.Text)End Sub’注意：text2中只需写 x^2+5*x+6 这样的算式即可，变量必须是x，不要“y=”