Dim i As Integer, s As Integer

i = 1

s = 0

Do While i <= 5

 s = s + 2

i = i + 1

Loop

问：该程序段运行后，变量s的值为{#blank#}1{#/blank#}，i的值为{#blank#}2{#/blank#}。

  Function delStr(S As String，m As Integer)As String

    Dim n As Integer：n=Len(S)

    If m<1 Or m>n Then delStr=“输入位置有误!”

    If m=1 Then delStr=Mid(s，2，n-1)

    If m<n Then delStr=Mid(s，1，m-1)+Mid(s，m+1，n-m)

    If m=n Then delStr=Mid(s，1，n-1)

  End Function

  Private Sub Command1_Click()

    Dim S As String：Dim i As Integer

    S=Text1．Text

    For i=1 To 10 Step 2

      S=delStr(S，i)

    Next i

  Text2.Text=S

  End Sub

文本框Text1中输入Happybirthday，执行该程序段，文本框Text2中显示的是（  ）

Private Sub Command1_Click()

    Dim a As Integer, b As Integer

    Dim c As Integer                     '①

    a= Val(Text1. Text)                     '②

    b = Val(Text2. Text)

    c=a + b                             '③

    Label1. Caption ="a + b="+c        '④

End Sub