求355/113后的第n位小数

DIM n AS LONG, b AS LONG, c AS LONG
DIM i AS LONG, y AS LONG, s AS LONG （定义变量的类型）
INPUT #1, n （输入小数点后的位数）
b = 355
c = 113
IF n >= 1 AND n <= 999999 THEN （满足的条件）
FOR i = 1 TO n + 1 （包括小数点前的位数共n+1位）
y = b MOD c
s = FIX(b /c)
b = y * 10
NEXT i
Print #2, ltrim$(str$(s))
END IF
CLOSE
#1, #
2
End

谢谢各位大神了！