一个整数数组，里面有正有负，要求找到并输出其中连加和最大的子数组，输出其开始位置和结束位置。如果两个子数组的和相同，则取前一个子数组。如2、-6、0、3、-1、2、5、-4、4、-3，连加和最大的子数组为3、-1、2、5．算法：如果前几项之和为正，继续往后累加，否则从该项开始重新计算和。
小李编写了一个实现该功能的VB程序，运行界面如图所示。单击“随机生成”按钮 Command1后，随机产生10个[-10，10]随机整数，并在列表框List1中显示。单击“找子数组”按钮 Command2后，找出连加和最大的子数组，将最大和在标签 Label1中输出，将子数组在标签 Label2中输出，子数组的起始位置和结束位置在标签 Label3中输出。
实现上述功能的VB程序如下，但加框处代码有误，请改正
Dim a（1 To 10）As Integer
Private Sub Command1_Click （　　）
’生成10个随机数，并显示在列表框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=″连加值最大的子数组为：″+s
Label3．Caption=″子数组从第″+Str（ks）+″到第″+Str（js）+″个″
End Sub