一個整數數組，里面有正有負，要求找到并輸出其中連加和最大的子數組，輸出其開始位置和結束位置。如果兩個子數組的和相同，則取前一個子數組。如2、-6、0、3、-1、2、5、-4、4、-3，連加和最大的子數組為3、-1、2、5．算法：如果前幾項之和為正，繼續(xù)往后累加，否則從該項開始重新計算和。
小李編寫了一個實現該功能的VB程序，運行界面如圖所示。單擊“隨機生成”按鈕 Command1后，隨機產生10個[-10，10]隨機整數，并在列表框List1中顯示。單擊“找子數組”按鈕 Command2后，找出連加和最大的子數組，將最大和在標簽 Label1中輸出，將子數組在標簽 Label2中輸出，子數組的起始位置和結束位置在標簽 Label3中輸出。
實現上述功能的VB程序如下，但加框處代碼有誤，請改正
Dim a（1 To 10）As Integer
Private Sub Command1_Click （　?。?br />’生成10個隨機數，并顯示在列表框List1中。代碼略。
End Sub
Private Sub Command2_Click （　?。?br />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=″連加值最大的子數組為：″+s
Label3．Caption=″子數組從第″+Str（ks）+″到第″+Str（js）+″個″
End Sub