Question

vb编写倒直角三角形

*****
****
***
**
*

Answer 1

Private Sub Form_Click()
Dim n As Integer
Dim i As Integer
n = Val(InputBox("请输入倒三角形的行数"))
For i = n To 0 Step -1
For j = 0 To n - i
Print " ";
Next j
For j = 1 To i
Print "*";
Next j
Print
Next i
End Sub

Answer 2

Private Sub Form_Click()
Dim n As Integer
Dim i As Integer
n = Val(InputBox("请输入倒三角形的行数"))
For i = n To 0 Step -1
Print spacex(i)
Next i
End Sub

Function spacex(ByVal n As Integer) As String
Dim i As Integer
Dim Temp As String
For i = 1 To n
Temp = Temp & "*"
Next i
spacex = Temp
End Function