99-15

 

'15.列出九九乘法表。
Public Class Form1
    Dim i, j As Integer
    Dim s, w As String
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i = 1 To 9
            For j = 1 To 9
                s = s & j & "*" & i & "=" & Format(i * j, "0#") & "   "
                w = s & j & "*" & i & "=" & Format(i * j, "0#") & "   "
            Next
            TextBox1.Text = w & vbNewLine
        Next
        TextBox1.Text = s & vbNewLine
    End Sub
End Class