1樓：匿名使用者
option explicit
option base 1
private sub form_click()dim i%, j%, k%, n%
dim a() as integer
n = 0
for i = 1 to 1000
k = 0
for j = 1 to i
if (i mod j) = 0 thenk = k + 1
end if
next j
if k = 5 then
n = n + 1
redim preserve a(n)
a(n) = i
end if
next i
for i = 1 to n
print a(i)
next i
end sub
看了上面兩條回覆真的挺搞笑啊，希望能幫助你哈
2樓：匿名使用者
真的是章老師嗎？好老師啊！同學們珍惜啊！
3樓：手機使用者
你是蘇州大學社會學院11級的學生吧？我是章建民，我可以告訴你，我出的這個程式網上不會有的，我就坐在考場後面，你有什麼意見，到後面來找我。
4樓：匿名使用者
你真的是vb老師嗎?我表示懷疑，請你露出你的id,謝謝！
5樓：匿名使用者
帥鍋，我的vb題目和你的一樣啊，你怎麼做的？
在所有的質數中偶數的個數有多少個
在所有的質數中，偶數的個數有且只有1個，2是質數中唯一的偶數。其餘的所有質數都是奇數，其餘所有的偶數都是合數。常見的100以內的質數表如下圖所示 質數定義為 在大於1的自然數中，除了1和它本身以外不再有其他因數。如果還有其他因數的，就是合數。100以內的質數有 2 3 5 7 11 13 17 19...
向所有的魔獸世界高玩們求個如何打冰DK的手法
1，玩dk要會bai觀察符文使用du 技能，如果只是看技能什麼zhi亮按什麼的dao別想打的高。2，了解專各屬種技能消耗，能夠在剩餘什麼符文的時候知道什麼技能可以用什麼技能不能用。3，只講解冰雙手綠臉急速流，命中8 精準26，綠字屬性優先級別急速 精通 暴擊，必備雕文，大 湮沒，冰霜打擊，凜風衝擊 ...
世界上所有的啤酒的名字，三個字的啤酒的名字有哪些？
祝你兒童節快樂啊！那裡都有啤酒，只是在啤酒二字前面新增 啤酒而已，具我了解除了樓上所說的名牌啤酒之外，各省市縣幾乎都有自己的啤酒品牌，我老家新鄉就有航空，寒山，附近還有金星，雞公山，等很多呢！回答親親您好，我是小黑，乙個專門服務於生活類問題的小弟，請您稍等一下哈，查詢到結果後馬上為您解答。外國的常見...