小王設(shè)計(jì)了一個(gè)算法試圖求出平面坐標(biāo)系中最左點(diǎn)出發(fā)，從左往右途經(jīng)所有點(diǎn)到達(dá)最右點(diǎn)的路徑值和，編寫了一個(gè)VB程序功能如下：在文本框Text1中輸入需隨機(jī)生成的坐標(biāo)點(diǎn)數(shù)量，單擊“生成”按鈕Command1后，在列表框List1中生成相應(yīng)數(shù)量的坐標(biāo)點(diǎn)（坐標(biāo)值為大于等于1小于10的實(shí)數(shù)，保留一位小數(shù)），在文本框Text2中輸出路徑值。程序界面如圖所示。
實(shí)現(xiàn)上述功能的VB程序如下，但加框處代碼有錯(cuò)，請(qǐng)改正。
Private Sub Command1_Click （　?。?br />     Dim x（1To 100）As Single,y（1To 100）As Single
     Dim tmp As Single,length As Single,sum As Single,x1As Single,y1As Single
    Dim i As Integer,j As Integer,k As Integer
Randomize
List1．Clear
     k=Val（Text1．Text）
     For i=1To k
    x（i）=Int（Rnd*90）/10+1
      y（i）=Int（Rnd*90）/10+1
       List1．AddItem“X：“+Str（x（i））+““+“Y：“+Str（y（i））
Next i
For i=1To k-1
      For j=1To k-i
           If x（j）＞x（j+1）Then
              x（i）=x（i）+x（j）
              x（j）=x（i）-x（j）
          
            tmp=y（j）
            y（j）=y（j+1）
           y（j+1）=tmp
         End If
      Next j
Next i
sum=0：length=0
For i=1To k-1
         x1=
'變量y1計(jì)算方法同x1，代碼略


        length=Sqr（x1+y1）
        sum=sum+length
    Next i
Text2．Text=Str（Int（sum*10）/10）
End Sub