在VB中画一次函数图像的问题~急！！

来源：百度知道 编辑：UC知道 时间：2024/09/21 15:38:16
我象问下 象这样一段代码画出了坐标系后，咱想知道k和b的值，就画出一条一次函数图像，可怎么也不会……大虾们帮帮咱，PLEASE~
Private Sub Command1_Click()
Picture1.Scale (20, 20)-(120, 120)
Picture1.CurrentX = 69
Picture1.CurrentY = 70
Picture1.Print "0"
Picture1.CurrentX = 105
Picture1.CurrentY = 70
Picture1.Print "x"
Picture1.CurrentX = 65
Picture1.CurrentY = 30
Picture1.Print "y"
Picture1.Line (68, 30)-(68, 111)

Private Sub Cmd1_Click()
k = Val(InputBox("k"))
b = Val(InputBox("b"))
Picture1.Cls
Picture1.ScaleMode = 3
Picture1.Scale (-150, 150)-(150, -150)
Picture1.DrawWidth = 1
Picture1.Line (-150, 0)-(150, 0), RGB(0, 0, 255)
Picture1.Line (0, 150)-(0, -150), RGB(0, 0, 255)

Picture1.CurrentX = 1
Picture1.CurrentY = -1
Picture1.DrawWidth = 2
For a = -140 To 140
Picture1.PSet (a, k * a + b), RGB(255, 0, 0)
Next a
End Sub

Private Sub Command1_Click()
Dim K As Single
Dim B As Single

DrawXYLine
K = InputBox("请输入斜率K")
B = InputBox("请输入偏移量B")
Picture1.Line (-150, -150 * K + B)-(150, 150 * K + B), vbRed
End Sub

Private Sub DrawXYLine()
Picture1.Cls
Picture1.Width = 4500
Picture1.Height = 4500
Picture1.Scale (-150, 150)-(150, -150)
Picture1.Line (-150, 0)-(150, 0)
Picture1.Line (0