在vb中已经计算出直线函数，如何做出直线图像

来源：百度知道 编辑：UC知道 时间：2024/06/08 01:01:24
题目我在VB中首先用最小二乘法算出一个关于直线的方程
y=ax+b
a和b根据我每次输入数值不同，由最小二乘法算出的结果不同
现在需要帮忙的是，如何作出这个直线的的图像
还有几个问题,第一X轴坐标轴从0到300,最小刻度25,Y轴坐标轴从0到到3,最小刻度0.1

Private Sub Command1_Click()
Dim X!, Y!, i!
Picture1.Scale (-20, 3)-(300, -2)
Picture1.Line (-3, 0)-(300, 0) 'X
Picture1.Line (0, 3)-(0, -3) 'Y

For i = 0 To 300 Step 25 'X轴坐标
Picture1.Line (i, 0.1)-(i, 0)
Picture1.Print i
Next i

For i = 0.1 To 3 Step 0.1 'Y轴坐标
Picture1.Line (0, i)-(5, i)
Picture1.Print Format(i, "0.0")
Next i

Picture1.CurrentX = 290: Picture1.CurrentY = 0.2: Picture1.Print "X"
Picture1.CurrentX = 290: Picture1.CurrentY = 0.05: Picture1.Print "＞"
Picture1.CurrentX = 7: Picture1.CurrentY = 2.8: Picture1.Print "Y"
Picture1.CurrentX = -3: Picture1.CurrentY = 3: Picture1.Print "∧"

For X = -10 To 200 Step 1 '函数图像
Y = 0.005 * X + 1
Picture1.PSet (X, Y)
Next X

Picture1.PSet (5, 5) '