Question

VB 用label输出以下图形

*
***
***** 如左菱形样子的*组成
*** 用循环做 跪求大佬
*

Answer 1

Private Sub Command1_Click()
    Label1 = ""
    For i = -2 To 2
        Label1 = Label1 & Space(Abs(i) + 1) & String(5 - 2 * Abs(i), "*") & vbCrLf
    Next i
    Label1 = Right(Label1, Len(Label1) - 1)
End Sub

追问

系统说string是一个类类型，不能作为表达式，怎么办