いよいよ加法のプログラムを組んでみることにしましょう。
プログラム冒頭に、グローバル変数
Dim n As Integer
を宣言しておいて、
Private Sub CommandButton1_Click()
の一番最初に
n=Cells(5, 1)
などとしておけば、何進数を扱うのかをエクセルのシート上から、
指定することが出来ます。
ｎ進数を納めるにには、
整数型の１次元配列
Dim a(10000) As Integer,b(10000) As Integer
等を用意しておくとよいでしょう。
データはｎ進数をランダムに２つ発生させて、
表示するプログラムを考えてください。
尚、ランダムデータは最初は１０桁以内にしましょう。
それから、データの終わりには終わりの印として、
a(最後)=n
のようにnを代入しましょう。
nをどうしてデータの終わりの印として使えるかと申しますと、
例えば、５進法（数）で考える場合、
１２０１
のように５未満の数字が並びます。
ですから、５が入ることがないのです。
それで、
５１２０１
となります。
ではなぜ、終わりの印を入れる必要があるのでしょうか。
Dim a(10000) As Integer,b(10000) As Integer
とりあえず、最初の方は１０桁以内で考えますが、
将来的には、１００００桁まで扱えるように、
配列の要素数を10000までしてあります。
vbaでは、
変数を宣言した時点で、
０に初期化されますが、プログラムの実行が２回目以降だと、
前に代入した値が入っていて、いたずらをしますから、
配列の各要素は０に初期化しておきましょう。
０に初期化しておきますので、
終わりの印を入れないと１２０１の場合には、
０００〜０００１２０１
のようになります。０が９９９６個並ぶことになります。
a(0)=1,a(1)=0,a(2)=2,a(3)=1,a(5)=0,a(6)=0,a(7)=0,a(8)=0,・・・・
と並んでいますから、For文で表示する場合終わりの印を入れておかないと、
終了場所が分からず、
毎回１万個も数字が並ぶことになります。
ですが、
０００〜００５１２０１
すなわち、
a(0)=1,a(1)=0,a(2)=2,a(3)=1,a(4)=5（終わり記号ｎ）,a(6)=0,a(7)=0,a(8)=0,・・・・
となっていれば、
For i=0 to 9999
If a(i)=n Then Exit For
Cells(□,9999-i)=a(i)
・・・
・・・
Next
と終わりの印nの直前までを表示して、
図の４行目のようになります。このように、
a(0)=1,a(1)=0,a(2)=2,a(3)=1と
４個の数字の羅列で終了することが出来ます。
つまり、For文を５回のループで終了することが出来るのです。
５回目のときにIf a(i)=n Then Exit ForによってFor文が強制終了されるからです。
For文を途中で止めて、無駄な０を表示しないにしようということです。
nを
１０とすると１０進数の１０万桁の巨大整数を、
１００とすると１０進数の１００万桁の巨大整数を、
１０００とすると１０進数の１０００万桁の巨大整数を、
処理すること出来ます。
将来的には、
７８２０３６９８４０２６９７１２５０２６９８７００３５９１２０６９８１１１１
（この例とて、たったの５０桁です。
１０００万桁が途方もなく大きいことが分かります。）
のような巨大な整数を考え、
その整数の因数分解
や素数判定などを扱うことを
目標にしていますので、
配列の要素数を多めの１万にとってあるのです。
巨大素数生成などでは、
コンピュータに多大な負担を与えます。
毎回、For文で１万回もループさせていたのでは、
さすがのコンピュータでも、
５０桁程度の素数でさえ、
作り出すことは大変困難です。
巨大整数演算では、
無駄なループはさせないことが、
絶対的な要件となります。
不必要なループをさせないために、
終わりの印を入れるのです。
終わりの印はn以上であればよいので、
n+1などでも結構です。
この辺は、プログラマーが決めればよいことなのです。
では、次のようデータを発生させるマクロを組みましょう。
上の７進数の例では、1つ目の５進数の桁数が６桁で
a(5)=5,a(4)=4,a(3)=1,a(2)=3,a(1)=6,a(0)=2
２つ目の桁数が７桁となっており、
b(6)=5,b(5)=0,b(4)=6,b(3)=1,b(2)=5,b(1)=1,b(0)=5
となっています。
それぞれの桁数も１０桁以内のランダムな桁数としてください。
それから、４桁のn進数の場合、
４桁目（a(3)ですよ。添え字が０から始まることを忘れないでください。）
が０であってはいけませんね。
００１０
なら２桁になってしまいます。
ですから、印しであるnが入っている一つ前の添え字のときには、
０の代入を禁じなければなりません。
以上のことを考慮に入れると、
ランダムデータを作り、表示させるだけのプログラムでも結構難しいということが、
お分かりかと思います。
参考ダウンロード添付ファイル
を開いて下の空白部分をプログラミングしてみて下さい。
Dim n As Integer
Private Sub CommandButton1_Click()
Dim a(14) As Integer
Dim b(14) As Integer
n = Cells(2, 16)
Rows("3:20000").Select
Selection.ClearContents
Cells(2, 1).Select
Call ds(a())
Call ds(b())
Call hy(a(), 3) '（）ないの２番目の整数は表示する行数を指定している
Call hy(b(), 4)
End Sub
Sub sy(a() As Integer)
Dim i As Integer
End Sub
Sub ds(a() As Integer)
End Sub
Sub hy(a() As Integer, g As Integer)
End Sub
Private Sub CommandButton2_Click()
Rows("3:20000").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
第６話へ 第８話へ
