1樓：匿名使用者
private sub command1_click()'在屬性欄設定~text1.multiline = truetext1.text = ""
for i = 1 to 1000
if i mod 37 = 0 then
text1.text = text1.text & i & " "
x = x + 1
if x mod 10 = 0 then text1.text = text1.text & vbcrlf
end if
next i
end sub
2樓：匿名使用者
private sub command1_click()for i = 1 to 1000
end sub
3樓：風箏的天空藍耀
新建窗體，畫相應控制元件（如圖），**如下：
private sub command1_click()for i = 1 to 1000
if i mod 37 = 0 then
text1.text = text1.text & i & " " '將符合條件的數輸出到文字框
end if
next i
end sub
在1 100的自然數中不能被2 3 5 7整除的數有多少個
樓上的應該都是誤會樓主的意思了，樓主的意思是說，只要被加四個數中的一個整除，就要篩除，比如4，9，都要篩除 1 100中，偶數全是2的倍數，所以符合條件的數，必是奇數，一共有50個 50個奇數中，有3的倍數17個，剩下的有33個不是3的倍數 50個奇數中，有5的倍數10個，其中15的倍數3個，也就是...
在小於8000的自然數中，能被11整除，並且數字和是13的有
設為abcd a 0 7，bcd 0 9 a b c d 13 a c b d 11 or 11 不可能是0，否則a b c d為偶數 第一種情況 a c 12 b d 1 a，c有39，48，57，66，75五種取法 b，d有01，10兩種共5 2 10個數 第二種情況 a c 1，b d 12 ...
在1 1000這自然數中,總共有多少個數碼 所有數
一位數中有9個數碼，所有數碼的和是45 兩位數中有190個數碼，所有數碼的和是900 三位數中有2900個數碼，所有數碼的和是13500 1000有4個數碼，所有數碼的和是1 總共有3103個數碼，所有數碼的和是14446。一位數有9個數碼，二位數有 99 9 2 180個數碼，三位數有 999 9...