冬天到了，室外運(yùn)動(dòng)顯然已經(jīng)不適合，因此效實(shí)中學(xué)準(zhǔn)備要舉辦室內(nèi)的乒乓球賽 啦?，F(xiàn)在有 2k 個(gè)同學(xué)參加，每天安排若干場(chǎng)比賽，且每位同學(xué)每天僅參加一場(chǎng)比賽，試給出一種賽程安排表，使得 2k-1 天內(nèi)任意兩個(gè)同學(xué)都至少比賽過(guò)一場(chǎng)。 按照比賽要求，可以設(shè)置賽程表為 n 行 n-1 列的二維表，其中第 i 行第 j 列的元素表 示和第 i 個(gè)選手在第 j 天進(jìn)行比賽的同學(xué)編號(hào)。
若 k=1，則賽程表如下：

若 k=2，則賽程表如下：

觀察兩個(gè)表不難發(fā)現(xiàn)：
①第二個(gè)表的左上角和右下角與第一個(gè)表相同；
②第二個(gè)表的左下角和右上角相同，恰好是第一個(gè)表各元素值加 2． 因此可以通過(guò)第一個(gè)表來(lái)構(gòu)造第二個(gè)表。同理可得，當(dāng)  n=2k  個(gè)同學(xué)的比賽日程表，可以通過(guò) n=2k-1  個(gè)同學(xué)的比賽日程表構(gòu)造得到。
實(shí)現(xiàn)上述功能的 VB 程序如下：
Private Sub Command1_Click（　?。?br /> Dim a（1 To 10000）As Integer
Dim n As Long,tmp As Long,i As Integer,j As Integer,t As Integer a（1）=1：n=1
k=Val（Text1．Text） For t=1 To k
tmp=

①

①

n=n*2
For i=tmp+1 To n
For j=1 To tmp

②

②

Next j
Next i
For i=tmp To n′改錯(cuò)
For j=tmp+1 To n
a（（i-1）*2^k+j）=a（（i+tmp-1）*2^k+（j+tmp） Mod n） Next j
Next i
For i=tmp+1 To n
For j=tmp+1 To n
a（（i-1）*2^k+j）=a（（i-tmp-1）*2^k+j-tmp） Next j
Next i
Next t
For i=1 To n st=″″
For j=1 To n
st=st+Str（a（（i-1）*2^k+j）） Next j
List1．AddItem st
Next i
End Sub
請(qǐng)回答下列問(wèn)題：
（1）該按鈕事件的標(biāo)準(zhǔn)名為

Click

Click

。
（2）加框處代碼有誤，請(qǐng)改正。
（3）補(bǔ)充①、②處代碼實(shí)現(xiàn)上述功能。