问答题
在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm，该程序是不完整的，请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即'号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下：
在窗口中有一个Label控件和两个名称分别为Command1和Comrnand2，标题分别为“开始”和“关闭”的命令按钮。要求程序运行后，单击“开始”按钮后，能将下图给出的菱形写入考生文件夹下的shape.dat文件中；执行完毕，“开始”按钮变成“完成”，且无效(变灰)。程序运行界面如下图右图所示。
【正确答案】根据题意，将两个命令按钮和一个标签添加到窗体中，标签的Caption属性为“编写打印到目标文件的菱形。目标文件为shape.dat”，命令按钮的Caption属性分别设为“开始”和“关闭”，名称分别为Command1和Command2，双击Cornmand1。利用循环打印空格和字母“A”来画出菱形，进入代码窗口，补充后的代码如下：
Private Sub Command1_Click()
Open"shape5.dat" For Output As#1 '打开文件，准备写入
Dim n As Integer
Dim i As Integer
Dim str As String
For n=0 To 4 '打印菱形上半部分
str=" "
For i=0 To 4-n '打印空格
str=str+" "
Next i
For i=0 To 2*n '打印字母“A”
str=str+"A"
Next i
Print # 1，str$
Next n
For n=5 To 8 '打印下半部分
str=" "
For i=0 To {{U}}n-4{{/U}} '打印空格
str=str+" "
Next i
For i=0 To {{U}}2*(8-n){{/U}} '打印字母“A”
str=str+"A"
Next i
Print # 1，str$
Next n
Close#1
Command1.{{U}}Enabled{{/U}}=False
Command1.{{U}}Caption{{/U}}="完成"
End Sub
Private Sub Command2_Click()
{{U}}Unload Me{{/U}}
End Sub
单击[*]按钮运行程序，并按要求保存。
【答案解析】