主页 / 问题 / 1208678
Accepted
CuByc
Asked:2021-11-23 21:47:29 +0000 UTC2021-11-23 21:47:29 +0000 UTC

在VBA中计算6号的阶乘[关闭]

  • 772

刚开始VBA在大学学习，不知道怎么解决这个问题：使用循环运算符，for计算数字6的阶乘值：

Sub Task7()
Dim i As Single, s As Single
For i = 1 To 6 Step 1
  i = i + 1
  s = i ^ 2
Next i
MsgBox s
End Sub
циклы

1 个回答

  1. Best Answer

    这是这里的一个例子

    Public Function Factorial(ByVal iValue As Integer) As Long 
Dim fact As Long 
Dim icount As Integer 
   fact = 1 
   For icount = 1 To iValue 
      fact = icount * fact 
   Next icount 
   Factorial = fact 
End Function

    如果你做这样的事情

    Sub Task7()
Dim i As Single, s As Single
s = 1;
For i = 1 To 6 Step 1
   s = i * s
Next i
MsgBox s
End Sub
    • 2

相关问题