Vb.net 文本框中的乘法表

您可能需要运行程序才能理解，但我希望我的循环：

For i = 1 To final
txttable.Text += vbCrLf + CStr(i) + " "
Next

和其他人在同一条线上

所以如果我输入5，它看起来是这样的

  5 

    1 2 3 4 5

 1  1 2 3 4 5
 2  2 4 6 8 10
 3  3 6 8 12 15
 ... to 5

Text是一个文本框

也许我必须重写一些代码才能让它工作，如果你有任何建议，不要害羞

Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim final As Integer
    Integer.TryParse(txtfinal.Text, final)
    Select Case final
        Case 2 To 20
            txttable.Text = (final).ToString + vbCrLf
            For i = 1 To final
                txttable.Text += vbCrLf + CStr(i) + " "
            Next
            For i = 1 To final
                txttable.Text += vbTab + CStr(i) + " "
            Next
            txttable.AppendText(Environment.NewLine)
            txttable.AppendText(Environment.NewLine)
            For ligne As Integer = 1 To final
                For col As Integer = 1 To final
                    txttable.Text += vbTab + (ligne * col).ToString
                Next
                txttable.Text += vbCrLf
            Next
        Case Else
            MessageBox.Show("veuillez entrez une valeur entre 2 et 20 inclusivement")
            txtfinal.Clear()
            txtfinal.Focus()
    End Select
End Sub

---

结束课程

尝试更像

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim final As Integer
    If Integer.TryParse(txtfinal.Text, final) Then
        If final >= 2 AndAlso final <= 20 Then
            Dim sb As New System.Text.StringBuilder
            sb.AppendLine(final.ToString)

            For col As Integer = 1 To final
                sb.Append(vbTab & col.ToString() & " ")
            Next
            sb.Append(vbCrLf & vbCrLf)

            For row As Integer = 1 To final
                sb.Append(row.ToString)

                For col As Integer = 1 To final
                    sb.Append(vbTab & (row * col).ToString)
                Next

                sb.Append(vbCrLf)
            Next

            txttable.Text = sb.ToString
            Exit Sub
        End If
    End If

    MessageBox.Show("veuillez entrez une valeur entre 2 et 20 inclusivement")
    txtfinal.Clear()
    txtfinal.Focus()
End Sub

---

当输入5时。

在VB.Net中，字符串的首选连接是

&

运算符，因此

&=

也有效。

5
    1   2   3   4   5 

1   1   2   3   4   5
2   2   4   6   8   10
3   3   6   9   12  15
4   4   8   12  16  20
5   5   10  15  20  25