Question

求问一道VB题 需要完整的正确答案~~谢谢~

编写程序，在文本框Text1中输入t，在窗体的单击事件中完成：计算：1-1/3!+1/5!-1/7!+…，将结果放入文本框Text2中。
要求表达式中参与计算的每一项的绝对值必须大于等于t，但当项的绝对值小于t时不再计算。
所有变量使用变体类型。要求结果保留小数8位。
如：输入：0.01，输出：.83333333。

Answer 1

给分启中衡吧！
Private Sub Form_Click()
i = 1
l = 0
a:
k = 1
For j = 1 To 2 * i + 1
k = j * k
Next

If (1 / k) >= Val(Text1.Text) Then
i = i + 1
l = l + ((-1) ^ (i + 1)) /悄做 k
GoTo a:
End If
Text2.Text = Format(l, "0.00000000"培基) + 1
End Sub

追问

好像还不行，运行后有错误 实行错误'6' 溢出
提示是 k = j * k 这里出问题了

追答

没问题的，你提示溢出是因为你在text1里没有输入数字，输入数字后再点击窗体就可以了

Answer 2

留名