Dim a As Integer, b As Integer

  a = Val(Text1.Text)

  If a Mod 2 = 0 Then

b = a + 1

ElseIf a Mod 3 = 0 Then

b = a + 2

ElseIf a Mod 5 = 0 Then

b = a + 4

  Else

b = a

  End If

  Label1.Caption = Str(b)

运行该程序，在文本框Text1中输入25，单击命令按钮Command1，在标签Label1中显示的是（   ）

Dim a(1 To 10) As Integer，i As Integer，j As Integer

a(1)=1

a(2)=1

For i=3 To 5

a(i)=1

For j=i-1 To 2 Step -1

a(j)=a(j)+a(j-1)

Next j

Next i

Text1.Text=Str(a(3))

该程序段运行后，在文本框Text1中显示的内容是(  )

Max=-10000

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的值为（  ）

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)

代码顺序正确的是（  ）

For i= 1 To 10

    b(i)=0

Next i

For i= 1 To 5

    For j= 1 To 10

        If b(i) <a(j) Then

          b(i)=a(j)

          t=j

        End If

    Next j

    a(t)=0

    List 1.Additem Str(b(i) )

Next i

其中数组元素a(1)到a(10)的值依次为“25，42，53，66，77，83，98，14，38，99”，执行程序后，在列表框List 1中依次输出的数据是（  ）