計算結果が異常である

[HSABP]

コード: 全て選択

#N88BASIC
Dim a As Byte
Dim b As Long
Dim c As Long

a = 240
b = 50
c = a+b
Print c

結果が34。
期待値は290。
なぜ型の拡張規則を有効にならないのか？

[ゲスト]

環境くらい書けよ

Byte型だから。
BytePtrなら290。

64bitだとByte型でも290。
AB4.24
Windows7 x64

[HSABP]

BytePtrなら290。ってポインタに値いれるなんて常識では考えられんぞ

コード: 全て選択

Dim a As BytePtr
Dim b As Long, c As Long
a=250
b=40
c=a+b

こんなコード書くバカがあるかｗ

64bitならって、Byte型の大きさが違うのか？

Byte型だからって勝ち誇ったようにいってるが、
他の型なら拡張規則が有効になるのか？え？

よく分からないんなら回答するなやボケが。

XP Win32 AB3.24.00

[konisi]

コード: 全て選択

#N88BASIC
Dim a As Byte
Dim b As Long
Dim c As Long

a = 240
b = 50
c = a As Long+b
Print c

とでもしてあげてください。

[HSABP]

コニたんがそう言うのならしょうがないんだろうな
C=b+aなら期待する結果をだすから
最初に出た型で演算が行われるのかな

Samples\CDPlayerもこの問題で正常に動かないし。