学进去

编写“矩形面积”程序，实现如下功能：按一定比例随机生成a(1)至a(100)数组元素的值：0或1（0多1少）；将这100个数组元素，按行依次转换为10×10的二维阵列；当数组元素的值为0时显示成“□”，当数组元素的值为1时显示成“◆”，并在列表框Listl中输出。寻找阵列中，由“□”字符构造出的最大面积的矩形，在标签Labell中显示最大面积所占的单位数，程序运行界面如图所示。
                                               
实现上述功能的VB代码如下：
Dim a(1 To 100)As Integer .
Private Sub Commandl_Click()

Dim i As Integer,s As Integer,smax As Integer

'用于随机生成数据,并将阵列按规则在列表框中输出,该部分功能的代码略.

smax=0

For i=1 To 100

If a(i)=0 Then s=search(i)
If s>smax Then smax=s

Next i

Label 1.Caption="最大面积的矩形,占"+Str(smax)+"个单位"

End Sub
Function search(i As Integer)As Integer

Dim x As Integer,x1 As Integer,xend As Integer

Dim y As Integer,y1 As Integer

Dim s As Integer

x=(i-1)Mod 10+1'起始列号

y=(i-1)\10+1'起始行号

x1=x

y1=y

xend=10

search=0

Do While y1<=10

If a((y1-1)*10+x)=1 Then Exit Do'判断
x1=x
Do While xl<=xend
If a((y1-1)*10+x1)=1 Then
x1=x1-1'改错
Else
x1=x1+1
End If
Loop
y1=y1+1
s=(x1-x)*(_____)'填空
If s>search Then search=s

Loop

End Function
请回答下列问题：
（1）根据程序的运行界面，没有 Caption 属性的控件为____类（单选，填字母：

A．窗体/

B．命令按钮/

C．列表框/

D．标签）。

（2）程序代码中，去除“判断”处语句，_________（选填：会/不会）影响程序的结果。
（3）程序代码中，“改错”处的语句有误，应改为__________。
（4）程序代码中，将“填空”处的语句补充完整__________________。