Private Sub CommandButton1_Click()
CommandButton2_Click
Dim a(100) As Byte, n As Integer
n = Cells(3, 10)
Call f(a(), n) 'データ発生
Cells(5, 1) = g(a(), n, 0, 0) '10進数への翻訳
End Sub
Sub f(a() As Byte, n As Integer)
Dim i As Byte, o As Byte
Do While 1
o = Int(10 * Rnd)
If o > 2 Then Exit Do
Loop
Do While 1
a(0) = Int(n * Rnd)
If a(0) > 0 Then
Cells(4, 1 + i) = a(i)
Exit Do
End If
Loop
For i = 1 To o
a(i) = Int(n * Rnd)
Cells(4, 1 + i) = a(i)
Next
a(o + 1) = n
End Sub
Function g(a() As Byte, n As Integer, b As Long, i As Byte)
If a(i) = n Then
g = b
Exit Function
End If
b = b * n
b = b + a(i)
g = g(a(), n, b, i + 1)
End Function
Private Sub CommandButton2_Click()
Rows("4:20000").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
参考ダウンロード添付ファイル
では、皆さんDo文版とプロシージャの再帰的使用版のそれぞれについて、
逆翻訳機能を付け加えて確かめをするマクロを考えて下さい。
