QuickBasic - redondear a un decimal con qbasic

hola, tengo una duda sobre como puedo redondear a un decimal, los resultados de una operacion, sin usar formato, por que esots solo truncan los resultados.....
ya probe con los de punto flotante pero la simple tiene hasta 7 digitos y la lasrga mucho mas....mi coreo es [email protected], si hay algun cometnario al respecto gracias.....

Es bastante simple:

A! = 12.34 : PRINT FIX( (A! * 10) + 0.5) / 10 --> Resulado : 12.3
A! = 12.35 : PRINT FIX( (A! * 10) + 0.5) / 10 --> Resulado : 12.4
A! = 12.36 : PRINT FIX( (A! * 10) + 0.5) / 10 --> Resulado : 12.4

Y a dos decimales:

A! = 12.344 : PRINT FIX( (A! * 100) + 0.5) / 100 --> Resulado : 12.34
A! = 12.345 : PRINT FIX( (A! * 100) + 0.5) / 100 --> Resulado : 12.35
A! = 12.346 : PRINT FIX( (A! * 100) + 0.5) / 100 --> Resulado : 12.35

Tambien puedes hacer una funcion que le pases el valor y el numero de decimales y te redonde. Tipo :

declare function Round(a!, b%)

Un saludo