[VB2008]有關VB聖誕樹的問題 有沒有大大能夠幫꘠…
請問一下 能幫我詳細解釋個一個程式代表什麼意思嗎 還有 我自己有寫一個 但是
跑步出來 能幫我看一下 我該怎麼改 才能從直角三角形 變成一個三角形
萬分感恩阿
=====正確 需要高手幫忙解釋的聖誕樹=====
Module Module1
Sub Main()
Dim K As Integer
Dim N As Integer
For K = 1 To 3
For N = 0 To 10
For M = 1 To 40 - N
Console.Write(" ")
Next M
For M = 0 To N
Console.Write("*")
Next M
For M = 0 To N
Console.Write("*")
Next
Console.WriteLine()
Next N
Next K
Console.ReadLine()
End Sub
End Module
====小弟努力好幾個小時做不出來的樹=======
Module Module1
Sub Main()
Dim i As Integer
Dim j As Integer
For i = 10 To 21
For j = 1 To i + 1
Console.Write("* ")
Next
For j = j To 20
Console.Write(" ")
Next
Console.WriteLine()
Next
Dim a As Integer
Dim s As Integer
For a = 1 To 10
For s = 2 To a - 1
Console.Write("* ")
Next
For s = a To 10
Console.Write(" ")
Next
Console.WriteLine()
Next
Console.ReadLine()
End Sub
End Module
能否幫小弟看看哪裡還需要修改的嗎
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 59.127.138.84
→
10/19 10:39, , 1F
10/19 10:39, 1F
推
10/25 15:05, , 2F
10/25 15:05, 2F
→
10/25 15:05, , 3F
10/25 15:05, 3F
→
10/25 17:33, , 4F
10/25 17:33, 4F
→
10/25 17:34, , 5F
10/25 17:34, 5F