>>49
適当に打ち直してみる。
動く保障と、バグが無い保証と、コードが正常に変換されている保障はそれぞれ全く無い。
あと、インデントに全ｽﾍﾟ使ってるのでコピーするとき注意。

#prompt
Dim NUMBER As Long,SIZE As Long,I As Long,J As Long,A As Long
Dim COL(5)=(2,6,4,5,1,3) As Long
Cls 3
Input "正方形の描画数=",NUMBER
Input "大きさ=",SIZE
For J=0 To NUMBER-1
　A=Int(J/NUMBER*6)
　Line (50,50+SIZE/NUMBER*J)-(50+SIZE/NUMBER*J,SIZE+50),COL(A)
　Line (50+SIZE/NUMBER*J,SIZE+50)-(SIZE+50,SIZE+50-SIZE/NUMBER*J),COL((A+2) MOD 6)
　Line (SIZE+50,SIZE+50-SIZE/NUMBER*J)-(SIZE+50-SIZE/NUMBER*J,50),COL((A+1) MOD 6)
　Line (SIZE+50-SIZE/NUMBER*J,50)-(50,50+SIZE/NUMBER*J),COL((A+3) MOD 6)
Next J
Sleep(-1)