根据算法将下列程序补充完整。

Private Sub Command1_Click()

  Dim S As String，ch As String

  Dim ch2 AS String，sum As Double

  Dim n As Integer，i As Integer

  s=Text1．Text

    ①  

  i=1：sum=0

  Do While i<=n

      ch=Mid(s，i，1)

      If ch>=“0”And ch<=“9”Then

        j=i

        ch2=Mid(s，j，1)

        Do While ch2>=“0”And ch2<=“9”

          j=j+1

         ch2=Mid(s，j，1)

        Loop

       sum=sum+    ②   

       i=j

      EndIf

      i=i+1

  Loop

    Label3．Caption=Str(sum)

End Sub

图1

图2

Private Sub       ①       

Dim i, j As Integer               A

i = 347                       B

j = i – 147                  C

Text1.Text = Str(j)           D                       

End Sub

Dim a(l To 100) As String

Private Sub Commandl_Click()

  Dim c As Integer, t As String, ans As String

  s = Textl. Text

  k = Val(Text2. Text)

  ans =“”

  For i = 1 To Len(s) - k - 1

    c = c + 1

    a(c) = Mid(s, i, 1) + Mid(s, i + k + 1, 1)

    If check(c) Then

      ans = ans + a(c) + "，"

    Else

      c = c - 1

    End If

  Next i

  Text3. Text = ans

End Sub

Function check(k As Integer) As Boolean

  Dim i As Integer

  check = True

  For i = 1 To k - 1

    If a(i) = a(k) Then check = False: Exit For

  Next i

End Function

若该程序段执行后，在文本框Text1中输入的字符串长度不超过10，文本框Text2中输入的值在0到8范围内（输入输出都不包括双引号本身），下列说法不正确的是（  ）

Private Sub Command1_Click()

Dim u As Single, x As Single, y As Single, z As Single

u=Val(Text1.Text)

x=(u+10)/(u*u+8)

y=(u-1)/(x+u)

z=Sqr(x-y)

Text2.Text=Str(z)

End Sub

程序运行时，在文本框Text1中输入-1，单击命令按钮Command1，弹出如图所示的错误提示信息。产生此错误的语句是（  ）

m=0:n=0

For i=1 to 100

    If i mod 3="0" then

        m=m+1

    Else

        n=n+1

next i

print m,n