dim i as integerdim n as integern = 0for i=1 to 100if i mod 7 = 0 thenprint i,n = n + 1if n mod 5 = 0 then Printend ifnext i
