用VB編寫「求100以內3的倍數」的程式

時間 2023-03-09 09:30:11

1樓:網友

for i=3 to 100

if i mod 3=0 then print i '除以3餘數為0的話,就是3的倍數。

next 望。

2樓:匿名使用者

private sub command1_click()for i = 1 to 100

if i mod 3 = 0 then = i &

nextexit sub

end sub效果:

或者。private sub command1_click()for i = 0 to 99 step 3'或for i=3 to 99 step 3

= i & 是3的" &i / 3) &倍" &vbcrlf

nextend sub

效果:'0是3的0倍。

3是3的1倍。

6是3的2倍。

9是3的3倍。

12是3的4倍。

15是3的5倍。

18是3的6倍。

21是3的7倍。

24是3的8倍。

27是3的9倍。

30是3的10倍。

33是3的11倍。

36是3的12倍。

39是3的13倍。

42是3的14倍。

45是3的15倍。

48是3的16倍。

51是3的17倍。

54是3的18倍。

57是3的19倍。

60是3的20倍。

63是3的21倍。

66是3的22倍。

69是3的23倍。

72是3的24倍。

75是3的25倍。

78是3的26倍。

81是3的27倍。

84是3的28倍。

87是3的29倍。

90是3的30倍。

93是3的31倍。

96是3的32倍。

99是3的33倍。

vb1到100,5和7倍數的和 5

3樓:匿名使用者

從1到100,5和7公倍數的有35,70

和為35+70=105

100以內,既是2和5的倍數,又是3的倍數的數有多少個

行雲ang流水 三個30的倍數 判斷一個非零自然數是否是2的倍數的方法 這個數末位上的數字是否是偶數即個位上是0 2 4 6 8的數是2的倍數。判斷一個非零自然數是否是3的倍數的方法 各個數位上的數字和是否是3的倍數 各個數位上數字遇3就劃掉,最後剩餘的數就是除以3的餘數!判斷一個非零自然數是否是4...

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 ...

100以內既是6的倍數又是8的倍數有哪些

行雲ang流水 24,48,72,96 判斷一個非零自然數是否是2的倍數的方法 這個數末位上的數字是否是偶數即個位上是0 2 4 6 8的數是2的倍數。判斷一個非零自然數是否是3的倍數的方法 各個數位上的數字和是否是3的倍數 各個數位上數字遇3就劃掉,最後剩餘的數就是除以3的餘數!判斷一個非零自然數...