两种实现九九乘法表的vb代码

第一种：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '基本形式，9行9列的输出格式
        '可以考虑使用双重循环，行为外部，列为内部
        Dim i, j, sum As Integer
        Dim ts As String
        Label1.Text = ""
        For i = 1 To 9 Step 1


            For j = 1 To 9 Step 1
                sum = i * j
                ts = i.ToString() & "*" & j.ToString() & "=" & sum.ToString()
                Label1.Text = Label1.Text & ts & Space(10 - Len(ts))


            Next
            Label1.Text = Label1.Text & vbCrLf
        Next


    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim i, j, sum As Integer      ’上三角输出
        Dim ts As String
        Label1.Text = ""
        For i = 1 To 9 Step 1


            For j = 1 To i Step 1
                sum = i * j
                ts = i.ToString() & "*" & j.ToString() & "=" & sum.ToString()
                Label1.Text = Label1.Text & ts & Space(10 - Len(ts))


            Next
            Label1.Text = Label1.Text & vbCrLf
        Next


    End Sub


    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim i, j, sum As Integer
        Dim ts As String              '下三角输出
        Label1.Text = ""
        For i = 1 To 9 Step 1
            'Label1.Text = Space(i * 10)
            For j = i To 9 Step 1
                sum = i * j
                ts = i.ToString() & "*" & j.ToString() & "=" & sum.ToString()
                Label1.Text = Label1.Text & ts & Space(10 - Len(ts))


            Next
            Label1.Text = Label1.Text & vbCrLf & Space(i * 10)
            ' Label1.Text = Space(i * 10)
        Next


    End Sub
End Class

第二种：

Public Class Form1


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim i, j As Integer
        Dim se As String
        Label1.Text = ""
        For i = 1 To 9 Step 1
            For j = 1 To 9 Step 1


                se = i & "x" & j & "=" & i * j
                Label1.Text &= se & Space(10 - Len(se))
            Next
            Label1.Text &= vbCrLf


        Next
    End Sub


    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim i, j As Integer
        Dim se As String
        Label1.Text = ""
        For i = 1 To 9 Step 1
            For j = 1 To i Step 1


                se = i & "x" & j & "=" & i * j
                Label1.Text &= se & Space(10 - Len(se))
            Next
            Label1.Text &= vbCrLf


        Next
    End Sub


    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim i, j As Integer
        Dim se As String
        Label1.Text = ""
        For i = 1 To 9 Step 1
            For j = i To 9 Step 1


                se = i & "x" & j & "=" & i * j
                Label1.Text &= se & Space(10 - Len(se))
            Next
            Label1.Text &= vbCrLf & Space(i * 10)


        Next
    End Sub
End Class

有疑问可以留言