VB学习第八周--特定范围内能被5整除的数

Public Class Form1
    Private Sub TextBox2_KeyPress(ByVal sender As Object,ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
        Dim n,m,i,s,z,nm As Integer
        n = Val(TextBox1.Text)
        m = Val(TextBox2.Text)
        If Asc(e.KeyChar) = 13 Then
            If n > m Then nm = n : n = m : m = nm
            For i = n To m
                s = i
                If s Mod 5 = 0 Then
                    TextBox3.Text &= " " & s
                    z = z + 1
                    If z Mod 4 = 0 Then
                        TextBox3.Text &= vbCrLf
                    End If
                End If
            Next i
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

原文地址：https://www.jb51.cc/vb/258985.html