Private  Sub  Command1_Click (   )

     Dim  a  As  Integer

Dim  b  As  Integer

Dim  C  As  Integer

     a = Val ( Text1．Text )

b = Val ( Text2．Text )

c= a+b^2

Text3．Text = Str(c)

End  Sub

  程序运行时，单击命令按钮Command1后弹出如图所示的错误信息提示。出现错误的原因是（   ）

Function s(m) As Boolean

 Dim i As Integer

 ______1_______

For i = 2 To Int(Sqr(m))

 If m / i = 0 Then  s = false     ‘3

Next i

End Function

Private Sub Command1_click()

 Dim i, n As Integer

 Dim p1, p2 As Boolean

  n = Val(Text1.Text)

  p1 = s(3)

  List1.Clear

  For i = ______2_____

  p2 = s(i)

  If p2 = True Then List1.AddItem = Str(i - 2) + " " + Str(i)   ‘4

  p1 = p2

Next i

End Sub

合并规则如下：

⑴当字符串1的长度大于字符串2的长度时，将字符串2中的各个字符从左侧依次插入到字符串1中的各字符后方。例如字符串1为“abcdef”，字符串2为“123”时，合并后的字符串为“a1b2c3def”。

⑵当字符串2的长度大于等于字符串1的长度时，将字符串1中的各个字符从右侧依次插入到字符串2中的各个字符后方。例如字符串1为“abcd”，字符串2为“12345”时，合并后的字符串为“12d3c4b5a”。

程序运行界面如图所示。

Private   Sub  Command1_click ( )

Dim  n  As  Integer , x  As  Integer

n = Val ( Text1．Text  )

x = n  Mod 10

n = x * 1000 + n \ 10

Text1．Text = Str ( n )

End  Sub