①共八位字符，前两位为字母“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

 Dim x，y As Integer

  x=2

  y=20

  Do While  x<y

     x =x^2

  Loop

      If I=1 Then

          X=X+1

      Else

          X=X*2

      End If

它的基本结构属于(    ).

    max=10 000

    For i=1 To 10

        s=0

        For j=i To 10

          s=s+a(j)

          If s>max Then max=s

        Next j

Next i

已知数组a(1)到a(10)的原始数据为6，-6，8，-7，7，2，-2，-1，-2，4。程序执行后，变量max的值为（  ）

Private sub Command1_click()

Dim s1 As String, s2 As String, t As String, ch As String

Dim i As Integer

s1 = Text1.Text

i = Len(s1)

t = "": s2 = ""

Do While i > 0

    ch = Mid(s1, i, 1)

    If ch >= "0" And ch <= "9" Then

        t = ch + t

    Else

    s2 = s2 + t +，   ①

    t = ""

End If

i = i + 1    ②

Loop

s2 = s2 + t

Text2.Text = s2

End sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#}