【推荐1】小李编写了“数字游戏”的 VB 程序，功能是查找符合下列条件的 3 个三位数：
①3 个数中包含 1-9 的全部数字，且不重复；
②3 个数的大小之比为 1：2：3。
如“192、384、576”是符合规则的一种组合。
现编写程序功能如下：单击“计算”按钮 Command1，在列表框 List1 中输出符合条件的数字组合，在标签 Label1 中输出组合数量。程序运行界面如图所示。

（1）上图程序运行界面中，有 Caption 属性的对象共_______ （填数字）类。
（2）实现程序功能的 VB 代码如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
       Dim f(0 To 9) As Integer
       Dim i As Long, j As Integer, s As Integer
       Dim tmp As Long, t As Integer, count As Integer
count = 0
       For i = 123 To 333
             For j =①______
                    f(j) = 0
             Next j
             tmp = i + 2 * i * 1000 + 3 * i * 1000000
             Do While tmp > 0
                    t =②_____
                    tmp = tmp \ 10
                    f(t) = 1
             Loop
s = 1
             For j = 1 To 9
                    s = s * f(j)
             Next j
             If③______ Then
                    List1.AddItem Str(i) + Str(2 * i) + Str(3 * i)
                    count = count + 1
             End If
             Label1.Caption = "共有" + Str(count) + "种组合"

Next i

End Sub

【推荐2】某学校要进行年级优秀生表彰，需要对 n 个人的优秀生单独排位置，每行 m 人。排队方阵规则：第 1 行从左向右坐，第 2 行从右向左坐，第 3 行从左向右坐，第 4 行从右向左坐……不断重复。最后一行如果人数不满 m 人，一律从左往右坐。VB 程序功能如下： Text1 输入 m 的值，确定每行坐的人数，单击按钮后，在 List2 列表框中显每位同学的位置，在 List3 列表框中显示每位同学的 4 位数位置编号（行号+列号），如下图所示。实现上述功能的 VB 代码如下：

依据上述描述设计如下 VB 程序：
Dim xh(1 To 100) As Integer , xm(1 To 100) As String, cj(1 To 100) As Integer Dim n As Integer, m As Integer
Private Sub Form_Load()

'本过程从数据库依次读取 n 位同学的序号、姓名及成绩，然后按成绩降序排序，将学生序号、姓名成绩存储在数组 xh 、xm、cj 中，结果显示在List1 中，

End Sub

请回答下列问题：
(1)在设计程序界面时，要清空文本框中的显示内容，应修改文本框的_____属性。
(2)程序中加框处代码有误，请改正。   __________________________
(3)请在①②③划线处填入适当的代码。
①   __________________________________________
②   _________________________________________
③   _________________________________________

【推荐3】将n个元素转换成(n\m)*m矩阵（n是m的倍数）。例如有42个元素，m=7，则可转换成6*7（6行7列）的矩阵转换示例如下：
转换前元素次序为：

12 2 5 3 6 9 4 10 8 5 6 9 6 3 5 8 11 2 8 9

转换为矩阵如下：
       
现要在矩阵中找一个规模为3*3的子方阵，使得该子方阵的各元素之和最大。
（1）若n=25，m=5，则该矩阵中共有3*3的子方阵个数为________。（填数字）
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim a(1 To 100) As Integer
Dim sum(0 To 101) As Long ’sum(i)=a(1)+a(2)+a(3)+…+a(i)
Dim i As Integer, j As Integer, n As Integer, m As Integer, k As Integer
Dim ans As Long, begin As Integer, maxi As Integer
Dim maxsum As Long, s As String
n=Val(Text1.Text)
m=Val(Text2.Text)
If n Mod m <> 0 Then List1.AddItem “输入数据不符合要求”:Exit Sub
For i=1 To n

a(i)=Int(Rnd*50+1)

s=s+Str(a(i))

If i Mod m=0 Then List1.AddItem s:s=“”

Next i
k=3
sum(1)=a(1)
For i=2 To n   ’求sum(i)
_______
Next i
maxsum=0
ans=0
For i=1 To n\m-k+1

For j=k To m

begin=(i-1)*m+j-k+1

maxsum=maxsum+sum(j+(i-1)*m)-sum(j-k+(i-1)*m)

          ________

maxsum=maxsum+(j+(i+1)*m)-sum(j-k+(i+1)*m)

If maxsum>ans Then ans=maxsum:maxi=begin

maxsum=0

Next j

Next i
s= “”
For i=1 To k

For j=1 To k

s=s+Str(a ((        )))

Next j

List2.AddItem s

s=“”

Next i

List2.AddItem “maxsum=”+Str(ans)
End Sub