小刘编写了一个求序列所有子序列和的程序。程序能够输 出所有的子序列的和，同时输出最大的子序列和。如序列中有三个元素 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