看某數到某數的１到５次方

前言
好久沒自己寫了(都在寫考古題)
Public Class Form1
Dim a, b, c, d As Int64
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
a = TextBox1.Text
b = TextBox2.Text
TextBox3.Text = ""
For c = a To b
For d = 1 To 5
TextBox3.Text = TextBox3.Text & c & "的" & d & "次方" & "=" & c ^ d & vbNewLine
Next
TextBox3.Text = TextBox3.Text & vbNewLine
Next

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MsgBox("先聲明為了您的電腦好請別輸入太大（不然後果自行負責）")
End Sub
End Class