这样打印的乘法口诀表

Question

1*1=1 1*2=2 1*3=3…………………………1*9=9
      2*2=4 2*3=6…………………………2*9=18
            3*3=9…………………………3*9=27
                 …………………………4*9=36
                     ……………………5*9=45
                            ……                                     9*9=81
            请问这该如何搞？谢谢

Answer 1

Dim Str as String
Str = "1*1=1 1*2=2 1*3=3…………………………1*9=9" 
Str = Str & chr(13) & "      2*2=4 2*3=6…………………………2*9=18"
Str = Str & chr(13) & "            3*3=9…………………………3*9=27
Str = Str & chr(13) & "                 …………………………4*9=36
Str = Str & chr(13) & "                     ……………………5*9=45
    ...........................Str = Str & chr(13) & "                                     9*9=81me.print Str这就是最简单的方法。

Answer 2

我要简化你的代码：
print "1*1=1 1*2=2 1*3=3…………………………1*9=9" & chr(13) & "      2*2=4 2*3=6…………………………2*9=18" & chr(13) & "            3*3=9…………………………3*9=27" & chr(13) & "                 …………………………4*9=36" & chr(13) & "                     ……………………5*9=45"
    ........................... & chr(13) & "                                     9*9=81"

Answer 3

'乘法口诀表
'1X1=1
'1X2=2 2x2=4
'1X3=3 2x3=5 3X4=12
'1X4=4 2x4=8 3X5=15
'.........Private Sub Command1_Click()
On Error GoTo err
Dim i, j, k1
Dim m '打印范围
m = Text1 '获取数值
m2 = m '此变量保证只打印某个数的乖法表
If m = 1 Then m = 9 '输入1打印全部
Label1 = ""
For j = 1 To m  '开始打印
  For i = m2 To m
    r = i * j '相乖结果
    If Len(r) = 1 Then r = r & "  " '为了显示方便补空格
    If Len(r) = 2 Then r = r & " " '为了显示方便补空格
    k1 = i & "x" & j & "=" & r & " " '乖法算式显示
    If i = j Then k1 = k1 & Chr(13)  '为了好看点
    pr k1 '打印出一行
    k1 = "" '清除
    If i = j Then Exit For '使程序能打印成梯形
  Next i
Next j
Me.Width = Label1.Width + 80
Me.Height = Label1.Height + Command1.Height + 450
Exit Sub
err:
MsgBox err.Description
End Sub
Public Function pr(s)
Label1 = Label1 & s
End Function

Answer 4

Dim i As Integer, j As Integer, r As Integer
    Dim strOut As String
    For i = 1 To 9
        For j = i To 9
            If j = i Then
                strOut = strOut & vbCrLf '''''''''''換行
                strOut = strOut & Space(3 * i) '''''表示第一行該有的空格數
            End If
            r = i * j
            strOut = strOut & CStr(i) & "*" & CStr(j) & "=" & CStr(r) & Space(3 - Len(CStr(r))) ''''添加一個算式
        Next
    Next
    Debug.Print strOut '''''以下是輸出
    Print strOut