九九乘法表之一

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim answer As Integer
        Dim i, j As Integer
        Dim KtoK As String
        KtoK = ""

        For i = 2 To 9 Step 1

            For j = 1 To 9 Step 1

                KtoK &= i & "*" & j & "=" & i * j & vbTab

            Next j
            KtoK &= vbNewLine

        Next i
        KtoK &= vbNewLine

        answer = MsgBox(KtoK, MsgBoxStyle.OkOnly, "九九乘法表")

    End Sub

End Class