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

【小题2】(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 =
① For i = 1 To n - 1
If a(i) < a(i + 1) Then
sum = sum + a(i + 1)
k = k + 1
Else
If
② Then
summax = sum
_ _③ 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