实现上述功能的VB程序如下，但加框处代码有错，请改正。

  Const n=50

  Dim d(0 To n)As Single，name(1 to n)As String

  ‘读人50个学生的身高，依次存入d(1)…d(50)，最高身高小于2，姓名存入

  name(1)…name(50)

  ‘代码略

  Private Sub Command1_Click()

  Dim i As Integer，j As Integer，temp As Single，k As Integer，r As String

  d(0)=2

  For i=1 To 10

        ‘(1)

      For j=i To n

        If d(j)<d(i-1)Then

           If     Then ‘(2)

            k=j

           End If

        End If

      Next j

    If k<>i Then

       temp=d(k)：d(k)=d(i)：d(i)=temp

       r=name(k)：name(k)=name(i)：name(i)=r

     End If

     Next i

     For i=1 To 10    ‘输出被选的l0个人的名字和身高。

       List2．AddItem name(i)&d(i)

     Next i

    End Sub

For i = 1 To Len(Text1.Text)

  c = Mid(Text1.Text, i, 1)

  If c >= "0" And c <= "9" Then c = Chr(Asc(c) + 1)

  If c >= "A" And c <= "Z" Then c = Chr(Asc(c) + 32)

  s =s + c

Next i

若文本框Text1的内容为“Number 2468！”执行程序后，变量s的值为（   ）

执行这部分流程后，变量a的值是（  ）

a = 3

b = 9

c = a + b

If c = 12 Then py = "正确" Else py = "不正确"

分析该程序段，下列说法正确的是（  ）