Private Sub Command1_Click()

    Dim n As Integer, i As Integer, s As String

    n = Val(Text1.Text)

    s = ""

    For i = 1 To 2 * n - 1

        If i <= n Then  ① Else  ②  

Next i

    Label1.Caption = s

End Sub

为实现以上功能，划线①②处应分别填写

    Dim P As Integer, q As Integer, S As Integer, t As Integer

    p=Val(Text1．Text)

    t=0

    For q=P+1 To 2*p

      s=(p*q)Mod(q-p)

      If s=0 Then

         t=t+1

      End If

    Next q

    Label1. Caption=Str(t)

该程序段运行时，在文本框Text1中输入8，则在标签Label1中显示的内容是（  ）

  PRIVATE SUB FORM_CLICK()

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

  MAX=0: MIN=21

FOR I= 1 TO 10

   A(I)={#blank#}2{#/blank#}

  IF {#blank#}3{#/blank#} THEN   MAX=A(I)

  IF {#blank#}4{#/blank#} THEN  MIN=A(I)

NEXT I

PRINT “最大数是”；MAX ,”最小数是” ；MIN

END SUB

Dim a( 1 To 10) As Integer

Function Search(L As Integer， R As Integer)

As Integer

     M=(L+R)＼2

     If a(M) <a(M-1) And a(M) >a(M+1) Then

     ①

     ElseIf a(M) >a(Ｍ-1) And a(M) >a(Ｍ+1) Then

     ②

     ElseIf a(M) >a(Ｍ-1) And a(M) <a(M+1) Then

     ③

     End If

End Function

Private Sub Command 1 click()

     Label 1.caption=““峰顶”值是：” +Str(Search (1，10))

End Sub

上述程序中划线处可选语句为：

①Search=Search(M+1，R)

②Search=Search(L，M-1)

③Search=a(M)

则①②③处的语句依次是（  ）

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)处语句依次是（  ）