Private Sub Form_Activate()
Dim N1, N2 As Integer '声明变量N1和 N2为整型变量
FontSize = 12 '设置"数学九九乘法表"标题文字的大小
ForeColor = vbRed '设置"数学九九乘法表"标题文字的颜色为红色
FontBold = True '设置"数学九九乘法表"标题文字为粗体
Print Tab(40); "数学九九乘法表"
FontSize = 10 '设置"数学九九乘法表"文字的大小
ForeColor = vbBlue '设置"数学九九乘法表"文字的颜色为蓝色
FontBold = False '设置"数学九九乘法表"文字为非粗体
For N1 = 1 To 9
For N2 = 1 To N1 '外循环变量N1作为内循环的终值
Print Tab(N2 * 12 - 12); Str$(N1) + "×" + Str$(N2) + "＝" + Str$(N1 * N2);
Next N2
Print '每显示完一行后换行
Next N1
End Sub
这个是VB的九九乘法表
