VB动态函数曲线的绘制

 

1. 'CTRL+T  ==>Microsoft  ScriptControl  
4. Option  Explicit  
6. Public  Y  As  Double  
7. Public  X  As  Double  
9. '引用  
11. Private  Sub  Command1_Click()  
12.                Dim  MathStr  As  String  
13.                Dim  TmpStr  As  String  
15.                On  Error  Resume  next  
17.                MathStr  =  "2*(X^2)+3*(X)+23"  '定义一个数学函数,可以能过TEXTBOX输入,但是只能有一个变量X.还要注意调整下面FOR循环中的范围.例如:1/X.要保证X>0.  
18.                  
19.                For  X  =  -10  To  10  Step  0.05  
20.                        TmpStr  =  Replace(Ucase$(MathStr),  "X",  X)  '替换掉原公式中的值  
21.                        Y  =  ScriptControl1.Eval(TmpStr)          '根据表达式计算值.  
22.                        '坐标原点是500,500  
23.                        Picture1.CurrentX  =  1000  +  X  *  15  
24.                        Picture1.CurrentY  =  3000  -  Y  *  15  '注意,电脑的Y坐标与数学坐标是相反的.  
25.                        Picture1.Print  "."  
26.                Next  
27. End  Sub