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中显示的是（  ）

则密码强度为“强”。

If x And y Then x=0

Else x=1后x的结果为（   ）。

X=a(1)：s=0

For i=2 To 5

    If a(i) > x Then

        x = a(i)

    ElseIf a(i) < x Then

        s = s+a(i)

    End If

Next i

数组元素a(1)~a(5)的值依饮为“1，2，3，2，1”，执行该程序段后s的值为（    ）

比如：仓库存储情况列表 a=["0", "A", "A", "B", "B", "A", "0", "0", "0"]，其中"0"表示空位，"A", "B"表示位置上货物种类 , 现需从中取出一件B货物，则应从右侧取出，取完后，仓库存储列表更新为a=["0", "A", "A", "B", "A", "0", "0", "0", "0"]。