VB金字塔图形的打印

来源：百度知道 编辑：UC知道 时间：2024/07/04 01:38:17
两个命令按钮，开始和退出
要求程序运行后，单击开始就打印如下图形，并保存到picture.dat中
执行完毕后”开始”按钮边成”完成”，且无效（变灰色）
A
AAA
AAAAA
AAAAAAA
BBBBBBB
BBBBB
BBB
B
各位请给个代码
先谢谢了

Private Sub Command1_Click()
Open App.Path & "\picture.dat" For Output As #1
Dim N As Integer
N = 4 'A的行数
For i = 1 To 2 * N
Print #1, Tab((Abs(i - N - 0.5) * 2 + 1) / 2); String(2 * N - Abs(i - N - 0.5) * 2, IIf(i < N + 1, "A", "B"))
Next
Close
Command1.Caption = "完成"
Command1.Enabled = False
End Sub

设开始按钮的名称为Cmd1
private sub cmd1_click()
open app.path & "/picture.dat" for output as #1

for i = 1 to 7
a =string("A",i)
print a
write #1,a
next
for i = 7 to 1
b= string("B",i)
print b
write #1,b
next
cmd1.caption = "完成"
cmd1.enabled = false
end sub