Private Sub Command1_Click()

        Dim  N  As  Integer

        Dim  S  As  Integer

        N = val(Text1.Text)    

        S = 0

          For i = 1 To N

             S = S +  i * (i + 1)

          Next i

        Text2.Text = str(S)

End Sub

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

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

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