Private Sub Form_Click()
s = vbCrLf
For i = 1 To 5
s = s & String(8 - i, "基族陆 ") & String(2 * i - 1, "*"穗猜) & vbCrLf
Next i
For i = 4 To 1 Step -1
搏顷 s = s & String(8 - i, " ") & String(2 * i - 1, "*") & vbCrLf
Next i
Label1.Caption = s
End Sub
Private Sub Form_Load()
Label1.Caption = ""
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024