1樓：匿名使用者
總共是314個哦。現做的dim a as integerdim b as integer
private sub command1_click()docalculate
loop until a > 1000
msgbox b
end subprivate sub form_load()a = 1b = 0
end sub
sub calculate()
if a / 5 = int(a / 5) or a / 7 = int(a / 7) then
b = b + 1
end if
a = a + 1
end sub
用vb如何寫1到100之間所有能被3整除而不能被7整除的整數的和與個數的程式
求1到1000之間既不能被7整除也不能被5整除的整數之和,,用vb計算
2樓：戶如樂
小於1000不包括10005和7的最小公倍數是35,就是找到1000以下的不能被5整除，不能被7整除的數。能被5整除：（1000÷5-1）=199能被7整除：
（1001÷7-1）=142重複計算的：999÷35=28.小於1000既不能被5整除，又不能被7整除。
vb 求1~n之間能被3整除,但不能被7整除的所有整數之和
在vb中為什麼5整除5.1計算結果為1,而50\51計算結果卻為0?
3樓：匿名使用者
\整除所以 50\51為0；當計算5與的整除時，vb會先判斷相運算的兩個數值，如果有浮點型，自動會變為整形，就變成了5，然後再參與運算，所以得到的是1
4樓：匿名使用者
vb中整除前對會兩邊的數按下面規則進行取整，並且結果也取整數部分。
取整規律：1. 若整數部分為偶數：小數部分是，則系統對其進行取整後的數等於整數部分， 小數部分大於的就進位，小於的就直接把小數去掉；
2. 若整數部分為奇數，四捨五入。
比如： 運算前取整為1
運算前取整為2
運算前取整為3
運算前取整為2
運算前取整為3
也就是5\ 相當於 5\5 ，所以結果為1。 50/51小於1整數部分未0所以結果為0 。
5樓：匿名使用者
vb中\為整除符號，所以50/51=0,52\50=1
求1到1000之間既不能被7整除也不能被5整除的整數之和,,用vb計算 5
6樓：匿名使用者
小於1000不包括1000
5和7的最小公倍數是35,就是找到1000以下的不能被5整除，不能被7整除的數。
能被5整除：（1000÷5-1）=199
能被7整除：（1001÷7-1）=142
重複計算的：999÷35=28.
小於1000既不能被5整除，又不能被7整除的正整數的個數為：999-199-142+28=686個。
在vb中為什麼5整除5.1計算結果為1,而50\51計算結果卻為0?
vb輸出100以內能被3整除的數之和
vb是什麼意思？數學方式應該這樣！設數之和為m 所以2m 102 33 所以m 51 33 dim a,i as integer for i 0 to 100 if mod i 3 0 then a a i next i 其中a為能被3整除的數之和 dim a,i as integer for i ...
00任意選擇數能被2或3或5整除的概率
顏代 1 100任意選擇一個數能被2或3或5整除的概率為37 50。解 因為100 2 50，所以1 100中有50個2的倍數，即能被2整除的數有50個。又100 3 33.33.所以1 100中有33個3的倍數，即能被3整除的數有33個。100 5 20，則1 100中有20個5的倍數，即能被5整...
100以內能被5整除的數有幾個
小t學姐 100以內能被5整除的數有20個，分別為 5 10 15 20 25 30 35 40 45 50 55，60 65 70 75 80 85 90 95 100。能被5整除的數的特徵是個位上的數必須是0，5，個位上是0 5的數一定能被5整除。解 能被5整除的數的特徵是 一個數的個位是0或5...