投稿日 | : 2003/01/10(Fri) 15:15 |
投稿者 | : Abe-N |
URL | : |
タイトル | : VB6で変数に値を代入するとエラー |
VB6で変数に値を代入すると、エラーが発生します。
データの型、範囲は間違っていません。
回避方法はないでしょうか?
ソースは、以下の通りです。
ReDim Mφin(0 To 1, 0 To 1, 1 To 断面数)
'↑断面数は最大10です。
For Hoko% = 0 To 1
For ifr% = 0 To 1
For I% = 1 To 断面数
Mφin(Hoko%, ifr%, I%).Upos = 0
Mφin(Hoko%, ifr%, I%).nbun = 計算分割数
'↓このステートメントでオーバーフローします。
Mφin(Hoko%, ifr%, I%).sgmsy = wsgmsy
Next
Next
Next
*Mφin(Hoko%, ifr%, I%).sgmsyはDouble型、wsgmsyはSingle型で、
値は 23000 です。
以上、宜しくお願いします。