大家帮我看看

Question

我想用vb做一个绘制波形的小软件，做好的界面如图通过功能按键输入函数，并且显示在文本框，但是文本框里的内容是string类型，
我用y = Text1.Text，得到的只能是一串字符，不是运算符，不能进行运算，该怎么解决啊？我的本意是这样的
y = Text1.Text
For t = 0 To 511
Form0.Picture1.PSet (i, y), QBColor(0)
Next t
这样是不正确的，希望大家帮帮我，谢谢了。

Answer 1

Form0.Picture1.PSet (i, y), QBColor(0)，这句写错了，应该是Form0.Picture1.PSet (t, y), QBColor(0)

Answer 2

该图片仅限百度用户交流使用赶紧上传到CSDN上吧

Answer 3

Private Sub Command1_Click()
Dim a As Object
Set a = CreateObject("MSScriptControl.ScriptControl")
a.Language = "vbscript"
For t = 0 To 7 Step 0.01
s = Replace(Text1, "t", t)
y = a.Eval(s)
Debug.Print y
Picture1.PSet (t, Int(100 * y)), QBColor(5)
Next tEnd SubPrivate Sub Form_Load()
Text1 = "sin(5*t)+cos(7*t)"
Picture1.AutoRedraw = True
Picture1.Scale (0, 100)-(7, -100)
Picture1.DrawWidth = 3
End Sub