Factorial Series (SIMPLE) Code:
Module Module1
Sub Main()
Dim factorial As Integer
For n = 1 To 5
factorial = 1
For m = 1 To n
factorial = factorial * m
Next
If n = 1 Then
Console.Write(factorial)
Else
Console.Write("+" & factorial)
End If
Next
End Sub
End Module
Factorial Series (EXTENDED) Code:
Module Module1
Sub Main()
Dim buffer As String
Dim factorial As Integer
Dim buffer2 As String
buffer = ""
buffer2 = ""
For n = 1 To 5
factorial = 1
For m = 1 To n
factorial = factorial * m
Next
If n = 5 Then
buffer2 = buffer2 & n & "!"
buffer = buffer & factorial
ElseIf n <> 5 Then
buffer = buffer & factorial & " + "
buffer2 = buffer2 & n & "! + "
End If
Next
Console.WriteLine("Factorial Series : " & buffer2 & "=" & buffer)
End Sub
End Module