唉，你太教条了。用数组可能在过去586时代还有点作用，毕竟计算一次，以后只需访问，可能会提高速度，毕竟浮点运算比较耗时，现在的电脑速度可以只需要运算就行了。为了避免你过于教条，我还是费了点时间修改你提供代码，你看我不用数组也让它转起来了（没花时间去画轨迹，应该也不难）。
'拷贝下述代码到你给我们的工程里，全覆盖原代码
程序代码：
'Option Explicit
Const PI = 3.1415926 '定义π并赋值
Dim BL As Double 'picture的宽/长比例
Dim L1 As Double '曲柄的长度
Dim L2 As Double '连杆的长度
Dim L3 As Double '摇杆的长度
Dim xC As Double 'C点的横坐标
Dim yC As Double 'C点的纵坐标
Dim guaijiao As Double
Dim changdu As Double
Public Sub readdata() '读取输入参数
L1 = Val(shuru(2).Text)
L2 = Val(shuru(3).Text)
L3 = Val(shuru(4).Text)
xC = Val(shuru(0).Text)
yC = Val(shuru(1).Text)
guaijiao = Val(shuru(5).Text)
changdu = Val(shuru(6).Text)
End Sub
Public Function arctan(x1 As Double, y1 As Double, x2 As Double, y2 As Double) As Double '反正切函数
If x1 = x2 Then
If y1 < y2 Then
arctan = PI / 2
Else
arctan = PI * 3 / 2
End If
Else
arctan = Atn((y2 - y1) / (x2 - x1))
If x1 > x2 Then
arctan = arctan + PI
Else
If y1 > y2 Then
arctan = arctan + 2 * PI
End If
End If
End If
End Function
Public Function arccos(s As Double) As Double '反余弦函数
If s = 0 Then
arccos = PI / 2
Else
If s > 0 Then
arccos = Atn(Sqr(1 - s ^ 2) / s)
Else
arccos = Atn(Sqr(1 - s ^ 2) / s) + PI
End If
End If
End Function
Private Sub Form_Load()
Picture1.AutoRedraw = True '开启自动绘图属性
Call readdata
BL = Picture1.Width / Picture1.Height
Command2_Click
End Sub
Private Sub Command1_Click() '绘制初始位置的图形
Picture1.Cls
Timer1.Enabled = False
Call chushiweizhi
End Sub
Public Sub chushiweizhi() '初始位置绘制过程
Picture1.Scale (-80 * BL, 80)-(80 * BL, -80)
Picture1.Line (0, 0)-(xA(0), yA(0)), RGB(0, 0, 0)
Picture1.Line (xA(0), yA(0))-(xB(0), yB(0)), RGB(0, 0, 0)
Picture1.Line (xB(0), yB(0))-(xC, yC), RGB(0, 0, 0)
Picture1.Line (xA(0), yA(0))-(xG(0), yG(0)), RGB(0, 0, 0)
Picture1.Circle (0, 0), 1, RGB(0, 0, 0)
Picture1.Circle (xA(0), yA(0)), 1, RGB(0, 0, 0)
Picture1.Circle (xB(0), yB(0)), 1, RGB(0, 0, 0)
Picture1.Circle (xC, yC), 1, RGB(0, 0, 0)
Dim k4 As Integer
For k4 = 0 To 359
Picture1.Line (xG(k4), yG(k4))-(xG(k4 + 1), yG(k4 + 1)), RGB(0, 0, 0)
Next k4
End Sub
Private Sub Command2_Click() '绘制动态运动模拟过程
Picture1.Cls
Timer1.Enabled = True
Timer1.Interval = 50
Picture1.Scale (-80 * BL, 80)-(80 * BL, -80)
End Sub
Private Sub Timer1_Timer() '动态运动模拟过程绘制
Static k2 As Double
Dim k3 As Double
Dim xA As Double, yA As Double, β As Double, det As Double, α3 As Double
Dim xB As Double, yB As Double, α2 As Double, xG As Double, yG As Double
If k2 = 360 Then k2 = 0
If k2 = 0 Then
k3 = 359
Else
k3 = k2 - 1
End If
xA = L1 * Cos(k3 * PI / 180): yA = L1 * Sin(k3 * PI / 180)
β = arctan(xC, yC, xA, yA)
det = arccos((L3 ^ 2 + (xA - xC) ^ 2 + (yA - yC) ^ 2 - L2 ^ 2) / (2 * L3 * Sqr((xA - xC) ^ 2 + (yA - yC) ^ 2)))
α3 = det + β
xB = xC + L3 * Cos(α3): yB = yC + L3 * Sin(α3)
α2 = arctan(xA, yA, xB, yB)
xG = xA + changdu * Cos(α2 + PI + guaijiao * PI / 180)
yG = yA + changdu * Sin(α2 + PI + guaijiao * PI / 180)
Picture1.Line (0, 0)-(xA, yA), Picture1.BackColor
Picture1.Line (xA, yA)-(xB, yB), Picture1.BackColor
Picture1.Line (xB, yB)-(xC, yC), Picture1.BackColor
Picture1.Line (xA, yA)-(xG, yG), Picture1.BackColor
Picture1.Circle (0, 0), 1, Picture1.BackColor
Picture1.Circle (xA, yA), 1, Picture1.BackColor
Picture1.Circle (xB, yB), 1, Picture1.BackColor
Picture1.Circle (xC, yC), 1, Picture1.BackColor
xA = L1 * Cos(k2 * PI / 180): yA = L1 * Sin(k2 * PI / 180)
β = arctan(xC, yC, xA, yA)
det = arccos((L3 ^ 2 + (xA - xC) ^ 2 + (yA - yC) ^ 2 - L2 ^ 2) / (2 * L3 * Sqr((xA - xC) ^ 2 + (yA - yC) ^ 2)))
α3 = det + β
xB = xC + L3 * Cos(α3): yB = yC + L3 * Sin(α3)
α2 = arctan(xA, yA, xB, yB)
xG = xA + changdu * Cos(α2 + PI + guaijiao * PI / 180)
yG = yA + changdu * Sin(α2 + PI + guaijiao * PI / 180)
Picture1.Line (0, 0)-(xA, yA), RGB(0, 0, 0)
Picture1.Line (xA, yA)-(xB, yB), RGB(0, 0, 0)
Picture1.Line (xB, yB)-(xC, yC), RGB(0, 0, 0)
Picture1.Line (xA, yA)-(xG, yG), RGB(0, 0, 0)
Picture1.Circle (0, 0), 1, RGB(0, 0, 0)
Picture1.Circle (xA, yA), 1, RGB(0, 0, 0)
Picture1.Circle (xB, yB), 1, RGB(0, 0, 0)
Picture1.Circle (xC, yC), 1, RGB(0, 0, 0)
Dim k5 As Integer
For k5 = 0 To 359
' Picture1.Line (xG(k5), yG(k5))-(xG(k5 + 1), yG(k5 + 1)), RGB(0, 0, 0)
Next k5
k2 = k2 + 1
End Sub
Private Sub Command3_Click() '暂停-开始按钮
If Command3.Caption = "暂停" Then
Command3.Caption = "继续"
Timer1.Enabled = False
Else
Command3.Caption = "暂停"
Timer1.Enabled = True
End If
End Sub
Private Sub Command4_Click(Index As Integer) '微调按钮
If Index Mod 2 = 0 Then
shuru(Index / 2).Text = Val(shuru(Index / 2).Text) + 3
Else
shuru((Index + 1) / 2 - 1).Text = Val(shuru((Index + 1) / 2 - 1).Text) - 3
End If
Picture1.Cls
Call readdata
If Timer1.Enabled = False Then Call chushiweizhi '动态更新绘图区域的图形
End Sub
