1樓：亓宇航
dim i,b,c
b =0
c =0
for i = 1 to 100
if (i mod 3) = 0 thenb = b+1
elseif (i mod 7) = 0 thenc = c+1
end if
next
print "三的倍數有" & b
print "七的倍數有" & c
2樓：匿名使用者
dim i as integer
dim j as integer
dim k as integer
private sub form_load()form1.show
for i = 1 to 100 step 1if i mod 3 = 0 then
j = j + 1
end if
next i
for i = 1 to 100 step 1if i mod 10 = 0 then
k = k + 1
end if
next i
print "3的倍數有" & j
print "10的倍數有" & k
end sub
3樓：匿名使用者
用 for迴圈 if判斷 加取模(mod)運算 就可以了啊
求vb語句：分別統計1~100中，滿足3的倍數，7的倍數各有多少個？
4樓：悠悠周郎
dim 七倍數 as integer
dim 三倍數 as integer
for i as integer = 1 to 100if i mod 7 = 0 then 七倍數 += 1if i mod 3 = 0 then 三倍數 +=1next
msgbox("七的倍數：" & 七倍數 & " 三的倍數：" & 三倍數)
5樓：
private sub command1_click()dim m%, n%
for i = 1 to 100
if i mod 3 = 0 then m = m + 1if i mod 7 = 0 then n = n + 1next i
print "統計1~100中，滿足3的倍數的個數是"; mprint "統計1~100中，滿足7的倍數的個數是"; nend sub
6樓：
dim n3 as integer
dim n7 as integer
dim i as integer
for i=1 to 100
if i mod 3=0 then n3=n3+1if i mod 7=0 then n7=n7+1next i
print "3的倍數有" & n3 & "個"
print "7的倍數有" & n7 & "個"
用vb分別統計1-100中,滿足3的倍數,7的倍數的數各有多少
7樓：vb妮可
private sub command1_click()dim i%, j3%, j7%
for i = 1 to 100
if i mod 3 = 0 then j3 = j3 + 1if i mod 7 = 0 then j7 = j7 + 1next
print "3的倍數的個數:"; j3
print "7的倍數的個數:"; j7
end sub
vb程式設計，分別統計1-100中滿足3的倍數、滿足7的倍數各有多少個，計算結果分別顯示在文字框tex
8樓：livingroom寶貝
private sub command1_click()dim m as integer, n as integer,i as integer
for i = 1 to 100
if i mod 3 = 0 then m = m + 1if i mod 7 = 0 then n = n + 1next i
text1.text = m
text2.text = n
end sub
(用vb.net程式設計的迴圈結構知識)編寫程式:統計在1-100中,滿足3 的倍數,7的倍數的數各為多少 10
9樓：匿名使用者
for i = 1 to 100
dim a as integer = i * 3dim b as integer = i * 7next
10樓：匿名使用者
c++程式 #includevoid main(void) { int s=0; for(int i=100;i<< 編寫程式，分別統計1～100中，滿足3的倍數，7的倍數各有多少個 11樓：匿名使用者 vb6測試通過： private sub command1_click()dim i as integer, num3 as integer, num7 as integer num3 = 0: num7 = 0 for i = 1 to 100 if i mod 3 = 0 then num3 = num3 + 1 if i mod 7 = 0 then num7 = num7 + 1 next i text1 = str(num3) text2 = str(num7) end sub vb程式設計輸出1-100之間的所有是5或7的倍數的數，並求其累加和
20 12樓：匿名使用者 dim r as long dim lsum as long dim lflag as long for r = 1 to 100 if r mod 5 = 0 or r mod 7 = 0 thendebug.print r & vbtab; if lflag mod 5 = 0 thendebug.print end if lflag=lflag+1 lsum=lsum + r end if next debug.print "1-100之間的所有是5或7的倍數的數之和為:" & lsum 思路 定義乙個函式求其平方數，接著for迴圈從1到100累加求和。include stdio.h int fun int n int main 執行結果 平方和為 338350 5降落 include main 每個人理解的意思不一樣，程式也就不一樣。這看你怎麼理解，我把你的問題理解為整數1 100... private sub command1 click dim x as integer randomize x int rnd 100 1if x mod 2 0 then msgbox x 是偶數 else msgbox x 是奇數 end if end sub vb程式設計求1到100整數和 p... private sub form click form1.cls dim i as integer,j as integer,temp as integer dim a 1 to 10 as integerfor i 1 to 10 a i int rnd 100 1 next i for i 1 ... 1到100的英語單詞中文諧音讀法如下 數詞 numeral 表示數量或順序的詞叫做數詞。英語的數詞可以作句子的主語 賓語 表語和定語。數詞分為兩大類，即基數詞和序數詞。基數詞表示數目，如 one,two,three,four 序數詞表示順序，如 first,second,third,fourth 序... 一位數的只有1個，就是1 兩位數的有 10 19為11個 因為11有兩個1 21 31 41 51 61 71 81 91 100為9個 所以總共是1 11 9 21 個 共有19個 9 字。結果可以分類進行列舉 1 個位數字是 9 這樣的數字有 9 19 29 39 49 59 69 79 89 ...c語言程式設計1到100的平方和，c語言程式設計1到100的平方和
vb程式設計判斷0到100之間數的奇偶性
vb隨機產生範圍從1到100的整數放在陣列
英語1到100怎麼讀，1到100的英語怎麼讀
1到100有多少個，1到100有多少個