Fori=1To5

b(a(i))=b(a(i))+1

Nexti

t=0

Forj=1To10

Fork=1Tob(j)

t=t+1:a(t)=j

Nextk

Nextj

a(1)到a(5)d初值依次是7、5、9、4、3，程序段运行后，数组a的值依次是（）

Private Sub Command1_Click()

Dim r As Single, s As Single            '①

r="10米"                     '②

s=3.14159*r*r            '③

Text2.Text ="某个半径为"+ Str(r)+"米的圆,其面积为"+ Str(s)+"平方米."             '④

End Sub

则程序中出错的语句是（   ）

s="VictoryOnTheWay"            #'A'的ASCII值为65，"a"的ASCII码值为97

mx=""

pre=0

for i in range(1,len(s)):

    if ord(s[i]) < 97:

        if mx<s[pre:i]:

            mx=s[pre:i]

        pre=i

print(mx)（   ）

a = [ 6 , 12 , 9 , 20 , 8 , 11 , 4 ]

for j in range( 1 , len( a ) ) :

    if  a[ j ] < a[ j - 1 ] :

 a[ j ] = a[ j ] + a[ j - 1 ] ;  a[ j - 1 ] = a[ j ] - a[ j - 1 ] ;  a[ j ] = a[ j ] - a[ j - 1 ]

执行该段程序后，列表a的值是（   ）