大數(shù)據(jù)是當(dāng)今最熱門的領(lǐng)域之一，小王同學(xué)利用VB設(shè)計(jì)了一個(gè)模擬大數(shù)據(jù)應(yīng)用的程序。有10種商品，數(shù)組a存儲(chǔ)用戶是否購買了各種商品；某個(gè)用戶購買時(shí)，商品兩兩之間是否一起購買用另一個(gè)數(shù)組dsj來記錄；各數(shù)組元素的解釋如表所示。

數(shù)組元素	數(shù)組元素的含義
a（i）	a（1）到a（10）依次存儲(chǔ)1號(hào)顧客購買商品1～商品10的記錄； a（11）至a（20）依次存儲(chǔ)號(hào)2顧客購買商品1～商品10的記錄；依次類推。 數(shù)組a的某個(gè)元素的值為1，則表示某位顧客購買了某種商品，若為0則表示沒有購買該種商品。如a（6）=1表示1號(hào)顧客購買了商品6，a（6）=0表示未購買。
b（i）	dsj（1）～dsj（9）依次存儲(chǔ)商品1與商品2～商品10的關(guān)聯(lián)次數(shù)； dsj（10）～dsj（17）依次存儲(chǔ)商品2與商品3～商品10的關(guān)聯(lián)次數(shù)：依次類推。 如dsj（5）=2表示商品1與商品6被同時(shí)購買過2次； 如dsj（45）=4表示商品9與商品10被同時(shí)購買過4次。 數(shù)組dsj中，若dsj（45）的值最大，則表示商品9和商品10的關(guān)聯(lián)次數(shù)最多。

小王按照上述算法設(shè)計(jì)了VB程序，統(tǒng)計(jì)了20個(gè)用戶購買10種商品之間的關(guān)聯(lián)性，VB程序如下，部分界面如圖所示。

Private Sub Cmd1_Click ____
Dim a（1To200）As Integer'各個(gè)用戶原始的購買記錄
Dim dsj （1To45）As Integer'統(tǒng)計(jì)商品之間的關(guān)聯(lián)次數(shù)
Dim i As Integer,t As Integer,nc As Integer,j As Integer,max As Integer
'數(shù)組a讀入數(shù)據(jù)并在列表框分行輸出，代碼略
For i=1 To 20'20個(gè)用戶
t=1
For j=1 To 9'10個(gè)商品，共45種組合
For k=j+1 To 10
m=（i-1）*10
a（j）*a
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
End If
Next i
t=9：nc=1
Do While maxi＞t
③
t=t-1
nc=nc+1
Loop
Text1.Text=“關(guān)聯(lián)最多的是商品“+Str（nc）+Str（maxi+nc）+“：“+Str（max）+“次“
End Sub
（1）將按鈕上的文字“統(tǒng)計(jì)”修改為“計(jì)算”，可在Form_Load過程中使用

A

A

（單選，填字母）語句實(shí)現(xiàn)；
A.Cmd1.Caption=“計(jì)算”B.Cmd1_Click=“計(jì)算”C.Command1.Text=“計(jì)算”
（2）加框處代碼有錯(cuò)，請(qǐng)改正；
改正：

a（j+m）*a（k+m）=1

a（j+m）*a（k+m）=1

（3）在程序橫線處填入合適代碼，使程序完整。
①

t=t+1

t=t+1

②

dsj（i）＞max

dsj（i）＞max

③

maxi=maxi-t

maxi=maxi-t