杭州交通信息网wirelessmon中文版:VB编写右下角形式的九九乘法表
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/27 14:02:28
右下角形式即：
第一行右对齐1*1= 1
最后一行9*1= 9......9*9=81
若乘出来结果是个位数，前面补一空格以求每列对齐。
大恩不言谢^^
第一行右对齐1*1= 1
最后一行9*1= 9......9*9=81
若乘出来结果是个位数，前面补一空格以求每列对齐。
大恩不言谢^^
Private Sub Command1_Click()
For x = 1 To 9
For y = 1 To x
If x * y < 10 Then
Print x & "*" & y & "=" & Chr(32) & x * y & Chr(32);
Else
Print x & "*" & y & "=" & x * y & Chr(32);
End If
Next
Print
Next
End Sub
Private Sub 确定_Click()
Dim i As Integer
Dim j As Integer
Dim str As String
Me.AutoRedraw = True
For i = 1 To 9
str = ""
For j = 1 To 9
str = str & i & "×" & j & " = "
str = str & i * j
str = str & vbTab
Next j
Print str
Next i
End Sub