s=Text1．Text

  List1．Clear

  Len1=Len(s)                            ‘①

  For i=l To len1                           ‘②

    For j=1 To len1-i                       ‘③

        List1．Addltem Mid(S，j，i)         ‘④

     Next j

   Next i

运行时发现未输出所有子串，则修改（  ）

Dim a(1 To 5) As Integer, i As  Integer

a(1)=1: a(2)=1

For i=3 To  5

a(i)=a(i-1)+a(i-2)

Next i

Text1.Text=Str(a(i-1))

该程序段运行后，文本框Textl中显示的内容是（  ）

s=Text1.Text

 s1=" "

 For i=1 To Len(s)

    c=Mid(s, i, 1)

If  c>="A" And c<="Z"   Then

c=Chr(Asc(c)+32)                 '大写字母转化为小写字母

End if

s1=s1+c

Next i

 Text2.Text=s1

在文本框Textl中输入"ABcd12XY "，执行上述程序段后，文本框Textl显示的内容是(   )

Dim x As Integer, y As Integer, s As Integer

    x=3:y=4

    If x<y And y<0 Then

        s=x Mod y

    ElseIf y>0 and y<x Then

        s=x*y

    ElseIf x=0 Or y=0 Then

        s=x+y

    Else

        s=0

    End If

该程序段运行之后，变量s的值为（  ）

校验值计算规则如下：

第一步：将身份证号前17位数字分别乘以不同的系数后相加，对应系数如下表所示。

第二步：将第一步的计算结果除以 11，得到余数。 第三步：根据第二步的计算结果从下表获取对应的校验值。

例如：某身份证号为 34052419800101001X。要计算此身份证的校验值步骤如下：第一步：计算 3*7+4*9+0*10+5*5+……+1*2=189

第二步：189除以11得到余数为2

第三步：由余数2获取校验值X。

根据以上规则小王编写了一个验证身份证号是否有效的VB程序，功能如下：在文本框Text1中输入身份证号，单击“验证”按钮Command1后，在列表框List1中显示验证结果。程序运行界面如图1所示。