题型：综合题 题类：模拟题 难易度：困难
浙江省教育绿色评价联盟2018届高三下学期信息技术选考适应性考试试卷
⑴用数组b存储最小下降数列中最小的元素(查找过程中的最小值)，b(1)为数组a第1个元素。
⑵加入方法：将a(i)与数组b中的每个元素依次逐个比较：
若a(i)比b(j)小就用a(i)替换b(j)中的值，将a(i)添加到第j个下降数列中，并存储在c数组的c(j)中。
若a(i)比b(j)都大，则在数组b最后添加a(i)新的元素，将a(i)添加到第j个下降数列中，并存储在c数组的c(j)中。
⑶若数组a各元素的值为34，54，3，76，2，3时，则3个下降数列分别为“34，3，2”“54，3”“76”
程序运行界面如图所示。
小明依据上述描述设计了如下VB程序。请回答下列问题：
Const n=20
Dim a(1 To n)AS Integer
Private Sub Form_Load()
‘读取n个数据，依次存储到a(1)，a(2)，……，a(n)中，代码略
End Sub
Private Sub Command1_Click()
Dim b(1 To n)As Integer ‘存储数列最小的值
Dim c(1 To n)As String ‘存储下降数列
Dim i As Integer，
Dim bottom As Integer，
Dim J As Integer
Dim bn As Integer ‘存储下降数列个数
b(1)=a(1)
①
c(1)=Str(a(1))
For i==2 To n
For j=1 To bn
If ② Then
b(i)=a(i)
c(j)=c(i)+Str(a(i))
Exit For
End If
Next j
If j>bn Then
bn=bn+1
③
c(bn)=Str(a(i))
End If
Next i
For i=1 To bn
List1．AddItem c(i)
Next i
Text2．Text=“数列中共有”+Str(bn)+“个下降序列”
End Sub
① ② ③
试题篮
