16 lines
404 B
VB.net
16 lines
404 B
VB.net
' Read the number of rows to use..
|
|
intRows = WScript.StdIn.ReadLine
|
|
|
|
' Get the first number of the final row so we can calculate widths...
|
|
intLastRowStart = (intRows ^ 2 - intRows) \ 2 + 1
|
|
|
|
For i = 1 To intRows
|
|
intLastRow = intLastRowStart
|
|
For j = 1 To i
|
|
k = k + 1
|
|
WScript.StdOut.Write Space(Len(intLastRow) - Len(k)) & k & " "
|
|
intLastRow = intLastRow + 1
|
|
Next
|
|
WScript.StdOut.WriteLine ""
|
|
Next
|