用VB写乘法表 右下三角的

来源：百度知道 编辑：UC知道 时间：2024/05/14 09:39:17
用VB写99乘法表 右下三角的
就是右边对齐
1*1
2*2 1*2
3*3 2*3 1*3
依次类推.....
平常一般的是直三角形(左边对齐)现在我需要的是只三角形(右边对齐) 问题1*1 1*2 1*3那些空格显示不出来 所以看上去不对

Private

Sub Mul()
Dim a, b, c As Integer
Text1.Text = ""
For a = 1 To 9
For b = 1 To a
c = b * a
Text1.Text = Text1.Text & b & "*" & a & "=" & c & ";"
Next b
Text1.Text = Text1.Text & Chr(13) & Chr(10)
Next a
End Sub

Private Sub Command1_Click()
Dim a, b, c, d As Integer

For b = 1 To 9
For a = 1 To b
c = b * a
If d < b And b <> 1 Then
Print
End If
Print a & "*" & b & "=" & c & " ";
d = b
Next
Next

End Sub