求质因子

[vb]代码库

Private Sub Command1_Click()
    Dim n%, i%, m%
    n = Val(Text1)
    For i = 1 To n
        If i = 1 Then
            Picture1.Print
        Else
            If n Mod i = 0 Then
                For m = 2 To i - 1
                    If i Mod m = 0 Then Exit For
                Next m
                If m = i Then
                    Picture1.Print i,
                End If
                Picture1.Print
            End If
        End If
    Next i
End Sub

Private Sub Command2_Click()
    Text1 = ""
    Picture1.Cls
End Sub

Private Sub Command3_Click()
    End
End Sub