Dim s!, sum!s = 179sum = 179While s > 0s = s * (1 / 10)sum = sum + s * 2'Print sWendPrint "最后结果" & sum
