Private Sub Form_Click() Dim x, y, n As Integer For x = 3 To 100 For y = 2 To x - 1 If x Mod y = 0 Then Exit For ElseIf y = x - 1 Then If n Mod 10 = 0 Then Print Form1.Print x " " n = n + 1 End If Next y Next x End Sub -Pri