3.三角形2

Dim i, j, k, 輸入值1, 輸入值2 As Integer

Console.Write("請輸入一個數 : ")

輸入值1 = Console.ReadLine

Console.Write("請輸入一個數 : ")

輸入值2 = Console.ReadLine

For i = 1 To 輸入值1 '巢狀迴圈

' Console.Write(i)

'輸入值1=10

'i=1 k=10-1

'i=2 k=10-2

'Console.Write("i=" & i & "-->" & "k-->" & 輸入值1 - i & "-->")

For k = 1 To 輸入值1 - i '印出空白

If i = 1 Or k = 1 Then

Console.Write("*")

Else

Console.Write(" ")

End If

Next

For j = 1 To i '印出* 印出的數量:輸入值2

Console.Write("*")

Next

Console.WriteLine("") '換行

Next

Console.ReadKey()