Dim j  As Integer, k  As Integer

List Clear

  For k = 1 To 100

     j = Int(Sqr(k))

     If j * j = k Then list1.AddItem Str(k)

 Next k

    分析程序功能，该程序的功能是（   ）

程序的算法流程图属于{#blank#}1{#/blank#}。

（填：选择结构 / 循环结构 / 顺序结构）

将算法流程图中空缺的部分填上。

{#blank#}2{#/blank#}；

{#blank#}3{#/blank#}；

s = 0

For k =    To 5  s = s + k

Next k

该程序段运行后，循环体 s = s + k 被执行 10 次，则循环变量k的初值是（  ）

Max=-10000

For i=1 To 10

    s=0

    For j=i To 10

      s=s+a(j)

      If s>max Then max=s

    Next j

 Next i

已知数组a(1)到a(10)的原始数据为6，-6，8，-7，7，2，-2，-1，-2，4。程序执行后，变量max的值为（  ）