1樓：vb妮可
private sub command1_click()dim i%, j%
for i = 1 to 5
for j = 1 to 7
if j = 7 - i then
print " ";
else
print "*";
end if
next
next
end sub
精簡一下可以這樣:
private sub command1_click()for i = 1 to 5
for j = 1 to 7
print iif(j = 7 - i, " ", "*");
next
next
end sub
2樓：匿名使用者
dim i as integer, j as integerprivate sub command1_click()for i = 1 to 5
for j = 1 to 6 - i
print "*";
next j
print " ";
for k = 1 to i
print "*";
next k
next i
end sub
情感高手來幫幫我，情感高手來幫幫忙
兩個人之間有了猜忌，沒有了信任，那就開始會吵架，從小吵到大吵，最後 心裡有疑惑就自己去找答案啊，問他看看，自己在他看不見的地方胡思亂想，如果把沒有的想成有的，那就一步錯步步錯，最後 兩個人之間就是要有著信任才行啊 不要怕面對，要勇敢面對啊，看他的想法是什麼，這樣就有機會讓你們的關係改變啊，不嘗試怎麼...
生物高手幫幫忙，生物高手幫幫忙
18.atp與rna的分子組成有什麼異同點？離體的色素能夠進行光合作用嗎？這些題根本不是高中要求的。高考絕對不會考！高考考的都是很基礎的，再簡單不過的 但是卻可以體現人綜合分析能力的題目。生物這門學科尤其如此。高中學的是方法，而不是知識。如果這是生物競賽題，我想說 扯淡！這對能力的培養絲毫沒有幫助！...
彙編高手進來幫幫忙，彙編高手進來幫幫忙！！！！！！！
不是高手路過，練練手 data segment grade dw 87,89,52,63,47,95,100,52,96,88 rank dw 10 dup output db ranking 0dh,0ah,data ends code segment assume cs code,ds data...