200到1000 内所有被4除余3,被7除余5,被9除余2的数的个数,求大神告诉,这是一个VB编程题,有结果也行

2024-10-31 12:08:53
推荐回答(2个)
回答(1):

n = 0
For i = 200 To 1000
If i Mod 4 = 3 And i Mod 7 = 5 And i Mod 9 = 2 Then
n = n + 1
End If
Next i
Print n

回答(2):

我对VB不太熟,只能告诉你算法:
int a=0;(记录被4除余3的个数).
int b=0;
int c=0;
FOR (int i=200;i<=1000;i++){
if(i%4==3){
a++;
}
if(i%7==5){
b++;
}
if(i%9==2)
c++;
}
}
输出a(被4除余3的个数),b(被7除余5),c(被9除余2的数的个数)