عدد اول به توان عدد آخر

[mohammad1314]

سلام.
میخوام برنامه ای بنویسم که از کاربر یک عدد رو دریافت کنه(تعداد ارقام مشخص نیست) و عدد اول رو به توان عدد آخر برسونه . در این برنامه نباید از توابع استفاده کنم مانند left , right,mid و ...
باید با استفاده از فرمول ریاضی این کار انجام بشه.

[mohanad1993]

سلام اینم جواب شما
از mid,right,left... استفاده نشده

Dim temp As Boolean = False
Dim Hold As Integer
Dim i As Char

For Each i In TextBox1.Text
If temp = False Then
Hold = Val(i)
temp = True
End If
Next
Label1.Text = Hold ^ (Val(i))