求阶乘和4!+8!+12!。。。+32!vb

发布网友发布时间：2022-05-30 00:46

我来回答

共5个回答

热心网友时间：2024-12-14 17:35

湘湖泛舟，那是不行的！
你的结果是0

就算你把错误改正了，得到 2.63131141822659E+35
可是我们知道，求阶乘人家都不要科学计算法的。

应该自己定义任意长度整数的乘法和加法。才能作好这道题目。

热心网友时间：2024-12-14 17:35

很简单~！添加个按钮加我的代码即可~！
i=1
do while i<=8
p=1
for j= 1 to 4*i
p=p*j
next j
s=s+p
i=i+1
loop
print s

热心网友时间：2024-12-14 17:36

代码有误，删除答案先。

热心网友时间：2024-12-14 17:36

Private Sub Form_Click()
Dim sum As Double, temp As Double
For i = 4 To 32 Step 4
s = 1
For j = 1 To i
s = s * i
Next j
sum = sum + s
Next i
Print sum
End Sub

热心网友时间：2024-12-14 17:37

public function jiechen()
dim sum as long
dim jc as integer=1
dim i as integer=4
for n=i to 32 step 4
for i to 1 step -1
jc*=i
next i
sum+=jc
next n
return msgbox(sum)
end function