作者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