1樓：匿名使用者
所有正整數有無限個
所以必須限定一個範圍
private sub command1_click()dim i as integer, n as integern=inputbox("請給出範圍：n「)for i=1 to n
if i mod 3=0 then print inext
end sub
當然這是每一行顯示一個數字
你也可以使用上面兩位使用的字串連的方法來使每一行能夠多顯示一些資料那麼就是這樣的
private sub command1_click()dim i as integer, n as integer, str as string
n=inputbox("請給出範圍：n「)for i=1 to n
if i mod 3=0 then str=str & i & vbtab 『每兩個數字之間空一個tab鍵的空間
next
print str
end sub
2樓：匿名使用者
for i=1 to 100
if i mod 3 = 0 then
s=s&i&" "
end if
next
msgbox s
樓上的孩子抄襲我的也不用這樣吧！
vb程式設計， 找出100到500以內所有能同時被3、5、7整除的正整數，並用變數n記錄有多少個數。
3樓：匿名使用者
private sub form_click()dim i as integer, n as integerfor i = 100 to 500
if i mod 3 = 0 and i mod 5 = 0 and i mod 7 = 0 then
print i; " ";
n = n + 1
end if
next i
print "共有" & n & "個"
end sub
編寫vb程式段求200-300之間既能被3整除又夢被7整除的數,並求出所有數之和存入
4樓：小李無刀
dim a as integer
a=0for i=200 to 300
if int(i/3)=i/3 and int(i/7)=i/7 then
a=a+i
end if
next
msgbox a
5樓：魚魚
private sub form clickodimi as integer,sum as integersum=0
for i=200to 300
if i mod3=0 and i mod 7=0 thenprint i
sum=sum+i
end if
next
print sum
end sub
vb.求出0~100的整數能夠被3整除的個數以及能夠被7整除的個數。程式**怎麼寫？
6樓：山水阿銳
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
7樓：聽不清啊
private sub command1_click()print "0~100的整數能夠被3整除的個數="; 100 \ 3 + 1
print "0~100的整數能夠被7整除的個數="; 100 \ 7 + 1
end sub
8樓：水中魚
就是能被21整除的個數
c語言問題 程式設計 求所有能被 3整除的 1 999之間的三位
你好！如果是 85 個數字滿足的話，那麼應該是 100 999，不是 1 999 include include 求被3整除且至少有一個數字為5的三位數的個數int main printf n 數字個數 d n return 0 main else k k 10 c語言程式設計解決 輸出1 999中...
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 ...
vb題 程式設計計算100以內素數的和
private sub command1 click dim i as integer,j as integer,k as integer for i 2 to 100 for j 2 to i if i mod j 0 then exit for end if next if i j then k...