①共八位字符，前两位为字母“zj”，后六位是数字，并以66开头（即密码格式为zj66****）；

②最后两位数字相同；

③后六位数能被16和46同时整除。

单击“找回密码”按钮（Command1）后，可能的密码显示在列表框List1中。

Private Sub Command1Click()

Dim s As Long , a As Integer, b As Integer, c As Integer, i As Integer

For i = 0 To 9999

  s = 660000 + i

  If        ①      And s Mod 46 = 0 Then 

'（选填字母，从下列A、B 、C、D四个选项中选取一项）

  a = s Mod 10         

  b = (s Mod 100) \ 10

     If        ②       Then  '（选填字母，从下列A、B 、C、D四个选项中选取一项）

     List1.AddItem ("zj" + Str(s))

     c =       ③                '（填程序代码）

     End If

  End If

Next i

Label1.Caption = "共有" + Str(c) + "个"

End Sub

s=text1.text

For i=1 to len(s)

c=mid(s,i,1)

If c>=″a″ and c<=″z″ then

n=asc(c)-asc(“a”)+1

zm(n)=zm(n)+1

End if

Next i

已知数组zm中各元素初值均为0,若文本框text1中输入的内容是“One world, one dream”,执行该程序段后,zm(15)的值是（  ）

x=Text1.Text

p=0

For i=1 to Len(x)

 If Mid(x,i,1)=“a” Then p=p+1

Next i

Print p

若程序运行时，在文本框Text1中键入“Are you happy”，则运行结果是（  ）

  Privat Sub Command1 Click

      Dim array1(10,10) As Integer

      Dim i AS integer, j As Integer

      For i = 1 To 3

          For j = 2 To 4

              array1(i,j) = i + j

          Next j

      Next i

  Text1.Text=array1(2, 3)+array1(3, 4)

  End Sub

程序运行后，单击命令按钮，在文本框中显示的值（  ）

执行这部分流程，输出s的值是（  ）