有關VB迴圈圖形排法

Question

誰能告訴我這圖形迴圈怎麼寫? For..next
1
12
123
1234
12345
1234
123
12
1

那如果數子由大到小怎麼改??
例:
5
54
543
5432
54321
5432
543
54
5 那還有別種寫法嗎?

請問愁痕飄絮:
那可以在請問一下嗎?如果我在Command裡面打數子可是那數字是未知數(意思是隨便打一個數字)呢?
那要更換哪裡程式碼?
(妳可以用你第三個寫法寫出來嗎?)還是有別寫法呢?

我的意思是如果你在command裡在數字例如打:20 。
然後就從1排到20
1
12
123
........以此類推到20
不知道我說的你懂不懂??

Answer 1

Private Sub Command1_Click()
Dim tmp As String, i As Integer
tmp = "12345"
For i = 1 To 5
Print Left(tmp, i)
Next
For i = 4 To 1 Step -1
Print Left(tmp, i)
Next i
End Sub

2006-02-06 21:06:54 補充：
數字由大到小：Private Sub Command1_Click()Dim tmp As String, i As Integertmp = "54321"For i = 1 To 5Print Left(tmp, i)NextFor i = 4 To 1 Step -1Print Left(tmp, i)Next iEnd Sub

2006-02-06 21:08:25 補充：
別種寫法：Private Sub Command1_Click() For i = 1 To 5 For j = 1 To i Print j; Next j Print Next i For i = 4 To 1 Step -1 For j = 1 To i Print j; Next j Print Next iEnd Sub

2006-02-06 23:01:26 補充：
看你的描述，可以直接套用我最原先回答給你的寫法只要更改 tmp這個變數裡面的內容就好。例如把 tmp那行 改成 tmp = "56789"那麼輸出的結果就會是5565675678567895678567565不知這樣的解釋你能理解並變通嗎?

Answer 2

同意+3
(繼續潛水....)

Answer 3

同意 +2 & 樓上的兩位也都是VB高手

Answer 4

同意 +1

Answer 5

最佳解答會很難選喔^^，愁痕飄絮、Liu-Liu及W.J.S.都是VB高手...

Answer 6

'由小到大
Private Sub Command1_Click()
Dim S As String, I As Integer
For I = 1 To 5
　　S = S & I: Print S
Next
For I = 4 To 1 Step -1
　　Print Left(S, I)
Next
End Sub

'由大到小
Private Sub Command2_Click()
Dim S As String, I As Integer
For I = 5 To 1 Step -1
　　S = S & I: Print S
Next
For I = 4 To 1 Step -1
　　Print Left(S, I)
Next
End Sub

Answer 7

Private Sub Command1_Click() '小到大
　For i = -4 To 4
　　For j = 1 To 5 - Abs(i)
　　　Print j;
　　Next
　　Print
　Next
End Sub

Private Sub Command2_Click() '大到小
　For i = -4 To 4
　　For j = 1 To 5 - Abs(i)
　　　Print 6 - j;
　　Next
　　Print
　Next
End Sub

2006-02-07 08:25:49 補充：
以下可利用 n 值來改變其範圍：由小到大：　n = 5　For i = -n + 1 To n - 1　　For j = 1 To n - Abs(i)　　　Print j;　　Next　　Print　Next由大到小：　將　　Print j;　改成　　Print n - j + 1;　即可。