程序代码如下：

Private Sub Command1_Click()

  Dim n As Integer, i As Integer

  List1.Clear

  n = Val(Text1.Text)

  If n Mod 2 = 0 Then

    For i = 2 To Int(n / 2)

      If isodd(i) = (isodd(n - i)) Then

        List1.AddItem Str(n) + " =" + Str(i) + " +" + Str(n - i)

      End If

    Next i

  Else

    Text1.Text = Str(n) + "不是偶数！"

  End If

End Sub

Private Function isodd(n As Integer) as boolean

   Dim f As integer

   f = 0

   For i = 2 To Sqr(n)

     If n Mod i = 0 Then f = 1: Exit For

   Next i

   isodd =  f

End Function

当输入a、b、c的值分别为5、2、8时，该算法的输出结果为（   ）

S=0：k=1

Do while k <=4

 If 8/k >=3 Then s=s＋k

 k=k＋1

Loop

该程序段运行后，变量s和k的值分别是（  ）

a = 5

b = Len("1011")

If a > b Then

  Label1.Caption = "请重新输入"

Else

 Label1.Caption = "欢迎光临"

End If

该程序段运行后，在标签Label1上显示的是{#blank#}1{#/blank#}。