谁能帮帮我。看下用VB怎么才能编出别的啊?

来源:百度知道 编辑:UC知道 时间:2024/06/03 20:12:27
九九乘法表
Private Sub Form_Click()
Dim i As Integer
Dim j As Integer
Dim s As String
s = ""
For i = 1 To 9
For j = 1 To 9
s = s & Str(i) & "*" & Str(j) & "=" & Str(i * j)
If j >= i Then Exit For
Next j
Print s
Print Chr(13)
s = ""
Next i
End Sub

此例打印的是左下三角。如何修改程序打印出左上三角,右上三角,右下三角?

左上三角
Private Sub Form_Click()
Dim i As Integer
Dim j As Integer
Dim s As String

s = ""
For i = 9 To 1 Step -1
For j = 1 To 9
s = s & Str(i) & "*" & Str(j) & "=" & Str(i * j)
If j >= i Then Exit For
Next j
Print s
Print Chr(13)
s = ""
Next i
End Sub