For a real fix use the CURRENCY type (only in qb 7.1)

DIM BILL, CASH, CHANGE AS CURRENCY
INPUT "BILL"; BILL
INPUT "CASH"; CASH
CHANGE = CASH - BILL
PRINT "CHANGE:"; CHANGE
PRINT "DOLLARS:"; INT(CHANGE)
CHANGE = (100 * CHANGE) MOD 100
PRINT "QUARTERS:"; CHANGE \ 25
CHANGE = CHANGE MOD 25
PRINT "DIMES:"; CHANGE \ 10
CHANGE = CHANGE MOD 10
PRINT "NICKLES:"; CHANGE \ 5
CHANGE = CHANGE MOD 5
PRINT "PENNIES:"; CHANGE