编程求1000以内能被3或7整除的数之和

Public Sub Program1()
Dim I
Dim Sum
Sum = 0
For I = 1 To 1000
If I Mod 3 = 0 Or I Mod 7 = 0 Then
Sum = Sum + I
End If
Next
End Sub

SET TALK OFF
CLEAR
I=1
S=0
DO WHILE I<1000
DO CASE
CASE INT(I/3)=I/3
S=S+I
CASE INT(I/7)=I/7
S=S+I
ENDCASE
I=I+1
? S
SET TALK ON
RETURN

#include<stdio.h>
int main(void)
{
int i,sum=0;
for(i=0;i<1000;i++)
{if(i%3==0||i%7==0)
sum=sum+i;
else ;
}
printf("%d",sum);
getch();
return 0;
}

turbo3.0的答案

main()
{
int i,sum=0;
for(i=0;i<1000;i++)
if(i%3==0||i%7==0)
sum=sum+i;
printf("%d",sum);
}