Question

VB，怎么在文本框中输出九九乘法表，最好是三角的

看别人的都是在窗口显示，那有没有人能在文本框中显示，我做不出的是换行，不知哪位高手会

Answer 1

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button.Click
For i = 1 To 9
For j = 1 To 9
If i <= j Then TextBox1.Text = TextBox1.Text & i & "x" & j & "=" & (i * j) & Chr(9)
Next
TextBox1.Text = TextBox1.Text & Chr(13) & Chr(10)
Next
End Sub

End Class

关键在于 Chr() 函数，VS 2008 写的，
还要现做现卖……原样拷过来的，看看能不能用。累……

Answer 2

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim i, k, z As Short
Dim bb As String = ""
If Len(Label2.Text) = 0 Then
For i = 1 To 9
For k = 1 To 9
z = i * k
bb = bb & Str(k) & "x" & Str(i) & "=" & Str(z) & Space(2)
If i = k Then
bb = bb & vbCrLf
Exit For
End If
Next
Next
Label2.Text = bb & Label2.Text
Else
Exit Sub
End If

End Sub