求解VB改错题,麻烦各位高手调试改错题3,程序中有3个错误.用下列多项式可求得π的近似值：计算当n不超过300时π的近似值.程序中有3个错误,请调试改正.PrivateSubCommand3Click()'调试改错题3按

Question

求解VB改错题,麻烦各位高手
调试改错题3, 程序中有3个错误.
用下列多项式可求得π的近似值：

计算当n不超过300时π的近似值.程序中有3个错误,请调试改正.
Private Sub Command3_Click()
'调试改错题3按钮
Dim pi#, t#, n#, s%
pi = 0
n = 1
s = 1
Do
n = n + 2
t = 1 / n
s = -1 '用于分式正负符号转换
pi = pi + s * t
Loop While n

Answer 1

s = -1,应该是s=-s
还有& 和 +,要是我,都用 +
用 &我一般空开.
还有,建议写成
dim pi as double
dim n as integer
dim s as integer
新的VB不提倡你那样写.