现有n根棍子，第i根棍子的长度为ai
。想要从中选出三根棍子组成周长尽可能长的三角形，输出最大的周长；若无法组成三角形，则输出0。如当n=5，a={2，3，4，5，10}时，输出12，即选择了3、4、5。当n=4，a={4，5，10，20}时，无法组成三角形，输出0。加框处代码有误，请改正。
Dim a(1 To 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=1 To 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
①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#}
