i =1：j=2

Do While j <= 10

    If j < 10 Then

        If a(j) > a(j + 1)  Then j =  j + 1

    End If

    If a (i) > a(j)  Then

        temp =a (i): a(i) = a(j): a(j) = temp

        i=j

        j=2*i

    Else

        Exit Do

    End If

Loop

Text1.Text =a (2)

已知数组元素a(1)到a(10)的原始数据为“20, 3, 10, 17,18, 15, 16, 19, 21, 30”，执行该代码后,文本框Text1中显示内容是：（ ）

      PRIVATE SUB FORM-------CLICK()

      S=0

DIM I AS INTEGER, S AS INTEGER

      FOR I= 2 TO 100 {#blank#}1{#/blank#}

           S=S+{#blank#}2{#/blank#}

      NEXT I

      PRINT S

      END SUB