小刘编写了一个求序列所有子序列和的程序。程序能够输 出所有的子序列的和,同时输出最大的子序列和。如序列中有三个元素 a(1),a(2),a(3),其子序列包括“a(1),a(2)”,“ a(1),a(2),a(3)”,“ a(2),a(3)”。 程序运行界面如图所示。

实现上述功能的VB程序如下(数组每一项的值都为[-100,100]内的随机整数),请将程序代码补充完整。
Private Sub Command1_Click()
Dim a(1 To 10) As Integer
Dim b(10) As Integer
Dim i As Integer, j As Integer
Dim k As Integer, max As Integer
Randomize
max=-32768
List1.Clear
List2.Clear
b(0)= 0
For i=1 To 10
a(i)=___________ '(1)
b(i)=b(i-1)+a(i)
List1.AddItem Str(a(i))
Next i
For I = 1 To 10
For j=i+1 To 10
s="a("+Str(i)+")"+"至"+"a("+Str(j)+")"+"的和为"
k=_______________ '(2)
If k>max Then max=k
List2.AddItem s+Str(k)
Next j
Next i
Label3.Caption="子序列最大和为:"+___________ '(3)
End Sub