百科知识

电脑/网络

怎样用vb画函数图像？怎么用VB画数学的函数图像，比如二次函数？

2007-03-11 08:47:13U***
怎么用VB画数学的函数图像，比如二次函数？怎样用vb画函数图像？怎么用VB画数学的函数图像，比如二次函数？：Option Explicit Dim i As Integer Dim yy(100) ?

最佳回答

  •   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 。
      
    2007-03-16 09:56:26
    • 很赞哦！ (200)

    相关文章