15.在一個數據序列中,如果出現連續升序的幾個數,稱為一個升序段。小張為了在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=①
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