1樓：善一柏彩萱
被2整除的=500/2=250個被3整除=500/3=166個餘2被7整除=500/7=71個
餘32和3的最小公倍數=6，500/6=83個餘23和7的最小公倍數=21，500/21=23個餘172和7的最小公倍數=14，500/14=35個餘102，3，7的最小公倍數=42，500/42=11個餘38 不能被2整除，不能被3整除，不能被7整除的數=500-250-166-71+83+23+35-11=143個
2樓：渡浪
先算在1到500中，能被2整除或能被3整除或能被7整除的數有幾個：
能被2整除的：
500/2=250
或能被3整除的：
500/3=166
能被7整除的：
500/7=71
能同時被2和3整除的：
500/6=83
能同時被2和7整除的：
500/14=35
能同時被3和7整除的：
500/21=23
能同時被2、3和7整除的：
500/42=11
（圖中相交區域內表示能被6整除的數，等等）在1到500中，不能被2整除，不能被3整除，不能被7整除的數有：
500-[250+166+71-83-35-23+11]=143個
vb 求1~n之間能被3整除,但不能被7整除的所有整數之和
3樓：念憶
private sub command1_click()dim i%, n%, s%
n = val(inputbox("n="))for i = 1 to n
if i mod 3 = 0 and i mod 7 <> 0 then s = s + i
next
在vb中，註釋有2種方式：
1、以rem關鍵字開頭，並且rem關鍵字與註釋內容之間要加一個空格。註釋可以是單獨的一行，也可以寫在其他語句行的後面。
2、使用一個撇號（'）來代替rem關鍵字。若使用撇號，則在其他語句行使用時不必加冒號。
4樓：匿名使用者
for i=1 to n
if i mod 3=0 and i mod 7<>0j=j+i
endif
next i
msgbox j
從1到1000中所有不能被6整除的數有多少個
能被4整除的有1000除以4 250個 能被6整除的數有1000除以6 166 1，就是166個。其中重複的有1000除以 4和6的最小公倍數，12 83個所以剩下的有1000 250 166 83 能被6整除的有166個 1000 6 166.4 1000 166 834個 因為 1000除以6的...
1 100中不能被7整除的數有多少個
你好，本題可以通過如下方法從反面計算 1 100之中能被7整除的數有7.14.21.28.35.42.49.56.63.70.77.84.91.98，共14個。不能被7整除的數個數即為100 14 86個。100 7 14.3，即1 100中能被7整除的數最大為7 14 98，也就是說最大的數為7的...
奧數題1至100以內所有不能被5或9整除的數的和是多少
1 100的總和5050 能被5整除的數從5到100共20項，其和 5 100 20 2 1050 能被9整除的數從9到99共11項，其和 9 99 11 2 594 既能被9又能被5整除的數從45到90共2項，其和 45 90 135 因此，1 100以內所有不能被5或9整除的數的和 1 100的...