英语翻译PrivateSubChuShiHua()Me.ClsTimer1.Enabled=TrueTimer1.Interval=200EraseZhuangTaiReDimShe(2)She(0).F=2She(0).X=9She(0).Y=11ZhuangTai(9,11)=1She(1).F=2She(1).X=10She(1).Y=11ZhuangTai(10,11)=1She(2).F=2

Question

英语翻译
Private Sub ChuShiHua()
Me.Cls
Timer1.Enabled = True
Timer1.Interval = 200
Erase ZhuangTai
ReDim She(2)
She(0).F = 2
She(0).X = 9
She(0).Y = 11
ZhuangTai(9,11) = 1
She(1).F = 2
She(1).X = 10
She(1).Y = 11
ZhuangTai(10,11) = 1
She(2).F = 2
She(2).X = 11
She(2).Y = 11
ZhuangTai(11,11) = 1
HuaTu
ChanShengShiWu
End Sub
Private Sub QingChu()
Dim I As Long
For I = 0 To UBound(She)
Me.Line (She(I).X,She(I).Y)-(She(I).X + 1,She(I).Y + 1),Me.BackColor,BF
Next
End Sub
Private Sub HuaTu()
Dim I As Long
For I = 0 To UBound(She)
Me.Circle (She(I).X + 0.5,She(I).Y + 0.5),0.49,RGB(255,255,0),,,HWB
Next
End Sub
Private Sub TiaoZheng()
Dim I As Long
For I = 0 To UBound(She) - 1
She(I).F = She(I + 1).F
Next
End Sub

Answer 1

如上面两位所说,你这代码不全,
ChuShiHua 你这是什么位置调用的函数?
另外 HuaTu
ChanShengShiWu
这分明是两个函数.你不给代码怎么给你分析
只能笼统的说,一些变量的赋值,数组的重定义在form上不知道你在绘制线和圆要干嘛用.

可以很负责的说,这段代码写的不咋样,不工整,另外写代码没有注释,是对自己和他人的不负责!