1, 分别用三种循环语句(while语句,do-while语句,for语句),实现求200～ 1000所

3个程序都经过测试正确，可拷贝。

while语句

#include 
int main()
{
  int i = 200, sum = 0;
  
  while(i <= 1000)
  {
    if (i % 3 == 0)
      sum += i;
    i += 5;//被5整除，所以每次+5
  }
  printf("sum = %d", sum);
}

do-while语句:

#include 
int main()
{
  int i = 200, sum = 0;
  
  do
  {
    if (i % 3 == 0)
      sum += i;
    i += 5;//被5整除，所以每次+5
  }while(i <= 1000);
  printf("sum = %d", sum);
}

for语句:

#include 
int main()
{
  int i = 200, sum = 0;
  
  for (i = 200; i <= 1000; i += 5)//被5整除，所以每次+5
  {
    if (i % 3 == 0)
      sum += i;
  }
  printf("sum = %d", sum);
}

VB6 中程序...
1、While...Wend 循环
Dim i As Integer
Dim s As Long
s = 0
i = 200
While (i >= 200 And i <= 1000)
i = i + 1
If (i Mod 3 = 0) And (i Mod 5 = 0) Then s = s + i
Wend
MsgBox Str(s)