这样就可以了,楼上的子函数M() 没有用到Dim pi As Double Dim runTime As Double Dim a As Single, b As Single Dim cntX As Single, cntY As Single Dim r As Single Private WithEvents Timer1 As Timer Dim tX As Single, tY As Single Dim tStep As Single Private Sub Form_Load() Me.ScaleMode = 3 Me.AutoRedraw = True pi = Atn(1) ...
直接新建窗体,将代码贴入即可Dim pi As DoubleDim runTime As DoubleDim a As Single, b As SingleDim cntX As Single, cntY As SingleDim r As SinglePrivate WithEvents Timer1 As TimerDi...