Dim a(1 To 5) As Integer

Dim f As Boolean

a(1) = 23: a(2) = 12: a(3) = 56: a(4) = 34: a(5) = 10

i = 1: f = True

Do While i <= 5 And f = True

  If a(i) = 56 Then f = False

  i = i + 1

Loop

Label1.Caption = i

Private Sub Command1Click()

  Dim a(-1 To 8) As Integer

  Dim i As Integer

  For i = -1 To 8

    a(i) = i * i

  Next i

  List1.AddItem Str (a(i))

End Sub

运行程序，单击命令按钮Command1后，出现的错误提示为

明文：HelloWorld

密钥：abcabcabca

密文：HfnlpYosnd

依据上述算法描述设计了如下VB程序。请回答下列问题：

执行这部分流程后，变量x的值是（  ）

s=56

s1=s\10

s2=s Mod 10

s=s1+s2*10

Print "s="; s