学进去

大数据是当今最热门的领域之一，小王同学利用VB设计了一个模拟大数据应用的程序。有10种商品，数组a存储用户是否购买了各种商品；某个用户购买时，商品两两之间是否一起购买用另一个数组dsj来记录；各数组元素的解释如下表所示。

小王按照上述算法设计了VB程序，统计了20个用户购买10种商品之间的关联性，VB程序如下，部分界面如图所示.

Private Sub Cmd1_Click()
Dim a(1 To 200) As Integer     '各个用户原始的购买记录
Dim dsj(1 To 45) As Integer    '统计商品之间的关联次数
Dim i As Integer, t As Integer, nc As Integer, j As Integer,, max As Integer
'数组a读入数据并在列表框分行输出,代码略
For i = 1 To 20                '20个用户
t = 1  
For j = 1 To 9              '10个商品,共45种组合
For k = j + 1 To 10
m = (i - 1) * 10
If   Then dsj(t) = dsj(t) + 1
①     
Next k
Next j
Next i
max = 0
For i = 1 To 45
If ②　　  Then 
max = dsj(i)
maxi = i
EndIf
Next i
t = 9: nc = 1
Do While maxi > t
③      
t = t - 1
nc = nc + 1
Loop
Text1.Text = “关联最多的是商品” + Str(nc) + Str(maxi + nc) + “:” + Str(max) + “次”
End Sub
（1）将按钮上的文字“统计”修改为“计算”，可在Form_Load过程中使用______（单选，填字母）语句实现；
A.Cmd1.Caption=“计算”   B.Cmd1_Click=“计算”   C.Command1.Text=“计算” 
（2）加框处代码有错，请改正；
________
（3）在程序划线处填入合适代码，使程序完整。
①______________________________
②______________________________
③______________________________