20 Mayıs 2011 Cuma

ÇARPIM TABLOSU (MsgBox ile)



Public Class Form1
    Dim a, b, sonuc As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For a = 1 To 10
            For b = 1 To 10
                sonuc = a * b
                MsgBox(a & " x " & b & "" & "= " & sonuc, MsgBoxStyle.Information, "Ercan Akgün")
            Next
        Next
    End Sub
End Class

Hiç yorum yok:

Yorum Gönder

Hürriyet