Question

如何使用VB操作出如下图的带*的倒三角？

Answer 1

不会吧？你难道不是要“等腰的”“倒三角形”？

可运行代码为：
Const s = "倒三角形"
Private Sub Command1_Click()
Dim N As Integer
Do
N = InputBox("你一共准备输出几行？", s, 5)
If N > 50 Then
MsgBox "你的行数也太多了吧？看着我就累了。", vbExclamation, s
ElseIf N < 1 Then
MsgBox "这怎么能搞成？你见过" & N & "行的三角形？", vbCritical, s
Else
Exit Do
End If
Loop
最长星星数 = N + N + 1
For i = 1 To N
Print Tab(i); String(最长星星数 - i - i, "*")
Next i
End Sub

实质有用的代码仅仅是：
最长星星数 = N + N + 1
For i = 1 To N
Print Tab(i); String(最长星星数 - i - i, "*")
Next i

Answer 2

Private Sub Command1_Click()
For i = 7 To 1 Step -2
Print Format(String(i, "*"), "@@@@@@@")
Next
End Sub

Answer 3

Private Sub Command1_Click()
For i = 1 To 4
For j = 2 * i To 8
Print Tab(10 + j); "*";
Next
Print
Next
End Sub