学进去

小明与同伴玩数学游戏，看谁算的最快。规则如下：对一组数，选其中最小的两个数相加，把和保存到变量Total中；接着，在剩下的数中（包括上一步两数相加的和），选其中最小的两个数相加，并把和累加到前面的Total中，以此类推，直到最后。例如，对于1、2、3、4这四个数，第1步1+2=3，total=3; 第2步，对于3、3、4 ，3+3=6，total=3+6=9; 第3步，对于4、6, 4+6=10，total=9+19=19。最终得到结果：total=19。为了加快计算速度，小明编写了一个VB程序帮助计算。

（1）请帮助小明完善程序，在划线处填入合适的代码。________、________
（2）若随机生成的一组数为3、10、2、5、8，则程序运行后，最终Total的值为：________
（3）加框处的代码有错误，请改正。     ________
Dim a(1 To 10) As Integer
Private Sub mysort(n)
For i = 2 To n
   a(i) = a(i + 1)
Next i
t = a(1)
For i = 2 To n
   If t > a(i) Then
        a(i - 1) = a(i)
   Else
        a(i - 1) = t ：Exit For
   End If
Next i
If i = n + 1 Then ____①____
End Sub
Private Sub Command1_Click()
Dim s As String
n = 5
Randomize
‘随机产生n位整数，并在列表框List1中显示,代码略
For i = 1 To n – 1   ‘对n位数升序排序
   For j = i + 1 To n
       If    Then t = a(i): a(i) = a(j): a(j) = t   
   Next j
Next i
i = 1
Do While n > 1

________②_______

       total = total + a(1)   

n=n-1   

       Call   mysort( n )   
Loop
Label1.Caption = "计算结果为：" + Str(total)
End Sub