実現プログラムコード例
Private Sub CommandButton1_Click()
f (0)
End Sub
Sub f(i As Byte)
Dim a As Byte, s As Byte
a = i Mod 10
s = Int(i / 10)
Cells(5 + s, 2 + a) = i + 1
If i + 1 < 100 Then f (i + 1)
End Sub
解説
１０個ずつで改行するには
a = i Mod 10
s = Int(i / 10)
という２つの変数を用意します。
第７講第３話では２次元For文で行いましたが、
２次元処理は１次元処理でできるのです。
この再帰的使用はiの１文字ですから、
１次元処理です。
１次元処理を２次元に翻訳するための装置が、
a = i Mod 10
s = Int(i / 10)
という訳です。
Subプロシージャfの引数を２つにすれば、
直接２次元で扱うこともできます。
これを次話の課題としましょう。
ただし、今回はグローバル変数を
設けることを認めることにします。
