1樓：山水阿銳
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
2樓：聽不清啊
private sub command1_click()print "0~100的整數能夠被3整除的個數="; 100 \ 3 + 1
print "0~100的整數能夠被7整除的個數="; 100 \ 7 + 1
end sub
3樓：水中魚
就是能被21整除的個數
vb 程式:計算1-100之間所有能被3整除的數之和
4樓：慶年工坊
sub s()
for i = 1 to 100
if i mod 3 = 0 then sm = sm + inext
msgbox sm
end sub
編寫程式，計算1到100中既能被3整除又能被7整除的所有數，並計算這些數的個數 5
5樓：
public class $
}system.out.println("一共" + count + "個");}}
6樓：匿名使用者
private sub form_click()for i = 100 to 200
if i mod 3 = 0 and i mod 7 <> 0 then
s = s + i
end if
next
t = msgbox("結果是" & s, vbokonly, "你的答案")
end sub
7樓：憋不住事兒
這個不難，難的是
你要啥語言的啊？！！
能被31整除的特徵能被3整除的整數的特點？
1 非個位數減去個位數的3倍，差是31的倍數。2 末三位數與8倍的非末三位數的和，是31的倍數。整除與除盡的關係 整除與除盡既有區別又有聯絡。除盡是指數a除以數b b 0 所得的商是整數或有限小數而餘數是零時，我們就說a能被b除盡 或說b能除盡a 因此整除與除盡的區別是，整除只有當被除數 除數以及商...
vb求1 n之間能被3整除,但不能被7整除的所有整數之和
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關鍵字與註釋內容之間...
n個連續整數的乘積一定能被n 整除
設a為任一整數，則式 a 1 a 2 a n a n a n a n a n 而式中 a n a n 恰為c a n,a 也即是從a n中取出a的組合數，當然為整數。所以 a 1 a 2 a n 一定能被n 整除 n！1 2 3 4 n 高3你會學到的。這樣 n個連續整數的乘積一定能被n 整除 啊 ...