Private Sub Form_click() Dim i As Integer, j As Integer For i = 1 To 9 For j = i To 9 Print i; "*"; j; "="; i * j; " "; Next j Print Next i End Sub for嵌套循环,如有问题,请追问本回答被网友采纳
楼主提供的程序代码,语句有点混乱,运行也不正确. 请参考我提供的以下的乘法表(思路清晰): Private Sub Form_Click() Print Tab(35); "乘法表" Dim Se As String For I = 1 To 9 For J = 1 To I Se = I & "X" & J & "=" & I * J Print Tab((J - 1) * 9); Se; Next J Print Next I End Sub
第3个回答 2013-09-24
Private Sub Form_Click() Print Tab(35); "乘法表" Dim Se As String For I = 1 To 9 For J = 1 To I Se = I & "X" & J & "=" & I * J Print Tab((J - 1) * 9); Se; Next J Print Next I End Sub
第4个回答 2013-09-24
Private Sub Command1_Click() Dim I, J As Integer For I = 1 To 9 For J = I To 9 Print J & "*" & I & "=" & CStr(I * J) & Space(2); Next J Print Next I End Sub