Private Sub command1_click()Dim i,j,f,c,sumi = 2While i < 1000f = Truej = 2Do While j < iIf i Mod j = 0 Then f = False:Exit Doj = j + 1LoopIf f Thendebug.Print i & vbTab;c = c + 1sum=sum+iIf c Mod 5 =...