この処理でオーバフローが起きる理由は？ (ID:91565)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Dim i As Integer Dim tmp As Integer Dim Buf(50000) As Integer For i = 1 To 1000 tmp = Buf(300 * i) Next 上記処理で 「i=110(33000=300*i)」の時にオーバフローが発生しました。 「i」が「32767」を超えた時に発生する事は分かります。 ですが、「300*i」が「32767」を超えるとなぜオーバフローになるのでしょうか。 ちなみに「i」を「Long」で宣言するとオーバフローは発生しません。 どなたかご教授お願いいたします。