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字体
vb所有代码With Form1
    Picture1.FontName = "宋体"
    Picture1.FontSize = 16
    FontBold = True
End With
Label1.Caption = "求1-1000之间能够被13整除的数，每10个换行显示"
Label1.ForeColor = vbRed
End Sub

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。