帮忙做一道VB题啊......谢谢啦

来源：百度知道 编辑：UC知道 时间：2024/05/29 03:27:09
在窗口中有一个lable控件，一个名为picture 1 的图片框，和两个名称分别为Cmd Stat 与 Cmd Exit 标题 分别为“开始” “退出” 的命令按钮。 要求程序运行后， 单击“开始”按钮，能打印出于下图所示A字菱形，执行完毕，“开始”按钮变成“完成”按钮 且无效（变灰）
1个 .... .. A
3个 ....... AAA
5个 ...... AAAAA
7个 .... AAAAAAA
9个 ..... AAAAAAAAA
11个.... AAAAAAAAAAA
13个... AAAAAAAAAAAAA
15个.. AAAAAAAAAAAAAAA
13个... AAAAAAAAAAAAA
11个.... AAAAAAAAAAA
9个 .... AAAAAAAAA
7个 ..... AAAAAAA
5个 ...... AAAAA
3个 ........ AAA
1个 ......... A
这个是菱形的，显示的有点问题，各位凑合看吧，多多包涵
帮忙写个程序

是不是要求把菱形把在picture1图片框里? 那就是下面这段程序啦. 如果要打在窗体上, 那把 Picture1.Print 这句改成 Print 就可以了.

Private Sub cmdExit_Click()
End
End Sub

Private Sub cmdStart_Click()
Dim i As Integer, j As Integer
EveryStep = 2
For i = 1 To 8
Picture1.Print Space(8 - i);
For j = 1 To (i * 2) - 1
Picture1.Print "A";
Next
Picture1.Print
Next
For i = 7 To 1 Step -1
Picture1.Print Space(8 - i);
For j = 1 To i * 2 - 1
Picture1.Print "A";
Next
Picture1.Print
Next
cmdStart.Enabled = False
cmdStart.Caption = "完成"
End Sub

邮箱留下