VB程序设计－整除统计并换行输出
（作者：草原飞狼 2014年5月28日）
声明：仅供学习与交流使用，高手请飘过，谢谢！所有代码都是个人亲自编写并调试成功。
布局
运行界面（1）
运行界面（2）
源代码如下：
Private Sub Command1_Click()
Rem 求1-1000之间能够被13整除的数，每10个换行显示
Dim i, j As Integer
j = 0 '行输出控制变量For i = 1 To 1000
If i Mod 13 = 0 Then
Picture1.Print i;
Rem 以下三行控制行输出数量，也可以直接使用变量i
j = j + 1
If j Mod 10 = 0 Then '把j换成i也正确Picture1.Print
End If
End If
Next i
End Sub
Private Sub Command2_Click()
Rem 清空
Form1.Picture1.Cls
End Sub
Private Sub Command3_Click()
Rem 退出
Dim int_msg As Integer
int_msg = MsgBox("单击“是”退出程序，单击“否”程序将返回！", vbYesNo + vbQuestion + vbDefaultButton1, "退出提示")
If int_msg = vbYes Then
Unload Me
Else
MsgBox "你选择不退出，程序将继续进行！", vokonly + vbExclamation, "返回程序"
End If
End Sub
Private Sub Form_Load()
Rem 初始化，设置picture1字体
With Form1
Picture1.FontName = "宋体"
Picture1.FontSize = 16
FontBold = True
End With
Label1.Caption = "求1-1000之间能够被13整除的数，每10个换行显示"
Label1.ForeColor = vbRed
End Sub
