s = 0

a = 5

For i = 1 To 10 Step 2

    a = a + i

    s = a * i

Next i

问：该程序段运行后，

Private Sub Command1_Click()

 Dim a(1 To 5) As Integer

 a(5)=Val(Text1.text)

 For i=4 To 1 Step -1

   a(i)=a(i+1)\2

 Next i

 Label1.caption=str(a(1))

End sub

在文本框Text1中输入“100”,单击命令按钮Command1后,标签Label1中显示的内容是（  ）

a(1)=68: a(2)=88: a(3)=76: a(4)=60: a(5)=98: a(6)=100: a(7)=64: a(8)=85: a(9)=99:a(10)=59

For i = 1 To 9

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

 c(b(i) \ 10) = c(b(i) \ 10) + 1

Next i

For i = 0 To 10

 If c(i) > 0 Then Label1.Caption = Label1.Caption + “” + Str(c(i))

Next i

数组c各元素初值为0，执行该程序段，标签Label1上显示的内容是（  ）

Private Sub Form_Click()

    Dim arr(1 to 10, 1 to 10） As Integer

    Dim i As Integer, j As Integer

    For i =2 To 4

        For j = 2 To 4

            arr(i, j） = i * j

        Next j

    Next i

    Label1.Caption =str(arr(2, 2）+ arr(3, 3))

End Sub

d={} s=0

n=int(input("请输入多边形的边的数量："))
for i in range(1, ① ):

    x=int(input("请输入多边形顶点的横坐标："))

    y=int(input("请输入多边形顶点的纵坐标："))

    d[i]=[x,y] print(d)

j=n

while j>1:

    x1=d[j][0]-d[j-1][0]

    y1=   ①    

    s=s+(x1**2+y1**2)**0.5

         ②      

s=s+((d[n][0]-d[1][0])**2+(d[n][1]-d[1][1])**2)**0.5

print("多边形的周长为：",s)