Private Sub Command1_Click()

   Dim x As Integer

   Dim y As Integer

   x = 900

   y = Abc(x)

   Label1．Caption = Str(y)

 End Sub

运行程序，单击命令按钮Command1后弹出如图所示的出错信息提示，引起该错误的语句是（   ）

实现上述功能的VB程序如下，但加框处代码有错，请改正。

Private Sub Command1_Click()

  Text2．Text=coding(Text1．Text)

End Sub

Private Function coding(s As String)As String

 Dim n As Integer，i As Integer，C As String

 c=Mid(s，1，1)

n=1

 For i=2 To Len(s)

    If  Then    ‘(1)

       n=n+1

    Else

      c=c+Str(n)+“／”

      n=1

    End If

  Next i

  coding=     ‘(2)

End Function

程序代码中,语句加框处有错，请改正。

Private Sub Command1_Click()

Dim s As String, sum As Integer

Dim i As Integer, j As Integer

List1.Clear

s = Text1.Text

n = len(s)

                               ’（1）

For i = 1 To n

  For j = 1 To n-i+1

     List1.AddItem        ’（2）

     sum = sum + 1

  Next j

Next i

List1.AddItem "总共有" + Str(sum)  + "个子串"

End Sub

⑴{#blank#}1{#/blank#} ⑵{#blank#}2{#/blank#} 

Dim n As Integer，s As String

n = 64 :s = ""

Do While n > 0

  s = Str(n Mod 7) + s

  n = n \ 7

Loop

执行该程序段后，变量s的值是（  ）

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