！！菜鸟关于VB的一个问题 大家来看看 vb能解决么。。。
例如一个方程 x=6/y*2+5 画出一个X，Y的图象，vb能做么，用什么空件可以，我只懂一些简单的编程，不要太难的。
[解决办法]
用vb画函数图像:
Option Explicit
Dim i As Integer
Dim yy(100) As Single
Dim xx As Single
Dim colvb As Long
Dim x As Integer
Dim y As Integer
Dim txt As String
Dim dy As Variant
Public Function xp(colvb As Variant, x As Variant, y As Variant, txt As Variant)
Me.ForeColor = colvb 'QBColor(14)
Me.CurrentX = x
Me.CurrentY = y
Me.Print txt '
End Function
Private Sub Command1_Click()
For i = 0 To 100
xx = (i - 50) / 10
yy(i) = 0.5 * xx ^ 2 + 3 * xx - 2
Next
Line (0, 4000)-(10000, 4000)
Line (5000, 0)-(5000, 8000)
Line (6000, 3950)-(6000, 4000)
Line (4000, 3950)-(4000, 4000)
Line (5000, 3000)-(5100, 3000)
Line (5000, 5000)-(5100, 5000)
For i = 0 To 100
PSet ((i - 50) * 10 + 5000, -1 * yy(i) * 100 + 4000), vbRed
Next
x = 9000
y = 3900
txt = "X轴 "
colvb = vbBlue
dy = xp(colvb, x, y, txt)
x = 5100
y = 500
txt = "y轴 "
colvb = vbBlue
dy = xp(colvb, x, y, txt)
x = 5000
y = 4000
txt = "0 "
dy = xp(colvb, x, y, txt)
x = 6000 - 70
y = 4000
txt = "10 "
dy = xp(colvb, x, y, txt)
x = 4000 - 70
y = 4000
txt = "-10 "
dy = xp(colvb, x, y, txt)
x = 5100
y = 2930
txt = "10 "
dy = xp(colvb, x, y, txt)
x = 5100
y = 4930
txt = "-10 "
dy = xp(colvb, x, y, txt)
End Sub
