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

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

  n = Len(s)

  i = 1: sum = 0

  Do While                                    ＇①

    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 + Val（ ）     ＇②

      i = j

    End If

    i = i + 1

  Loop

  Label3.Caption = Str(sum)

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#} 

Private Sub Command1_Click()

x = Text1.Text

n = Len(x)

s=s+Mid(x,1,1)

For i = 2 To n

flag =0

For j = 1 To Len(s)

If  Then '{#blank#}1{#/blank#}

flag = 1: Exit For

End If

Next j

If  Then '{#blank#}2{#/blank#}

s = s + Mid(x, i, 1)

End If

Next i

Text2.Text = s

End Sub

程序界面如图所示，在文本框Text1中输入一个正整数，单击“转换”按钮(Command1)后，对应的二进制数在文本框Text2中显示出来。

解决此问题的Visual Basic程序如下，在程序①和②划线处，填入适当的语句或表达式，把程序补充完整。

Private Sub Command1_Click()

 Dim x As Integer,s As String,r As Integer,t As Integer

x=Val(Text1.text)

s=“”

Do While ①      

 r=x Mod 2

s=Str(r)+s

x=②   

 Loop

 Text2.text=s

End Sub