Question

vb题：输出九乘九表的上三角和下三角

Answer 1

都不小是你说的上三角,和下三角是什么意思

Answer 2

Private Sub Form_Click()
Dim a As Integer
Dim b As Integer
Dim c As String

For a = 1 To 9
c = ""
For b = 1 To a
c = c & a & "×" & b & "=" & a * b & vbTab
Next b
Print c
Next a
Print

For a = 1 To 9
c = ""
For b = a To 9
c = c & a & "×" & b & "=" & a * b & vbTab
Next b
Print c
Next a
print
For a = 1 To 9
c = ""
For b = a To 9
c = c & a & "×" & b & "=" & a * b & vbTab
Next b
Print Spc((a - 1) * 8); c
Next a
Print

End Sub

Answer 3

上三角
Private Sub Form_Click()
Dim i, j As Integer
Dim s As String
Print Tab(35); "九九乘法表"
For i = 1 To 9
For j = i To 9
s = i & "×" & j & "=" & i * j
Print Tab((j - 1) * 9 + 2); s;
Next j
Print
Next i
End Sub
-----------------------------------------
下三角
Private Sub Form_Click()
Dim i, j As Integer
Dim s As String
Print Tab(35); "九九乘法表"
For i = 1 To 9
For j = 1 To i
s = i & "×" & j & "=" & i * j
Print Tab((j - 1) * 9 + 2); s;
Next j
Print
Next i
Print
Print
End Sub

看看 有什么不同