Function isprime(Num As Long) As Boolean If Num < 2 Then isprime = False: Exit Function Dim i As Long For i = 2 To Sqr(Num) If (Num Mod i) = 0 Then isprime = False Exit Function End If Next i isprime = True End Function Private Sub Command1_Click() Dim i As Long Dim sum As Long Dim c As Long ...