Sayının Üssünü Bulan Program

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  Dim i, x, y As Integer
  Dim sonuc As Double
  x = Int(TextBox1.Text)
  y = Int(TextBox2.Text)
  s

  If y > 0 Then
    For i = 1 To y
      s * x
    Next
  End If

  If y = 0 Then s

  If y < 0 Then
    y = -y
    For i = 1 To y
      s * x
    Next
    s / sonuc
  End If

  MsgBox("s & Str(sonuc))