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

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

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

Private Sub Cmd1_Click ____
Dim a（1To200）As Integer'各個用戶原始的購買記錄
Dim dsj （1To45）As Integer'統(tǒng)計商品之間的關(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個用戶
t=1
For j=1 To 9'10個商品，共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)計”修改為“計算”，可在Form_Load過程中使用

A

A

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

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