九九乘法表,示例图如下:
具体实现为:
通过两个循环语句控制其结构,外层循环控制输出行数,内层循环控制输出的列数。
具体实现代码为:
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Print "* "; "|";
For i = 1 To 9
Print Tab(i * 6); i;
Next
Print
Print "============================================================"
For j = 1 To 9
Print j; "|";
For i = 1 To j
Print Tab(i * 6); i * j;
Next
Print
Next
End Sub
注意其中内层循环变量从1到j,如果从1到9,则输出的九九表为: