Question

vb编程计算1!+5!+10!+15!的代码

vb编程计算1!+5!+10!+15!的代码

Answer 1

给你一个示例你参考一下

Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim jc As Long, he As Long
he = 0
For i = 1 To 10
jc = 1
For j = 1 To i
jc = jc * j
Next j
he = he + jc
Next i
Print he
End Sub

追问

能给我确切答案吗？这个参考不了

Answer 2

Private Sub Command1_Click()
s = 1
For i = 5 To 15 Step 5
s = s + fac(i)
Next i
Print "s="; s
End Sub

Function fac(n)
f = 1
For i = 2 To n
f = f * i
Next i
fac = f
End Function

追问

请问是确切答案吗

追答

对啊。运行结果是1307677996921

Answer 3

dim i as integer, x1 as long, x2 as long
x1=1
for i=1 to 15 step 5
for j=1 to i
x1=x1*j
next
x2=x2+x1
x1=1
next
print x2