以下はN-BASICのプログラムをベースにしたものでFractalの描画です。
このままではコンパイルエラーになり動作しません。
解決方法についてご相談お願いします。
１．下記プログラムで動作させると、以下の２行のみ赤文字になります。
他の行番号付きラインは赤文字表示になっていません。
＞60 X=ZX:Y=ZY:IF X^2+Y^2>10 THEN *P
＞80 *P :IF L<100 THEN 100
このまま進めると「コンパイルエラー」です。
２．http://officetanaka.net/excel/vba/statement/Goto.htm
によれば
＞Goto line
＞lineには、分岐先の行ラベルまたは行番号を指定します。
とありますので
「*p」を「GoTo Sub1」としてみると赤文字表示はなくなりますが「コンパイルエラー」です。
この状態で10〜100の行番号をはずしてみても「コンパイルエラー」です。
-----------------------------------------------------
Sub test()
Dim x&, y&, i&
Dim zx#, zy#, cx#, cy#, xt#
Dim rng As Range
Set rng = [A1].Resize(200, 200)
rng.EntireColumn.ColumnWidth = 0.4
rng.EntireRow.RowHeight = 5#
10 FOR I=-199 TO +199: U=2*I/100
20 FOR J=-199 TO +199: V=2*J/100
30 X=0 :Y=0 : FOR L=1 TO 100
40 ZX=X^2-Y^2 + U
50 ZY=2*X*Y + V
60 X=ZX:Y=ZY:IF X^2+Y^2>10 THEN *P
70 NEXT L
80 *P :IF L<100 THEN 100
90 PSET (320+I,200-J), 7
100 NEXT J,I
Application.Goto [A38], True
End Sub
-----------------------------------------------------
