Power Series (SIMPLE)
Code:
Module Module1
Sub Main()
For n = 1 To 5
If n = 5 Then
Console.Write("{0}^{1} ", n, n + 1)
Else
Console.Write("{0}^{1} + ", n, n + 1)
End If
Next
End Sub
End Module
Power Series (EXTENDED)
Output: 1^2 + 2^3+ 3^4 + … = 1+8+ 81 ….
Code:
Module Module1
Sub Main()
Dim buffer As String
Dim temp As Double
temp = 0
buffer = ""
For n = 1 To 5
If n = 5 Then
temp = n ^ (n + 1)
Console.Write("{0}^{1} ", n, n + 1)
buffer = buffer & temp
Else
temp = n ^ (n + 1)
Console.Write("{0}^{1} + ", n, n + 1)
buffer = buffer & temp & "+"
End If
Next
Console.WriteLine(" = " & buffer)
End Sub
End Module