冬天到了，室外运动显然已经不适合，因此效实中学准备要举办室内的乒乓球赛 啦。现在有 2k 个同学参加，每天安排若干场比赛，且每位同学每天仅参加一场比赛，试给出一种赛程安排表，使得 2k-1 天内任意两个同学都至少比赛过一场。 按照比赛要求，可以设置赛程表为 n 行 n-1 列的二维表，其中第 i 行第 j 列的元素表 示和第 i 个选手在第 j 天进行比赛的同学编号。
若 k=1，则赛程表如下：

若 k=2，则赛程表如下：

观察两个表不难发现：
①第二个表的左上角和右下角与第一个表相同；
②第二个表的左下角和右上角相同，恰好是第一个表各元素值加 2． 因此可以通过第一个表来构造第二个表。同理可得，当  n=2k  个同学的比赛日程表，可以通过 n=2k-1  个同学的比赛日程表构造得到。
实现上述功能的 VB 程序如下：
Private Sub Command1_Click（　　）
 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′改错
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
请回答下列问题：
（1）该按钮事件的标准名为

Click

Click

。
（2）加框处代码有误，请改正。
（3）补充①、②处代码实现上述功能。