投稿日 | : 2003/01/10(Fri) 17:32 |
投稿者 | : A221 |
Eメール | : |
URL | : |
タイトル | : Re: 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 です。
>
> 以上、宜しくお願いします。
CsngでSingle型に変換してみてもだめなのですか?