第７話 足し算マクロ解説
を実現するプログラム主要部分再掲
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
参考ダウンロード添付ファイル
Sub s(a() As Integer, b() As Integer, c() As Integer, n 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
では、終わり記号ｎを外す作業をしています。
５進数で例えば、
a(i)とb(i)がそれぞれ、
５４０２３
５２１４
すなわち、
a(0)=3,a(1)=2,a(2)=0,a(3)=4,a(4)=5
b(0)=4,b(1)=1,b(2)=2,b(3)=5
（逆順になっていることに注意してください。）
であったとしますと、a(i)とe(i)はそれぞれ
０４０２３
００２１４
すなわち、
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
となります。これであれば、
となって上手く計算できます。
もしこれが、
５４０２３
５２１４
のままであったとすると、
とおかしなことになってしまいます。
終わりの記号n（この例だと５）は、
表示のときには便利ですが、
四則演算（加減乗除）するときには、
邪魔をするのです。
なので、一端その終わり記号nを外す作業が必要になります。
