Private Sub Form_Load()
Dim N1, N2 As Integer '声明变量N1和 N2为整型变量
Cls
FontSize = 14 '设置"数学九九乘法表"标题文字的大小
ForeColor = RGB(255, 0, 0) '设置"数学九九乘法表"标题文字的颜色
Print Tab(30); "数学九九乘法表": Print
FontSize = 10 '设置"数学九九乘法表"文字的大小
ForeColor = RGB(0, 0, 255) '设置"数学九九乘法表"文字的颜色
For N1 = 1 To 9
For N2 = 1 To N1
Print Tab(N2 * 12 - 12); Str$(N1) + "×" + Str$(N2) + "=" + Str$(N1 * N2);
Next N2
Print '每显示完一行后换行
Next N1
End Sub