在數組a中按順序找出一組升序子序列，可以不連續，但要求長度最長。例如：數組a的值分別為2，11，4，13，5，7．升序子序列分別有[2，11]、[2，4]、[2，11，13]、[2，4，13]、[2，4，5]、
[2，4，5，7]、[11，13]、[4，13]、[4，5]、[4，5，7]、[5，7]，其中最長升序子序列的數據是2，4，5，7。
算法思路如下：
（1）求以a（i）為結尾元素的最長升序子序列時，找到所有序號j（j=1，2……i-1），且a（j）＜a（i）。
如果這樣的元素存在，且d（j）＞=d（i）（d（i）記錄i位置的最長升序子序列長度），那么就增加i位置的最長升序子序列長度，并記錄該升序子序列倒數第二個位置。
（2）在d數組中找出最大值，即最長升序子序列長度。
（3）例如，2、11、4、13、5、7，d（1）=1，d（2）=2，d（3）=2，d（4）=3，d（5）=3，d（6）=4，所以最長升序子序列長度為4，是以a（6）為結尾元素。
現設計了如下VB程序，界面如圖所示，請回答下列問題：

（1）觀察圖，最長升序子序列的數據是

3，4，6，7，9

3，4，6，7，9

。
（2）請在橫線處填入合適的代碼。
Constn=9
Dima（1Ton）AsInteger
PrivateSubForm_Load （　　）
‘生成n個[1，10]范圍的隨機數，存儲在a數組，并顯示在列表框List1．代碼略
EndSub
PrivateSubCommand1_Click （　　）
Dim d（1 To n） As Integer‘記錄i位置的最長升序子序列長度
Dim pre（1 To n） As Integer‘記錄i結尾的最長升序子序列前一數據的位置
DimstAsString,iAsInteger,kAsInteger,maxlenAsInteger
Fori=1Ton
d（i）=1
Nexti
Fori=2Ton
Forj=1Toi-1
Ifa（j）＜a（i）Andd（j）＞=d（i）Then
d（i）=

①

①

pre（i）=j
EndIf
Nextj
Nexti
maxlen=0：k=0
Fori=1Ton
If

②

②

 Then maxlen=d（i）：k=i
Nexti
DoWhilek＜＞0
st=a（k）&″，″&st

③

③

Loop
Text1．Text=Mid（st,1，Len（st）-1）
EndSub