小王設(shè)計(jì)了一個算法試圖求出平面坐標(biāo)系中最左點(diǎn)出發(fā),從左往右途經(jīng)所有點(diǎn)到達(dá)最右點(diǎn)的路徑值和,編寫了一個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程序如下,但加框處代碼有錯,請改正。
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