vb計算1到1000能被5整除或能被7整除的整數的個數

時間 2021-08-30 10:29:00

1樓:go陌小潔

小於1000不包括1000

5和7的最小公倍數是35,就是找到1000以下的不能被5整除,不能被7整除的數.

能被5整除:(1000÷5-1)=199

能被7整除:(1001÷7-1)=142

重複計算的:999÷35=28.

小於1000能被5整除,或能被7整除的正整數的個數為:199+142-28=303個

function fun()

'********begin********dim tmp as integer

fun = 0

for tmp = 1 to 1000

if (tmp \5 = tmp /5) or (tmp \ 7 = tmp / 7) then fun = fun + 1

next

'*********end*********end function

基本原理:如果a能被b整除的話那麼 a\b=a/b【a\b 表示a除以b的整數部分】

2樓:匿名使用者

function fun()

'********begin********dim tmp as integer

fun = 0

for tmp = 1 to 1000

if (tmp \ 3 = tmp / 3) or (tmp \ 7 = tmp / 7) then fun = fun + 1

next

'*********end*********end function

答案:428

基本原理:如果a能被b整除的話那麼 a\b=a/b【a\b 表示a除以b的整數部分】

3樓:此人正在輸入

ilm market in recent times. f

vb設計一個程式,統計1000以內能被7整除的正整數的個數。

4樓:匿名使用者

private sub form_click()dim n as integer,i as integerfor i =7 to 1000

if i mod 7 = 0 then n=n+1next

print n

end sub

5樓:匿名使用者

private sub form_load()dim totali, i as integertotal = 0

i = 1

do while totali <= 1000totali = 7 * i

i = i + 1

loop

msgbox "1000以內有" & i - 2 & "個能被7整除的數"

end sub

6樓:卜馳柳卉

給你說說思路,程式就自己寫,首先能被13整除的數都是13的倍數,因此我們可以不用模運算,直接用迴圈找出13的倍數就可以了.再一個,要求找奇數,可以把迴圈步長設為2,即step

2,這樣就可以找出這些數,然後用一個迴圈變數計算他們的和.本人本題用do迴圈較好,可以減少執行時間.注意結束迴圈條件應該是:until

m<1000(用do迴圈的時候,n表示迴圈變數)

c語言 程式設計輸出1到1000之間能被7整除的數,並求和

1對1到1000進行遍歷 2對每個數值進行判斷,如可以被7整除,則輸出並累加 3退出迴圈後,輸出結果。不過由於要求是可以被7整除的數,所以,可以取巧,在演算法上,從7開始遍歷,每次加7,即可確保每個數都是可以被7整除的。按照這個思想,只需要遍歷,輸出,加求和即可。如下 int main printf...

1能被任何數整除餘1嗎,所有數都能被1整除嗎?

不是,任何自然數都能被1整除,1只能被1整除 不能,餘數要比除數小 所有數都能被1整除嗎?俊狼獵英團隊為您解答 整除的定義是在整數相除中進行的,所以錯誤的。不對,應該說所有的整數都能被一整除。而不是所有數,比如小數 是的,所有的數都能被1和它本身整除 整數的定義是所有的整數都能被1和它本身整除!所有...

證明n 4n 1 16n 1 能被5整除

證明 變形 n 4n 1 16n 1 n 2n 1 2n 1 4n 1 4n 1 4n 4n 2 4n 2 16 4n 1 4n 1 4n 2 4n 1 4n 4n 1 4n 2 16首先,上式必為整數。其次,由於連續五個自然數的乘積必然能被5整除,也即 4n 2 4n 1 4n 4n 1 4n 2...