1. (2019高二上·衢州期中) VB中标准函数功能的实现是在VB内部通过相应的程序代码完成的。为了探索Val函数功能实现的原理，编写了以下程序。已知Val(“12”)的结果为12，即Val函数的功能是将字符型转换成数值型；而Val(“12AB”)和 Val(“12AB34”)的结果也为12，即在转换的时候如果遇到非数字符号就停止转换。编写模拟转换过程的时候，为简化程序，只考虑正整数的转换。运行程序时，在文本框Text1中输入字符串，点击命令按钮Command1后在文本框Text2中显示结果，运行结果如图所示。

VB程序如下，请回答以下问题：

Private Sub Command1_Click()

    Dim s As String, ch As String

    Dim i As Integer

    Dim r As Integer, result As Integer

    Dim flag As Boolean

    s = Text1.Text

    i = 1:result = 0:flag = True

    Do While

        ch = Mid(s, i, 1)

        r =    ①  

        If r > 9 Or r < 0 Then

            flag = False

        Else

               ② 

        End If

        i = i + 1

    Loop

    Text2.Text = Str(result)

End Sub

1. （1） 窗体对象的Caption属性值为：
3. （2） 加框处语句有错，请改正：
5. （3） 请将横线处的语句补充完整

   ① ②