在一个数据序列中，如果出现连续升序的几个数，称为一个升序段。小张为了在10个数中找和值最大的升序段，编写了下面VB程序。程序运行时，在List1里随机生成10个整数，点击“统计”按钮Command1，在List2显示出和值最大的升序段和它们的和。程序运行界面如图1所示。
（1）在设计程序界面时，可用图2中所示“控件工具箱”中的 （填写相应编号）添加用于显示10个随机整数的列表框。

（2）实现上述功能的VB程序如下，请在横线处填入合适的代码。
Dim a（1 To 10）As Integer
Private Sub Form_Load （　　）
’产生10个随机整数，并在列表框List1中显示，代码略
End Sub
Private Sub Command1_Click （　　）
Dim k As Integer,summax As Integer,sum As Integer,i As Integer,j As Integer
k=0：summax=0
sum=①

a（1）

a（1）

For i=1 To n-1
If a（i）＜a（i+1）Then
sum=sum+a（i+1）
k=k+1
Else
If ②

sum＞summax

sum＞summax

  Then
summax=sum
③

sumt=i-k

sumt=i-k

sumb=i
End If
k=0
sum=a（i+1）
End If
Next i
For j=sumt To sumb
List2．AddItem Str（a（j））
Next j
List2．AddItem“和是：“& str（summax）
End Sub