在一個(gè)數(shù)據(jù)序列中，如果出現(xiàn)連續(xù)升序的幾個(gè)數(shù)，稱為一個(gè)升序段。小張為了在10個(gè)數(shù)中找和值最大的升序段，編寫了下面VB程序。程序運(yùn)行時(shí)，在List1里隨機(jī)生成10個(gè)整數(shù)，點(diǎn)擊“統(tǒng)計(jì)”按鈕Command1，在List2顯示出和值最大的升序段和它們的和。程序運(yùn)行界面如圖1所示。
（1）在設(shè)計(jì)程序界面時(shí)，可用圖2中所示“控件工具箱”中的 （填寫相應(yīng)編號(hào)）添加用于顯示10個(gè)隨機(jī)整數(shù)的列表框。

（2）實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)跈M線處填入合適的代碼。
Dim a（1 To 10）As Integer
Private Sub Form_Load （　　）
’產(chǎn)生10個(gè)隨機(jī)整數(shù)，并在列表框List1中顯示，代碼略
End Sub
Private Sub Command1_Click （　?。?br />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