(1)用数组b存储最小下降数列中最小的元素(查找过程中的最小值)b(1)为数组a第1个元素。
(2)加入方法:将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)中。
(3)若数组a各元素的值为:34,54,3,76,2,3时,则3个下降数列分别为:“34,3,2”,“54,3”,“76”。
程序运行界面如下图所示:

小明依据上述描述设计了如下 VB 程序。请回答下列问题:
(1)若数组a的值是:“145,34,12,134,12”,数组b(1)的值是_____。
(2)请在划线处填入合适的代码。
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, bottom As Integer, 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(j) = a(i)
c(j) = c(j) + 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

同类型试题

y = sin x, x∈R, y∈[–1,1],周期为2π,函数图像以 x = (π/2) + kπ 为对称轴
y = arcsin x, x∈[–1,1], y∈[–π/2,π/2]
sin x = 0 ←→ arcsin x = 0
sin x = 1/2 ←→ arcsin x = π/6
sin x = √2/2 ←→ arcsin x = π/4
sin x = 1 ←→ arcsin x = π/2


y = sin x, x∈R, y∈[–1,1],周期为2π,函数图像以 x = (π/2) + kπ 为对称轴
y = arcsin x, x∈[–1,1], y∈[–π/2,π/2]
sin x = 0 ←→ arcsin x = 0
sin x = 1/2 ←→ arcsin x = π/6
sin x = √2/2 ←→ arcsin x = π/4
sin x = 1 ←→ arcsin x = π/2

