实现上述功能的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

程序设计过程中数据的存储和计算方法如下：

⑴学生体能分数的存储：如图2所示，第1位学生的游泳、跑步、跳远分数依次存入数组score的第1、2、3个元素里，第2位学生的游泳、跑步、跳远分数依次存入数组score的第4、5、6个元素里，以此类推。

⑵计算名次的算法：先统计每个分数的个数，存入数组a，如图3中a(96)值为9，表示共有9个96分；然后按照分数从高到低依次计算每个有效分数（该分数的个数不为0）对应的名次存入数组b，分数相同时名次并列，如图3中b(96)值为10，表示96分的名次是（并列）第10名，以此类推。

请回答下列问题：

程序界面如图所示，在文本框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