Dim s,n ,i as Integer
for i=1 to 100
n=(-1)^(i+1) /i
s=s+n
next i
print s在excle中如何检查添加一个 命令按钮定义它的单击属性为再添加一个文本显示框 显示结果就可以了Private Sub CommandButton1_Click()Dim s, n, i As IntegerFor i = 1 To 100n = (-1) ^ (i + 1) / is = s + nNext iTextBox1.Text = sEnd Sub添加一个 命令按钮定义它的单击属性为