- Код: Выделить всё
 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?


Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 6