图1
   图2

 程序代码如下：

Private Sub Command1_Click()

  Dim i As Integer

  List1.Clear            '清除列表框内容

End Sub

Private Function f(x As Integer) As Boolean  '自定义函数f,返回值为逻辑型

  Dim j As Integer

  f = True

  For j = 2 To Int(Sqr(x))

    If x Mod j = 0 Then

      f =     ③      '函数返回值

      Exit For           '跳出For循环

    End If

  Next j

End Function

  k = 0                 '用来计数

  Max = 600             '指定范围600以内

  n = 9                                  

  Do While n <= Max

  Loop

  Label1.Caption = Str(Max) & "范围内满足问题的数有" & Str(k) & "个"

End Sub

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

① n=n+7

② k = k + 1

③ List1.AddItem Str(n)

④ End If

⑤ If n Mod 3 = 2 And n Mod 5 = 3 Then

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

s=Text1.Text

n=Len(s)          's是待判断的字符串

k=0:j=n

For i=1 to n/2

c1=Mid(s,i,1)

 c2=Mid(s,j,1)

If c1 <> c2 Then k = k+1: Exit For

j={#blank#}1{#/blank#}

Next i

If  {#blank#}2{#/blank#}  Then Label1.Caption="对称"  Else  Label1.Caption="不对称"

n = Len(s)  's是判断的字符串

  k = 0: j = n

  For i = 1 To n \ 2

  Next i

  If k = 0 Then Label1.Caption = "对称" Else Label1.Caption = "不对称"

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

①j = j - 1

②If c1< >c2 Then k = k + 1

③c1 = Mid(s,i,1) : c2 = Mid(s,j,1)

代码顺序正确的是（  ）

Dim a(1 to 5) as Integer, i as Integer, c as Integer

a(1) = 2 : a(2) = 1 : a(3) = 3 : a(4) = 4 : a(5) = 5

c = 0

For I = 3 to 5

If a(i - 2) + a(i - 1) = a(i) Then c = c + 1

Next i

Text1.Text = Str(c)

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

Private Sub Command1_Click()

i＝1

____①____

Do While____②____

____③____

j＝j－1 ′④

Loop

Text1.Text＝Str(i)

Text2.Text＝Str(j)

End Sub