Private Sub Command1_Click()

Dim a As Integer, b As Integer

a =5

b = Val(Text1.Text)

b = a + b

label1.Caption = Str(b)

End Sub

先将字符转化为二进制的位数据并显示在文本框text2中，数据位数显示在标签Label1中以16个数据为一段，将k个待加密数据依次分割成若干个数据段，剩余数据（个数小于16）为独立数据段。

数据加密规则：

数据个数等于16的数据段，在段内进行位置变换，得到加密数据段。

数据个数小于16的数据段，直接得到加密数据段。

依次合并加密数据段，即为最后的加密数据。

位置变换的规制，方法如下：

具体界面如下图所示：

Private Sub Command1_Click()

  Dim a(5) as Integer

  Dim n as Integer, i as Integer

  n = Val(Text1.Text)

  i = 0

  a(1) = 1

  a(2) = 1

  For i = 3 To n

    a(i) = a(i-1) + a(i-2)

  Next i

  Label1.Caption = a(i)

End Sub

若在Text1中输入5，则点击按钮后的运行结果为（  ）

Private Sub Command1_Click()

Dim r As Single, s As Single            '①

r="10米"                     '②

s=3.14159*r*r            '③

Text2.Text ="某个半径为"+ Str(r)+"米的圆,其面积为"+ Str(s)+"平方米."             '④

End Sub

则程序中出错的语句是（   ）