作者cjwufu (2l4103vu86)
看板Visual_Basic
標題有關VB聖誕樹的問題 有沒有大大能夠幫忙一下
時間Mon Oct 19 02:49:24 2009
請問一下 能幫我詳細解釋個一個程式代表什麼意思嗎 還有 我自己有寫一個 但是
跑步出來 能幫我看一下 我該怎麼改 才能從直角三角形 變成一個三角形
萬分感恩阿
=====正確 需要高手幫忙解釋的聖誕樹=====
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
1F：→ MOONRAKER:你的VB打"會過啊？ 10/19 10:39
2F：推 sueadolph:拿vb2008寫Console...感覺就是學校才會發生的事- - 10/25 15:05
3F：→ sueadolph:軟體變了，可是很多上課內容還是沒變化 10/25 15:05
4F：→ MOONRAKER:學一學這些也不錯 我五六年前曾經聽一個高中生說他想要 10/25 17:33
5F：→ MOONRAKER:改學Ｃ 他在學校裡只學過用VB讓物件跑來跑去 10/25 17:34