1樓：凌雲孤隼
private sub command1_click()dim i as integer
for i = 1 to 100
if i mod 7 = 0 then
print i
end if
next
end sub
2樓：匿名使用者
用mod函式
這個函式的意思就是，比如 x mod y 那麼意思就是x除以y得到的餘數
如果是0，那麼就是代表整除了。
所以**可以寫成(擴充套件**)
private sub command1_click()dim i as integer,k
k=inputbox("請輸入要檢驗的最大的數")for i = 1 to val(k)
if i mod 7 = 0 then
print i
end if
next
end sub
這段程式就不只是檢測一百以內的了，你可以輸入任意的數來檢測
3樓：匿名使用者
複製**,執行,介面點一下就行
private sub form_click()dim i
for i = 7 to 100 step 7print i
next i
end sub
4樓：麻渥則權佳時
private sub form_click()for a = 1 to 100
if a mod 7 = 0 then print a;
next a
end sub
在vb中要求1到100中能被10 整除的整數並將此整數顯示在文字框內應如何程式設計
5樓：沙慧月
private sub command1_click()for i = 1 to 100
if i mod 10 = 0 then text1 = text1 & space(1) & i
next
end sub
6樓：
for i=1 to 100
if int(i/10)=i/10 then text1=text1 & i &" "
next i
7樓：
其實都差不多的，用取餘函式mod
private sub command1_click()text1.text = ""
for i = 1 to 100
if i mod 10 = 0 then text1.text = text1.text & space(1) & i
next
end sub
vb.求出0~100的整數能夠被3整除的個數以及能夠被7整除的個數。程式**怎麼寫？
8樓：山水阿銳
private sub command1_clickdim sum as integer'和
dim count as integer'個數sum=0
count=0
text3.text=""
for i=1 to 100
if i mod 3=0 and i mod 7<>0 thencount=count+1
sum=sum+i
text3.text=text3.text & i'text3顯示都有什麼數
end if
next
text1.text="和為:"+ sumtext2.text="個數為:"+counend sub
9樓：聽不清啊
private sub command1_click()print "0~100的整數能夠被3整除的個數="; 100 \ 3 + 1
print "0~100的整數能夠被7整除的個數="; 100 \ 7 + 1
end sub
10樓：水中魚
就是能被21整除的個數
vb計算1到1000能被5整除或能被7整除的整數的個數
11樓：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的整數部分】
12樓：匿名使用者
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的整數部分】
13樓：此人正在輸入
ilm market in recent times. f
能被7整除的數有什麼特徵，能被7整除的數的特徵
數的整除的特徵 1 1與0的特性 1是任何整數的約數，即對於任何整數a，總有1 a.0是任何非零整數的倍數，a 0,a為整數，則a 0.2 若乙個整數的末位是0 2 4 6或8，則這個數能被2整除。3 若乙個整數的數字和能被3整除，則這個整數能被3整除。4 若乙個整數的末尾兩位數能被4整除，則這個數...
被3整除餘1，被7整除餘5，被11整除餘9的數是什麼
此數 2能同時輩3,5,11整除,所以最小為3 7 11 2 229 我用程式也算了的，很多的 include void main include define n 1000 0 n範圍內符合條件的數 void main 此數 2能同時輩3,7,11整除,所以最小為 3 7 11 2 229 寫乙個...
將1到100中的數取出後,按能同時被2,3整除，只能被2整除，不能被2或3整除分類。（java程式）
給你個例子看下 list data0 new arraylist list data1 new arraylist list data2 new arraylist for int i 1 i 100 i else if i 2 0 else if i 2 0 i 3 0 system.out.pr...