作者pk01749276 (GuanTing)
看板Visual_Basic
标题Re: [VBA ] 印出直角三角形 数字要连续
时间Fri Jul 4 08:28:39 2008
後来将程式改成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
1F：→ MOONRAKER:程式写成这样还满幽默的 07/04 11:29
2F：→ mrhihi:run 出来的结果和你写的结果不一样吧?? 07/04 13:06
3F：→ mrhihi:漏po一行k+=1吧,把 i+k 改 k 应该是你原本想要的 07/04 13:08