現(xiàn)有n根棍子，第i根棍子的長(zhǎng)度為a_i．想要從中選出三根棍子組成周長(zhǎng)盡可能長(zhǎng)的三角形，輸出最大的周長(zhǎng)；若無(wú)法組成三角形，則輸出0．如當(dāng)n=5，a={2，3，4，5，10}時(shí)，輸出12，即選擇了3、4、5．當(dāng)n=4，a={4，5，10，20}時(shí)，無(wú)法組成三角形，輸出0．加框處代碼有誤，請(qǐng)改正．
Dim a（ 1To 1000）As Integer
Dim n As Integer
Private Sub Form_Load （　　）
‘確定n的值和數(shù)組a的各個(gè)元素值，即每根棍子的長(zhǎng)度值，代碼略
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,保證棍子不會(huì)重復(fù)選中
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.