1樓：匿名使用者
把圖案寫清楚，我覺得*前有空格吧，，怎麼不寫上，還有就是題看 看抄 錯沒有,我寫的你可以參考，樓上「loveihmdf」寫的不對
private sub form_click()dim i as integer
dim j as integer
for i = 1 to 5 step 2print string(i, "*")
next i
for j = 3 to 1 step -2print string(j, "*")
next j
end sub
2樓：匿名使用者
?"*"
?"***"
?"*****"
?"***"
?"*"11
這樣就行了
3樓：匿名使用者
如果按你所寫的那個圖型，真的看不懂你的程式是怎麼回事了。
我沒有按你那樣的編，你看一下可不可以執行出你所給的那個圖型private sub form_click()dim i as integer
dim i as integer
for i=-4 to 4 step 2
print tab(abs(i)+5)
for j=1 to 5-abs(i)
print "*"
next i
next j
end sub
關於VB的問題 高手進
程式 流程圖 private sub command1 click dim n as integer dim k as integer dim str as string n val text1.text str 是素數 for k 2 to n 2 if n mod k 0 then str 不是...
VB程式設計高手進， 急 VB程式設計高手進
很簡單的 只告訴你方法思路，現在沒有vb環境所以沒法寫你在text1的keypress時間裡，寫上校驗方法，利用acciss碼來判斷，數字的acciss碼是連續的，你可以查到，除此之外的acciss碼你都不予接受，這樣使用者就無法輸入除了0 9之外的任何內容，如何輸入了，你還可以彈出提示框。思路就這...
易語言 VB的問題高手進高分獻上
用易語言程式設計不錯，感覺比vb要強些。易語言有個函式 延時 多少毫秒 這個可以實現。易語言實現使用者名稱和密碼登入我這有例項，給你郵箱，我發給你。 vb加個command和timer 加入 private sub command1 click timer1.interval 3000 啟動時鐘,為...