VBA老師出題要我做一出個如下的三角形
.............a
...........aaa
.........aaaaa
.......aaaaaaa
.....aaaaaaaaa
...aaaaaaaaaaa
.aaaaaaaaaaaaa
首先要先觀察排列規則
而且每列數量是相同13個
所以只要觀察出a的數量
可以看出a是以2為增量所以*2來計算
相對地.就以相同量減少
以維持整行13的數量
VBA語法Private Sub Command1_Click()
n = 13
For k=1 To 7
Print String(n-(K-1)*2,".") & String(1+(K-1)*2, "a")
Next
End Sub
ASP語法<%
n = 13
For k=1 To 7
Response.write String(n-(K-1)*2,".") & String(1+(K-1)*2, "a") & "<br>"
Next
%>
搜尋
ASP三角形排列問題
張貼者:
Godhelp
at
2009年10月26日 星期一
0 意見:
張貼留言