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 |