Imports System
Public Class Program
Public Shared Sub Main()
Dim N As Integer = 4, sum As Integer = 0
For i As Integer = 1 To N
Dim pw As Integer = CInt(Math.Pow(i, i))
Console.Write(pw & " + ")
sum = sum + pw
Next
Console.Write("= " & sum)
End Sub
End Class
' run:
'
' 1 + 4 + 27 + 256 + = 288
'