1. Reklam


    1. joysro
      ledas
      jungler
      keasro
      zeus
      karantina

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


  1. Black Rain

    Black Rain Aileden rank8

    Kayıt:
    17 Kasım 2007
    Mesajlar:
    10.698
    Beğenilen Mesajlar:
    2
    Ödül Puanları:
    38
    Meslek:
    Kamyon Şöförü
    Şehir:
    Bursa / Gemlik
    Girdiğiniz sayının üssünü bulan program
    Kod:
    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)
      sonuc = 1
    
      If y > 0 Then
        For i = 1 To y
          sonuc = sonuc * x
        Next
      End If
    
      If y = 0 Then sonuc = 1
    
      If y < 0 Then
        y = -y
        For i = 1 To y
          sonuc = sonuc * x
        Next
        sonuc = 1 / sonuc
      End If
    
      MsgBox("sonuc=" & Str(sonuc))