现有n根棍子，第i根棍子的长度为a_i．想要从中选出三根棍子组成周长尽可能长的三角形，输出最大的周长；若无法组成三角形，则输出0．如当n=5，a={2，3，4，5，10}时，输出12，即选择了3、4、5．当n=4，a={4，5，10，20}时，无法组成三角形，输出0．加框处代码有误，请改正．
Dim a（ 1To 1000）As Integer
Dim n As Integer
Private Sub Form_Load （　　）
‘确定n的值和数组a的各个元素值，即每根棍子的长度值，代码略
End Sub
Function max（x As Integer,y As Integer） As Integer
If x＞y Then
max=x
Else
Max=y
End  If
End  Function
Private  Sub Command1_Click （　　）
Dim  i  As Integer,j  As  Integer,k  As  Integer
Dim  ans  As  Integer,c  As  Integer,longest  As  Integer,rest  As  Integer
ans=0
‘让i＜j＜k,保证棍子不会重复选中
For i=1To n
For j=i+1  To n
For  k=j+1  To  n
c=a（i）+a（j）+a（k）
longest=‘①
rest=c-longest‘rest保存最短的两条边的和
If  Then‘②
ans=max（ans,c）
End  If
     Next  k
Next  j
     Next  i
Print  ans
End  Sub.