Question

VB计算n个整数的阶乘和

Answer 1

Private Sub Command1_Click()

Dim n As Integer

n = InputBox("n=")

For i = 1 To n

s = s + fac(i)

Next i

Print "1!+2!+...+"; Str(n); "!="; s

End Sub

Function fac(n)

f = 1

For i = 2 To n

f = f * i

Next i

fac = f

End Function

Answer 2

'计算阶乘的函数
Private Function factorial(ByVal N As Long) As Double
Dim i As Long
Dim sum As Double
sum = 1
For i = 1 To N
sum = sum * i
Next
factorial = sum
End Function

Answer 3

Private Sub Command1_Click()
Dim AA As Double, BB As Integer, CC As Double
BB = Val(Text1.Text)
CC = 1
For J = 1 To BB
CC = CC * J
AA = AA + CC
Next J
Text1.Text = AA
End Sub

Answer 4

Private Sub Command1_Click()For i = 1 To 10 Sum = Sum + jiecheng(i)NextPrint SumEnd SubFunction jiecheng(num)jiecheng = 1 For i = 1 To num jiecheng = jiecheng * i NextEnd Function

Answer 5

不知道你说的什么