程序代码如下：

Private Sub Command1_Click()

Dim Sname As String, Skey As String    ‘Sname 保存姓名，Skey保存关键字

Dim i As Integer, j As Integer, n As Integer   ‘n关键字的长度

Skey = Text1.Text

n = Len(Skey)

List2.Clear

For i = 1 To List1.ListCount     ‘ListCount是列表框中项目的个数

    Sname = List1.List(i - 1)     ‘将List1中的第i-1项赋值给Sname

    For j = 1 To     ①   

    If Skey =     ②       Then

        List2.AddItem Sname

        Exit For

    End If

    Next j

Next i

If      ③     = 0 Then List2.AddItem "没有找到带<" & Skey & ">的名字。"

End Sub

程序代码

    Private Sub Command1_Click()

    Dim i As Integer

    Dim s As Long

    s = 1

    For    ① 

    ② 

    Next i

    Label1.Caption =    ③

    End Sub

    程序运行结束i的值为：    ④

划线处①应填入{#blank#}1{#/blank#}

划线处②应填入{#blank#}2{#/blank#}

划线处③应填入{#blank#}3{#/blank#}

划线处④应填入{#blank#}4{#/blank#}

s = 1/2 + 2/3 : t = 1: b = 2

For i= 3 To 10

Next i

Label1.Caption = "前10项的和是：" + Str(s)

方框中的代码由以下四部分组成：

①b = r   ②t = b   ③r = t + b    ④s = s + r/(r + b)

代码顺序正确的选项是（  ）

Dim data(10) As Integer     ‘①

Dim n As Integer     ‘n表示总元素个数

Private Sub Command1_Click()

 Dim t As Integer

 t = Val(Text1.Text)

 For i = t To n-1

   ② 

 Next i

 n = n - 1

 For i = 1 To n

   ③ 

 Next i

End Sub

Private Sub Form_Load()

Dim i As Integer

n = 10

For i = 1 To n

  data(i) = i * 2

  List1.AddItem Str(data(i))

Next i

End Sub