https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=10612#CommentId22279
投稿者 魔界の仮面弁士  (社会人) 投稿日時 2011/12/6 18:11:01
> 2重Forループの途中でプログラムが
> オーバーフローエラーを起こして停止してしまいます。
> ゼロ割はしていないようなのですが、

ゼロ割り以外でも、そのエラーが出ることはあります。
エラーが発生した時の各変数の値を調べてみてください。

たとえば、2 つの Integer 型 の値を足したり掛けたり乗じたりすると、
結果が Integer で表される範囲を超えてしまい、エラーとなりえます。

Dim a As Integer = 123456789

Dim b As Integer = 987654321

Dim c As Long = a * b   'エラー！ 

Dim d As Long = CLng(a) * CLng(b)  'これならOK! 

上記の場合、a×b を演算した結果は 121,932,631,112,635,269 です。
変数 c は Long 型で、その最大値 9,223,372,036,854,775,807 を下回っているため
一見すると格納できるようにも思えますが、Integer × Integer という計算は
Integer の精度で行えるため、値を代入する前に、計算処理の段階でエラーとなります。



> ゼロ割の可能性を調べるために、
ゼロ割についていえば、その結果は以下の 4 種に分類されます。

★DivideByZeroException になる例
　・/ 演算子にて Decimal のゼロで割った場合
　・\ 演算子でゼロ割りした場合
　・Mod 演算子でゼロ割りした場合

★エラーにならない例
　・Double 型や Single 型としてゼロ割りされた場合(±∞になる)

★OvreflowException になる例
　・ゼロ割りして無限大になった値を Integer 変数等に代入した場合

★コンパイルエラーになる例
　・BC30542：評価段階で DivideByZeroException が検出される場合「例：Dim a As Double  = 10 \ 0」
　・BC30439：評価段階で OvreflowException     が検出される場合「例：Dim a As Integer = 10 / 0」



> i1(配列1), j1(配列2), val(i1,j1)(値)
> i1(配列1), j1(配列2), x(i1)(座標1), y(j1)(座標2), val(i1,j1)(値)

VB には「Val 関数」がありますので、val という名の配列の利用は避けた方が無難です。
(Val という名にしても、実行結果そのものには影響を与えないのですけれどね)


> また、オーバーフローエラーは
> 解決出来るものでしょうか？
再現性があるようですし、原因さえ突き止めれば回避策も見えてくるでしょう。
0