VB语言---Dim i As IntegerDim counter As Integer '记录满足要求的数目counter = 0For i = 10 To 1000If i Mod 7 = 0 Then counter = counter + 1If i Mod 70 And i Mod 9 = 0 Then counter = counter + 1Next i----C语言---int i,counter=0;for(i=10;i<=1000;i++){ if(i%7==0)counter++;
if(i%7 !=0 && i%9==0)counter++;}