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