UC知道用vb编程，谢谢
来源：百度知道 编辑：UC知道 时间：2024/06/29 20:25:41
E
D D D
C C C C C
B B B B B B B
A A A A A A A A A
B B B B B B B
C C C C C
D D D
E
是一个菱形的图案
D D D
C C C C C
B B B B B B B
A A A A A A A A A
B B B B B B B
C C C C C
D D D
E
是一个菱形的图案
仿照下面的
print " *"
print " * * *"
print " * * * * *"
print "* * * * * * *"
print " * * * * *"
print " * * *"
print "
或者下面的
VB显示字符组成的菱形图案，菱形大小可调整。
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, "菱形"
' '或在窗体上显示：
' Me.Cls: Me.AutoRedraw = True
' Me.Print nStr
End Sub