一個(gè)整數(shù)數(shù)組，里面有正有負(fù)，要求找到并輸出其中連加和最大的子數(shù)組，輸出其開始位置和結(jié)束位置。如果兩個(gè)子數(shù)組的和相同，則取前一個(gè)子數(shù)組。如2、-6、0、3、-1、2、5、-4、4、-3，連加和最大的子數(shù)組為3、-1、2、5．算法：如果前幾項(xiàng)之和為正，繼續(xù)往后累加，否則從該項(xiàng)開始重新計(jì)算和。
小李編寫了一個(gè)實(shí)現(xiàn)該功能的VB程序，運(yùn)行界面如圖所示。單擊“隨機(jī)生成”按鈕 Command1后，隨機(jī)產(chǎn)生10個(gè)[-10，10]隨機(jī)整數(shù)，并在列表框List1中顯示。單擊“找子數(shù)組”按鈕 Command2后，找出連加和最大的子數(shù)組，將最大和在標(biāo)簽 Label1中輸出，將子數(shù)組在標(biāo)簽 Label2中輸出，子數(shù)組的起始位置和結(jié)束位置在標(biāo)簽 Label3中輸出。
實(shí)現(xiàn)上述功能的VB程序如下，但加框處代碼有誤，請(qǐng)改正
Dim a（1 To 10）As Integer
Private Sub Command1_Click （　?。?br />’生成10個(gè)隨機(jī)數(shù)，并顯示在列表框List1中。代碼略。
End Sub
Private Sub Command2_Click （　　）
Dim maxsum As Integer,lastsum As Integer,ks As Integer,js As Integer,k As Integer
Dim s As String,i As Integer
ks=1：js=1：k=1：maxsum=a（1）：lastsum=a（1）
For i=2 To 10
If  lastsum＞0 Then
′（1）
Else
lastsum=a（i）
′（2）
End If
If lastsum＞maxsum Then
Maxsum=lastsum
ks=k
js=i
End  If
Next  i
Label 1．Caption=″連加值最大的和為″+Str（ maxsum）
For i=ks To js
s=s+Str（a（i））
If i＜＞js Then s=s+″、″
Next i
Label2．Capt ion=″連加值最大的子數(shù)組為：″+s
Label3．Caption=″子數(shù)組從第″+Str（ks）+″到第″+Str（js）+″個(gè)″
End Sub