Ç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