在窗体上输出九九乘法表，保证每一列作对齐

来源：百度知道 编辑：UC知道 时间：2024/06/27 15:40:54
Private Sub Form_Click()
For i = 1 To 9
For j = 1 To #####[1]##### '第1空
Print i & "*" & j & " =";
If i * j < #####[2]##### Then Print " "; '第2空
#####[3]##### '第3空
Next j
#####[4]##### '第4空
Next i
End Sub

#####[1]##########[2]##########[3]##########[4]#####填什么啊？

Private Sub Command1_Click()
For i = 1 To 9
For j = 1 To i
If i * j < 10 Then
Strr = Format(i * j, " #")
Print i & "*" & j & "=" & Strr & Space(5);
Else
Print i & "*" & j & "=" & i * j & Space(5);
End If
Next
Print
Next
End Sub

用format控制输出格式，你看看这个效果行吗？

呵呵，没有看清楚搂主的问题，答案和楼下的稍有不同：

1、i
2、10
3、print i*j;
4、print

Private Sub Form_Click()
Dim se As String
Print Tab(35);"九九乘法表"
Print Tab(35);"__________"
For i = 1 To 9
For j = 1 To 9
se = i & "*" & j & "="& i * j
Print Tab((j - 1) * 9 + 1); se;
Nextj
Print
Next i
End Sub

1、9
2、10
3、print i*j;
4、print

Private Sub Form_Click()
For i = 1 To 9