- Код: Выделить всё
Dim x As Single
Dim y As Single
x=0.12345
y=0.22231
MsgBox Str$(x/y)
Результат:
- Код: Выделить всё
VB6 - .5553057
PowerBASIC - .5553056
Dim x As Single
Dim y As Single
x=0.12345
y=0.22231
MsgBox Str$(x/y)
VB6 - .5553057
PowerBASIC - .5553056
Qwertiy писал(а):Ну что у всех за привычка выполнять вычисления в Single?
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 15