1樓：麻渥則權佳時
建立一個command1控制元件,單擊它,輸入**:
private sub command1_click()for a = 1 to 7 step 2for b = 1 to a
print "*";
next b
print chr$(13)
next a
for a = 5 to 1 step -2for b = 1 to a
print "*";
next b
print chr$(13)
next a
end sub
2樓：萍水e相逢
放一個 text 控制元件text1
text1.scrollbars = vbverticaltext1.multiline = truetext1.text=""
private sub form_load()const n = 4
dim i as integer
dim t as integer
for i = 1 to n
for t = 1 to n - i
text1.text = text1.text + " "
next t
for t = 1 to 2 * i - 1text1.text = text1.text + "*"
next t
text1.text = text1.text + vbcrlfnext i
for i = n - 1 to 1 step -1for t = 1 to n - i
text1.text = text1.text + " "
next t
for t = 1 to 2 * i - 1text1.text = text1.text + "*"
next t
text1.text = text1.text + vbcrlfnext i
end sub
諮詢法律方面的問題請各位朋友幫助一下
戚廣利 詐騙了領導3200元與你朋友沒有關係 你朋友沒有法律責任 從工作的角度，以後你朋友做工作應當細緻，儘量避免差錯。 工作失誤，領導會懲罰你朋友。至於領導被騙，如果沒有證據證明是你朋友串通別人來騙取領導錢財的，應該不會追究刑事責任。這樣看你朋友與對方聯絡過程中有無協助對方獲取領導相關資訊的具體情...
西班牙語翻譯各位大蝦幫一下忙噢，內容如問題補充，不要機器的
你好hola 請問訂單的數量有確認好了嗎 la cantidad de pedido ya esta revisado.如果沒有問題的話 si no hay problemas 我先把pi做給你，rita好像比較忙，te lo hago primero el pi,rita parece mas o...
物理方面的一些小問題，請各位幫助一下啊！
問題真長 看完了。把幹路用筆描出來，剩下的就是支路。用手指著電源正極，走幹路，然後把每一條之路都走一邊。不要怕浪費時間，做多了你就快了。另外，等效法在電學也是很有用的。舉個最簡單的例子吧。r1 r2 r r的阻值等於r1與r2 之和 並聯的不太好畫，不畫了。r並 r1 r2 r1 r2 做題時一定要...