vb绘制一元二次函数图形
求高手帮帮忙做一个绘制一元二次函数图形的程序,非常感谢!!!
先自己搞出一個一元二次因式分解的公式~把公式用For循環解出X值解~
再用MSChart控件空件繪製出圖形即可~
更正~一元二次方程式只有两个X值解~怎画图?
x=(-b+√b^2-4ac/2a) and x=(-b-√b^2-4ac/2a)
两点图吗?
http://siro.moe.edu.tw/teach/index.php?n=0&m=0&cmd=content&sb=3&v=3&p=437
想不到这是国中程度的问题~
程序代码:
Private Sub Form_Load() Dim i As Long, j As Long, k As Long, m As Long 'y = ax^2+bx+c 'Sample Function Do While i < 3 '依序輸入a,b,c的值~~若輸入錯誤則該項會一直跳出~直到正確輸入為止~ a = Val(InputBox("", "第 " & i + 1 & " 個字")) If a <> 0 Then ReDim Preserve Conster(i) Conster(i) = a i = i + 1 End If Loop If Conster(0) <> 0 And Conster(1) <> 0 Then a = Conster(0) '通過驗證後開始賦值~ b = Conster(1) c = Conster(2) 'x=(-b+√b^2-4ac/2a) and x=(-b-√b^2-4ac/2a) 再来算X值 End If
[ 本帖最后由 wube 于 2011-6-8 13:59 编辑 ]