①用公式计算即时速度vt = v0 + at

②输入初速度v0、加速度a和时间t

③结束

④输出结果vt

其正确的顺序是（  ）

采用倒推算法，其中设定M的初始值为1（第四天吃完后剩下的桃子数），D为天数（初始值为5）请在下面的①和②（对应流程图中相应空缺位置）填入相应选项。①、②分别为（  ）

Private Sub Command1_Click()

  Dim a As Integer, b As Integer, c As Integer

  Dim d As Integer, z As Integer

  a = Val(Text1.Text): b = Val(Text2.Text): c = Val(Text3.Text)

  d = max(a, b)

  z = max(d, c)

  Text4.Text = Str(d)

  Text5.Text = Str(z)

End Sub

Function max(x As Integer, y As Integer) As Integer

  If x > y Then max = x Else max = y

End Function

运行该程序，在文本框Text1、文本框Text2、文本框Text3中分别输入2、-5、6后，单击命令按钮Command1，文本框Text5中显示的是（  ）

①输入上底a、下底b和高h

②计算梯形面积s(计算公式为：s=(a+b)*h/2)

③输出结果

④结束

上述算法属于（  ）

a = "1100101"

b = Mid(a, 2, 4) + "101"

该程序段运行后，变量b的值为{#blank#}1{#/blank#}。

程序界面如图所示，左边列表框List1中显示同学的编号和姓名，单击"抽奖"按钮（Command1），在标签Label3中显示抽中的编号，同时在标签Label4中显示"恭喜***同学"，其中具体同学的姓名从数组b中获取。

解决此问题的程序段如下，请在程序①和②划线处，填入适当的语句或表达式，把程序补充完整：

Dim a(1 To 50) As Integer

Dim b(1 To 50) As String

Function search(m As Integer) As Integer

search = 0

For i = 1 To 50

    If m = a(i) Then

       search = a(i)

    End If

Next i

End Function

Private Sub Command1_Click()

Dim c As Integer,t as integer

Randomize

{#blank#}1{#/blank#}

Label3.Caption = Str(c)

t = search(c)

  If t <> 0 Then

    Label4.Caption = "恭喜" + {#blank#}2{#/blank#} + "同学"

   End If

End Sub

Private Sub Form_Load()

    ' 此过程用于对数组a和数组b进行初始赋值，代码略

End Sub