Dim a,b,c As Integer

   Dim s AS string

   a=9

   b=41

   c=2*(a+b)

   s=str(b+c)

删数的算法如下：

⑴如果k>0,则从前往后检测相邻字符，否则，转⑶；

⑵①若所有相邻字符都已非降序，则将串尾k个字符删去，k值置0，转⑴；

②若相邻两数存在逆序（即前一个数>后一个数），则将前一个数删除，k值变化，然后回到⑴；

⑶去掉串首的0，输出结果。

按照上述算法思路，编写了VB程序，功能如下：在文本框Text1中输入数字串，在文本框Text2中输入删数的个数，单击“处理”按钮Command1，在文本框Text3中显示最小的整数。程序运行界面如图所示。

Private Sub Command1_Click()

 Dim a(1 To 8) As Integer

 Dim n, i, j, x As Integer

 List1.Clear

 List2.Clear

 a(1) = -5: a(2) = 3: a(3) = 4: a(4) = 12: a(5) = 20: a(6) = 45: a(7) = 70

 For j = 1 To 7

  List1.AddItem Str(a(j))

 Next j

 x = Val(Text1.Text)

 i = 1

 Do While x > a(i) And i < 8 ’找x的插入位置

  ① 

 Loop

 For j = 8 To i + 1 Step -1 ’移动数据

  ② 

 Next j

 a(i) = x

 For j = 1 To 8

  List2.AddItem Str(a(j))

 Next j

 Label1.Caption = “插入的位置是” &Str(i)

End Sub

For i=1To n＼2   

    k=i

        If a(j) <a(k) Then k=j

    Next j

    If i<>k Then

        t=a(i)：a(i)=a(k)：a(k)=t

    End If

    If  Then

        t=a(j)：a(j)=a(j+1)：a(j+1)=t

      End If

    Next j

Next i

上述程序中方框处可选语句或表达式有：

①For j=i+1 To n-i+ 1    ②For j=i+1 To n-i

③a(j)<a(j+1) ④a(j)>a(j+1)

则(1)、(2)、(3)处语句依次是（  ）

s=0

For k=1 To 5

s=s * k

Next k

Print s