For i = 1000 To 1 Step -1 If (i Mod 13) = 0 And (i Mod 7) = 0 Then Text1.Text = Text1.Text
count=0For i=1 To 1000 IF i%7==0 Then count++Next i
