VB程序设计 1、 编程计算S=1/1!+1/2!+1/3!+…..+1/n!,n的值通过inputbox从键盘输入,计

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调试过了。之前我错了。忘了你这个不是整数结果。都是小数。这回没错了！