Question

请问怎么用VB打出九九乘法表下三角?

Answer 1

Private Sub Form_Click()
Dim i As Integer, j As Integer
For i = 1 To 9
For j = 1 To i
Print j & "*" & i & "=" & i * j,
Next j
Print
Next i
End Sub

Answer 2

i=1
j=1
for i = 1 to 9
for j= 1 to 9
print i & " * " & j & " = " & i*j
print " "
if i = j then exit for
next
print chr(13)
next

Answer 3

Private Sub Form_Click()
For i = 1 To 9
For j = i To 9
Print i & "*" & j & "=" & i * j & " ";
Next j
Print
Next i
End Sub