Question

这段代码VB中系统老是自己擅自在print中给i的前面自动加空格，我删了他还是自动加，有办法不加空格吗？

Private Sub Form_Click()

Dim i%, n&, e!
i = 1
n = 1
e = 1
Print "e=1";
Do While 1 / n >= 0.00001 'e=1+1/1!+1/2!+....i/n!
n = n * i
e = e + 1 / n
i = i + 1
Print "+1/";i;"!";
Loop
Print "="; e
End Sub

Answer 1

这是VB系统输出数字时的格式。前面有一个符号位（正数就是空格），后面再自动加一个空格。 要想没有空格，可以采用字符串形式。

下面已经改好了：

Private Sub Form_Click()

Dim i%, n&, e!

i = 1

n = 1

e = 1

Print "e=1";

Do While 1 / n >= 0.00001 'e=1+1/1!+1/2!+....i/n!

n = n * i

e = e + 1 / n

i = i + 1

Print "+1/" & i & "!";

Loop

Print "="; e

End Sub