VB程序设计 1、 编程计算S=1/1!+1/2!+1/3!+…..+1/n! ，n的值通过inputbox从键盘输入，计算结果在窗体上输

Answer 1

Private Sub Command1_Click()
Dim i As Integer, j As Integer, n As Integer
Dim sum1 As Long, sum2 As Long
n=inputbox("请输入n的值")
sum1 = 0
sum3=1
For i = 1 To n
sum2 = 1
For j = 1 To i
sum2 = sum2 * j
sum3=sum2^(-1)
Next j
sum1 = sum1 + sum3
Next i
Label1.Caption = Label1.Caption + Str(sum1)
End Sub

需要一个button 和一个lable，结果在lable上显示

追问

输出的答案不对呀，全是等于2。为什么呢？

追答

我这里没有平台。不应该吧。没觉得哪里错了。你在试试。

追问

你是学VB程序设计的吗？帮我解决几道题，好吗？可以加你QQ吗？

追答

把sum2=1 放到for i=1 to n上边

追问

还是全部答案都等于2！呵呵

追答

Private Sub Command1_Click()
Dim i As Integer, j As Integer, n As Integer
Dim sum1 ,sum2, sum3 As Single
n = InputBox("请输入n的值")
sum1 = 0
sum2 = 1
sum3 = 1
For i = 1 To n
For j = 1 To i
sum2 = sum2 * j
sum3 = sum2 ^ (-1)
Next j
sum1 = sum1 + sum3
Next i
Label1.Caption = Label1.Caption + Str(sum1)
End Sub
这回可以了。我用vb调试过了。之前我错了。忘了你这个不是整数结果。都是小数。这回没错了！