Question

求VB下三角九九乘法表

Answer 1

Private Sub Command1_Click()

For i = 1 To 9

For j = 1 To i

Print Trim(i); "*"; Trim(j); "="; Trim(i * j); "  ";

If i * j < 10 Then Print " ";

Next j

Print

Next i

End Sub

Answer 2

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Dim i, j, ji, spaces, kongge As Short
Dim huiche As String
kongge = 0
huiche = Chr(13) + Chr(10)
Label2.Text = ""
For i = 1 To 9
For j = i To 9
ji = i * j
spaces = IIf(ji >= 10, 2, 3)
Label2.Text = Label2.Text & CStr(i) & "×" & CStr(j) & "=" & CStr(ji) & Space(spaces)
kongge = i * 5 + i * 4
Next

Label2.Text = Label2.Text & huiche & Space(kongge)
Next
End Sub