'代码优化 正三角 Cls '清屏 For i = 1 To 9 For k = 1 To i Print k & "x" & i & "=" & i * k & Space(5 - Len(i * k)); Next k Print Next i '倒三角 'Cls '清屏 For i = 9 To 1 Step -1 For k = 1 To i Print k & "x" & i & "=" & i * k & Space(5 - Len(i * k)); Next k Print Next i
'代码优化 正三角 Cls '清屏 For i = 1 To 9 Print Space((9 - i) * 9); For k = 1 To i Print k & "x" & i & "=" & i * k & Space(5 - Len(i * k)); Next k Print Next i '倒三角 'Cls '清屏 For i = 9 To 1 Step -1 Print Space((9 - i) * 9); For k = 1 To i Print k & "x" & i & "=" & i * k & Space(5 - Len(i * k)); Next k Print Next i