Re: [VBA ] 印出直角三角形 數字要連續

看板Visual_Basic作者 (GuanTing)時間17年前 (2008/07/04 08:28), 編輯推噓0(003)
留言3則, 2人參與, 最新討論串2/2 (看更多)
後來將程式改成dim i,j,k as integer textbox1.text="" for i=0 to 5 for j=0 to i textbox1.selectedtext=i+k next textbox1.selectedtext=vbnewline next textbox1.selectionlength=0 結果印出 1 34 678 10111213 ※ 引述《pk01749276 (GuanTing)》之銘言: : Dim i,j as integer : textbox1.text="" : for i =1 to 10 : for j =1 to i : textbox1.selectedtext=j : next : textbox1.selectedtext=vbnewline : next : textbox1.selectionlength=0 : 我只會打這樣 : 可是他出來的結果數字沒有連續 : 變成 : 1 : 12 : 123 : 1234 : 12345 : 請問各位我該怎改呢? -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 123.204.55.115

07/04 11:29, , 1F
程式寫成這樣還滿幽默的
07/04 11:29, 1F

07/04 13:06, , 2F
run 出來的結果和你寫的結果不一樣吧??
07/04 13:06, 2F

07/04 13:08, , 3F
漏po一行k+=1吧,把 i+k 改 k 應該是你原本想要的
07/04 13:08, 3F
文章代碼(AID): #18RMwuyq (Visual_Basic)
文章代碼(AID): #18RMwuyq (Visual_Basic)