Excel VBAにて2の100乗を計算するには

質問

プログラミングの勉強でVBAを学んでいるものです
以下の様な問題を出されました
2の100乗の値を計算する。この値はLong型で表せる最大の値をはるかに超すので、十分な大きさのInteger型の配列を用意し、その各要素で各けたの値を表す。値を2倍するサブプロシージャ「二倍」を書いてプログラムを完成させ、値を計算せよ。

Option Explicit

Sub 二の百乗()

Const n As Integer = 200
Dim s(n) As Integer
Dim i As Integer, j As Integer

s(1) = 1
For i = 2 To UBound(s) 'UBoundは配列の最大の添え字を返す関数
s(i) = 0
Next i

For i = 1 To 100
二倍 s
Next i

For i = UBound(s) To 1 Step -1
If s(i) <> 0 Then Exit For
Next i

For j = 1 To i
Cells(1, j).Value = s(i - j + 1)
Next j

End Sub

セル一つに計算結果を表示させられないことはよく分かるのですが、そのための2の掛け算を全く思いつきません
二倍のサブプロシージャをどのようにすればいいのでしょうか

回答No.1

keithin · ベストアンサー

どうやっても出来ますが、たとえば筆算で計算する手順を思い出してその通りに計算してみます。

sub 二倍(s as variant)
　dim i as integer
　for i = 1 To uBound(s)
　　s(i) = s(i) * 2 + (s(i - 1) \ 10)
　　s(i - 1) = s(i - 1) mod 10
　next i
end sub

＃参考
暗黙の宣言でoption baseがゼロになっていることに留意する。
配列の上限は十分に大きな値が宣言されている事に留意する。

回答No.3

maiko0318

s(1) = 1となっていますからs(1)が１の位、s(2)が十の位s(3)が１００の位です。
なので

s(i) = s(i) * 2 + (s(i - 1) \ 10)
s(i - 1) = s(i - 1) mod 10

ではありません。
よく間違えるところです。
十分に留意してください。

回答No.2

maiko0318

２倍は各桁s(1から200)を２倍する。

＞＞

s(1から200)をクリアする。（これはできてる）

１００回ループ i
　２００回ループ j
　　s(j)を２倍に

　２００回ループ j
　　各桁s(j)が１０を超えたら s(j+1)を＋１，s(j)を－１０

２００回ループ i（iは２００から１まで)
　　各桁s(i)を表示

こんなとこでcで作っています。（できました）