第８話 足し算マクロ解説その２
を実現するプログラム主要部分再掲
Sub s(a() As Integer, b() As Integer, c() As Integer, n As Integer)
Dim i As Integer, ik1 As Integer, ik2 As Integer, mx As Integer
i = 0
Do While 1
If a(i) = n Then
a(i) = 0
ik1 = i
Exit Do
End If
i = i + 1
Loop
i = 0
Do While 1
If b(i) = n Then
b(i) = 0
ik2 = i
Exit Do
End If
i = i + 1
Loop
mx = ik1
If mx < ik2 Then mx = ik2
For i = 0 To mx - 1
c(i) = c(i) + a(i) + b(i)
c(i + 1) = c(i + 1) + Int(c(i) / n)
c(i) = c(i) Mod n
Next
If c(mx) = 0 Then
c(mx) = n
Else
c(mx + 1) = n
End If
For i = 0 To mx
If c(i) < n Then Cells(6, 1 + mx - i) = c(i)
Next
a(ik1) = n
b(ik2) = n
End Sub
参考ダウンロード添付ファイル
mx = ik1
If mx < ik2 Then mx = ik2
ではもちろん大きい方の（桁数＋１）を取得しています。
を例に取れば、
a(0)=3,a(1)=2,a(2)=0,a(3)=4,a(4)=0
b(0)=4,b(1)=1,b(2)=2,b(3)=0,b(4)=0
ですから、
For i = 0 To mx - 1
c(i) = c(i) + a(i) + b(i)
c(i + 1) = c(i + 1) + Int(c(i) / n)
c(i) = c(i) Mod n
Next
によって、
a(0)=3,a(1)=2,a(2)=0,a(3)=4
b(0)=4,b(1)=1,b(2)=2,b(3)=0
までを計算対象にしています。
mx - 1に注意して下さい。
a(4)=0とb(4)=0は計算させても意味がありませんね。
なぜ計算対象が
となっているかは、
For i = 0 To mx - 1
c(i) = c(i) + a(i) + b(i)
c(i + 1) = c(i + 1) + Int(c(i) / n)
c(i) = c(i) Mod n
Next
を見れば分かります。
今の例では最後が繰り上がりませんが、
繰り上がる場合にも、
ちゃんと対応しています。
c(i + 1) = c(i + 1) + Int(c(i) / n)
ですから、iの最後が3でも
c(4)となっていて、
赤い囲いの1の位がカバーされています。
