Dim a As Integer, b As Integer, c As Integer, y As Integer

a=3:b=4:c=4

If a<=b And c<=a Then

  y=a+b

ElseIf a<=b or b<=c Then

  y=b+c

ElseIf b=c Then

y=a mod c

Else

  y=a+b+c

End If

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

Dim a As Integer, b As Integer, c As Integer

a = 20

b = 0

c = 2

Do While a > b And a > c

   b = b + 1

   c = c + b

Loop

问：该程序段运行后，

For i=1 To 100

For j=i To 100

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

Next j

Next i

Text1. Text=Str(a(30))

数组a各元素的初值为0，执行上述程序段后，文本框Text中输出的内容为（  ）