VB画图体

来源：百度知道 编辑：UC知道 时间：2024/06/21 18:36:20
*?*?*?*
? *?*?*?*
? ?*?*?*?*
??? ?*?*?*?*
是菱形的，我打不好题，帮帮忙，谢谢了

是这样的效果吗？
****
****
****
****

代码：
Option Explicit

Private Sub Form_Load()
Dim i As Long, j As Long
For j = 0 To 3
Print Space(j) & String$(4, "*")
Next j
End Sub

Private Sub Form_Click()
For i = 1 To 9
For j = 1 To i - 1
Print Tab(54 - (6 * (i - j))); "*";
Next j
Print Tab(54); "*";
For k = i - 1 To 1 Step -1
Print Tab(54 + (6 * (i - k))); "*";
Next k
Next i
For a = 8 To 1 Step -1
For b = a - 1 To 1 Step -1
Print Tab(54 - 6 * b); "*";
Next b
Print Tab(54); "*";
For c = 1 To a - 1
Print Tab(54 + 6 * c); "*";
Next c
Next a
End Sub

写入以下代码,运行后点击窗体,显示菱形,代码可能不是很简练,不知道对你有没有帮助

确实太复杂了！
2个for循环就够了