VB程序设计－九九乘法表
（作者：草原飞狼 2014年5月31日）
声明：仅供学习与交流使用，高手请飘过，谢谢！所有代码都是个人亲自编写并调试成功。
布局
运行界面（1）
运行界面（2）
源代码如下：
Private Sub Command1_Click()
Rem 乘法表算法一
Dim i, j As Integer
For i = 1 To 9
For j = 1 To i
expss = i & "*" & j & "=" & i * j
Form1.Picture1.Print Tab((j - 1) * 8 + 1); '控制每个输出表达式的输出位置
Form1.Picture1.Print expss;
Next j
Form1.Picture1.Print
Next i
End Sub
Private Sub Command2_Click()
Rem 乘法表算法二
Dim i, j As Integer
For i = 9 To 1 Step -1
For j = 1 To i
expss = j & "*" & i & "=" & i * j
Form1.Picture1.Print Tab((j - 1) * 10 + 1); '控制每个输出表达式的输出位置
Form1.Picture1.Print expss;
Next j
Form1.Picture1.Print
Next i
End Sub
Private Sub Command3_Click()
Rem 清空
Form1.Picture1.Cls
End Sub
Private Sub Command4_Click()
Rem 退出
Dim int_msg As Integer
int_msg = MsgBox("单击“是”退出程序,单击“否”返回程序！", vbYesNo + vbQuestion + vbDefaultButton1, "退出提示")
If int_msg = vbYes Then
Unload Me
End If
End Sub
Private Sub Form_Load()
Rem 初始化
With Picture1
.FontName = "宋体"
.FontSize = 12
.FontBold = True
.ForeColor = &H80FF&
End With
End Sub
