一个问题不要重复发帖，以免浪费别人的时间

你已经发了一篇叫“行行好,帮帮忙,解一题!!!”的帖子了，就是这个问题，我也回答过了，不知道你可看到了，再写一遍。
CLS
DIM a1 AS DOUBLE
DIM a$(5)
FOR i = 1 TO 5
    INPUT a1
    b = a1 - FIX(a1): b$ = LTRIM$(STR$(b))
    dw = LEN(b$) - 1
    IF dw < 2 THEN
       b$ = LTRIM$(STR$(a1))
       IF dw = 0 THEN b$ = b$ + ".00" ELSE b$ = b$ + "0"
    ELSEIF dw > 2 THEN
       a1 = INT(a1 * 100 + .51) / 100: b$ = LTRIM$(STR$(a1))
    ELSE
       b$ = LTRIM$(STR$(a1))
    END IF
    a$(i) = b$
NEXT i
CLS
FOR i = 1 TO 5
    p = INSTR(a$(i), "."): k = 0: m$ = ""
    IF p = 1 THEN a$(i) = "0" + a$(i)
    IF p = 0 OR LEN(a$(i)) - p < 2 THEN
       IF p = 0 OR LEN(a$(i)) - p = 0 THEN
          a$(i) = a$(i) + ".00"
       ELSE
          a$(i) = a$(i) + "0"
       END IF
    END IF
    n$ = "": FOR j = p + 1 TO LEN(a$(i)): n$ = n$ + MID$(a$(i), j, 1): NEXT j
    FOR j = p - 1 TO 1 STEP -1
        k = k + 1
        IF k >= 4 AND k MOD 3 = 1 THEN m$ = "," + m$
        m$ = MID$(a$(i), j, 1) + m$
    NEXT j
    IF m$ <> "" THEN a$(i) = m$
    IF n$ <> "" AND INSTR(a$(i), ".") = 0 THEN a$(i) = a$(i) + "." + n$
NEXT i
t = INSTR(a$(1), ".") - 1
FOR i = 1 TO 5
    IF MID$(a$(i), 2, 1) = "," AND LEFT$(a$(i), 1) = "-" THEN
       a$(i) = "-" + MID$(a$(i), 3)
    END IF
    IF (INSTR(a$(i), ".") - 1) > t THEN t = INSTR(a$(i), ".") - 1
NEXT i
FOR i = 1 TO 5
    s = INSTR(a$(i), ".") - 1
    PRINT TAB(t - s + 1); a$(i)
NEXT i
END