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()