按指定格式录入数据，例：0373,张乐晓,3.90。编号宽度固定为4位，姓名宽度固定为3个汉字，不足部分以全角空格补齐，第9个字符开始为跳远成绩。

 在文本框按回车表示录入一项数据结束，录入的数据经处理后编号、姓名、成绩分别存放在数组编号bh、xm、cj中并将原始数据显示在List1中。

 点击命令按钮Command1后进行排序并将排序后的结果显示在List2中。

 程序运行界面如图所示。

Private Sub Command1Click()

Dim num(0 To 5) As Integer

Dim i As Integer, j As Integer

Dim t As Integer

num(0) = 4: num(1) = 7: num(2) = 2: num(3) = 0: num(4) = 3: num(5) = 9

i = 0: j = 1: t = 0

For i = 1 To 5 Step 1

  For j = i + 1 To 4 Step 1

  If num(i) > num(j) Then

  t = num(i)

  num(i) = num(j)

  num(j) = t

  End If

  Next j

Next i

For i = 1 To 5

List1.AddItem num(i)

Next i

End Sub

  Dim a(1 To 8) As Integer

  a(1) = 12: a(2) = 44: a(3) = 65: a(4) = 26

a(5) = 48: a(6) = 91: a(7) = 98: a(8) = 13

  n = 8: t = 0

  For i = 1 To n - 1

    k = i

    For j = i + 1 To n

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

    Next j

    If k <> i Then

      temp = a(i): a(i) = a(k): a(k) = temp: t = t + 1

    End If

  Next i

  Text1.Text = Str(t)

该程序段运行后，文本框Text1中显示的内容是（  ）

Dim a(1 To 1000) As Single, b(1 To 1000) As Integer Private Sub Form_Load()

Randomize    '生成 1000 个随机数 For i = 1 To 1000

       ①   '产生随机数，保留二位小数

   b(i) = 1                                           '初始排位为 1

   List1.AddItem "a(" & i & ")=" & a(i) Next i

End Sub

Private Sub Command1_Click()

Dim ks As Integer, js As Integer

ks = Val(Text1.Text)  

js = Val(Text2.Text)

For i = ks To js

  For j = ks To js

    If  Then b(i) = b(i) + 1         ②

  Next j

Text1  Text2

  List2.AddItem "a(" & i & ")" & "在 a(" & ks & ")~a(" & js & ")中排位为" & b(i) Next i

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#} 

lst = [2,5,2,1]

y = [1,1,1,1]

n = len(lst)

for i in range(①____):

    for j in range(②____):

        if ③____:

            y[j] = y[j] + 1

        else

            y[i] = y[i] + 1

上述程序段3个划线处的表达式分别为（   ）