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中显示的内容是(  )

n = Val(Text1.Text)

k = a(1)

For i = 2 To n

If  a(i) < k Then k = a(i)

Next i

Text2.Text = Str(k)

假设在文本框Text1中输入“8”，则文本框Text2中输出的值是（  ）

Dim i as Integer, max as Integer Dim a(1 to 10) as Integer

‘代码略，随机产生 10 个不重复的数存于数组 a 的 10 个元素 a(1)~a(10)中max=a(1)

For i=2 to 10

       If a(i)>a(max)  then  max=i Next i

变量 max 用于存储（   ）

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”，则运行结果是（  ）