在数组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