求1到200之间,能被3整除但不能被7整除的数的个数?求1到200之间，能被3整除但不能被7整除的数的个数的编程题?Private Sub Form_click Dim count As Integer,x AS Integer count=0:x=1 while_____________________if x mod 3=
来源：学生作业帮助网 编辑：六六作业网 时间：2025/01/12 04:42:28
求1到200之间,能被3整除但不能被7整除的数的个数?求1到200之间，能被3整除但不能被7整除的数的个数的编程题?Private Sub Form_click Dim count As Integer,x AS Integer count=0:x=1 while_____________________if x mod 3=
求1到200之间,能被3整除但不能被7整除的数的个数?
求1到200之间，能被3整除但不能被7整除的数的个数的编程题?
Private Sub Form_click
Dim count As Integer,x AS Integer
count=0:x=1
while_____________________
if x mod 3=0 and× mod 7〈〉 0 then
_____________
end if
x=x+1
___________
.....
...
求1到200之间,能被3整除但不能被7整除的数的个数?求1到200之间，能被3整除但不能被7整除的数的个数的编程题?Private Sub Form_click Dim count As Integer,x AS Integer count=0:x=1 while_____________________if x mod 3=
1到200之间,能被3整除有 = 198/3 =66个
1到200之间,能被21整除有 = 189/21 =9个
1到200之间,能被3整除但不能被7整除的数
=能被3整除 - 能被21整除
=66-9 = 57个
count=0:x=1
while_x
200/3=66
200/7=28
200/21=9
66-9=57
求1到200之间，能被3整除但不能被7整除的数的个数57
能被3整除的数有66个
能被21整除的有9个
∴被3整除但不能被7整除的数的个数66-9=57
for(var i:int = 1;i < 200;i++)
{
if(i%3 == 0 && i%7 != 0)
{
sum++；
trace(i+">>>")
}
}
trace(sum)
总共57个；要想知道是那57个 就去运行下；