Question

利用for循环求1！+3！+5！+ 7！+9！的值（12分）

Answer 1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Result As Long = 0
For i As Integer = 1 To 9 Step 2
Result += Stair(i)
Next
Debug.WriteLine(Result)
End Sub

Private Function Stair(ByVal Num As Integer) As Long
If Num = 1 Then Return 1
If Num = 0 Then Return 0
Dim Result As Long = 1
For i As Integer = 1 To Num
Result *= i
Next
Return Result
End Function

输出368047

Answer 2

t=1 s=0for i=1 to 9 step 2 for j=i to 1 step -1 t=t*j next j s=s+tnext iprint s