Private Sub form_click()For i = 2 To 100flag = 0For j = 2 To i - 1 If i Mod j = 0 Then flag = 1: Exit ForNextIf flag = 0 Then Text1.Text = Text1.Text & j & " "End IfNext iEnd Sub