UC知道VB.NET编程问题
来源：百度知道 编辑：UC知道 时间：2024/09/25 05:23:06
如何设计程序，可以使得在messagebx中出现一个有“*”组成的菱形？请高手指教！
供参考：
Private Sub Command1_Click()
Dim nStr As String, I As Long, S As Long
S = 10 '菱形上半部分的行数，可修改
For I = 1 To S
nStr = nStr & String(S - I, " ") & String(I * 2 - 1, "*") & vbCrLf
Next
For I = S - 1 To 1 Step -1
nStr = nStr & String(S - I, " ") & String(I * 2 - 1, "*") & vbCrLf
Next
MsgBox nStr, vbInformation, "菱形"
End Sub