vb 双重for循环 打印乘法口诀表 print不换行输出

实验11 用循环语句打印数学乘法表

实验内容

1. 掌握使用For Next语句/Do Until Loop语句/Do While Loop语句进行循环控制
2. 用循环语句打印数学乘法表
3. 编写实验报告。

实验环境

Windows7，Office、VB开发环境。

实验运行结果

点击“打印”后的效果：

点击“清屏”后的效果：

实验代码

Private Sub Command1_Click()
     Print
     Print
     Print
     Print
     Print
    Dim a, b As Integer
    FontSize = 12
    For a = 1 To 9
        For b = 1 To a
            'Print Str$(b) + " × "; Str$(a) + " = " + Str$(a * b);
             Print Tab(b * 12 - 12); Str$(b) + "×"; Str$(a) + "=" + Str$(a * b);
        Next b
        Print
    Next a
End Sub

Private Sub Command2_Click()
Form1.Cls
End Sub

关于print换行

print '输出空行，并换行
print S '输出S的值，并换行
print S; '输出S的值
是否换行不在于print，而在于print后面的表达式最后是否有;分号，有就不换行，没有就换行

实验心得体会

学习使用了For Next语句/Do Until Loop语句/Do While Loop语句进行循环控制，用for循环语句打印数学乘法表。为了进行格式控制，在print中使用tab与内循环数字相关联，达到了打印输出时每一列有相同缩进值的效果，这样能够使格式更加美观。
另外在本程序中，我添加了“Form1.Cls”语句，可以在点击“清屏”按钮后清空Form1中输出的内容。