If I=1 Then

          X=X+1

      Else

          X=X*2

      End If

它的基本结构属于(    ).

Private Sub Command1_Click()

Dim s As String, a As String, t As String

s = Text1.Text: t = ""

For i = 1 To Len(s)

    a = Mid(s, i, 1)

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

        t = t + a

    ElseIf a = "!" Then

        t = ""

    ElseIf t <> "" Then

        List1.AddItem t

    End If

Next i

End Sub

执行程序时，在文本框 Text1 中输入“12+34=46!789ok”（不包括双引号），单击按钮Command1后，在列表框List1中显示的结果是（  ）

用于输出“购全价票”的图框编号是（  ）

s=Text.Text

c=0

For i=1 To 26

      ⑴ 

Next

For i=1 To Len(s)

      ⑵ 

IF d(t)=0 Then d(t)=i

      ⑶ 

Next

Text2 Text=Str(c)

填空处的代码可由以下部分组成

①d(i)=0 ②=val(Mid(si, 1) ③IFd(t)<>0Andi-d(t)> c Then c=i-d(t)

④d(i)=1 ⑤t=Asc(Mid(s, i, 1)-Asc("a")+1 ⑥fi-d(t)> c Then c=i-d(t)

代码顺序正确的是（  ）

Dima( 1 To 5) As Integer

Dimi As Integer, j As Integer, s As String

s=“”

    For i= 2 To 5

        For j=i To 5

            If j Mod i=0 Then a(j) =a(j)+1

        Next j

    Next i

    For i= 1 To 5

        If a(i) <>1Then s=Str(i) +s

    Next i

    Text 1．Text=S

若数组a的初始值都为0，则运行该程序段后，Text 1中显示的内容为（  ）