以下程序的功能是随机生成20个1到100之间的正整数，用选择排序法将其按从大到小的顺序排列后输出。请将下列程序补充完整。
Private Sub Command1_Click()
Dim a(20) As Integer，i As Integer
Dim j As Integer，temp As Integer
Prin “排序前：”
For i＝1 To 20
a(i)＝Int(Rnd*100)＋1
Print a(i)；
Next i
Print
For i＝1 To 19
For__①__ To 20
If __②__ Then
t＝a(i)
a(i)＝a(j)
③__
End If
Next j
Next i
Print“排序后：”
For i＝1 To 20
Print a(i)；
Next i
End Sub
(1)程序中划线处①应填入_______________________________________。
(2)程序中划线处②应填入_______________________________________。
(3)程序中划线处③应填入_______________________________________。