Question

用VB计算1到10倒数的阶乘

就是那些问号应该怎么改？结果如下图，谢谢各位大大了。





Answer 1

Private Sub Command1_Click()
Dim i%
Dim s As Single
s = 0
For i = 1 To 10
s = s + 1 / compu(i)
Next i
Text1.Text = s
End Sub
Function compu(n%) As Single
compu = 1
Dim i%
For i = 1 To n
compu = compu * i
Next i
End Function

Answer 2

Private Sub cmdclip_Click()
s = 0
For i = 1 To 10
t = 1
For j = 1 To i
t = t * j
Next j
s = s + (1 / t)
Next i

Label1.Caption = s
End Sub

Answer 3

DIm s:s=1
For I=1 to 10
s=s*i
Next
或者
For I=10 to 1 step -1
s=s*i
Next

Answer 4

s=s+1/compu(i)

compu=compu*i