Private Sub Command1_Click()

   Dim t As Single, h1 As Single, h2 As Single

   Const g = 9.8

   t = Val(Text1.Text)

   h1 = (g * t ^ 2) / 2

   h2 = Int(h1)

   Text2.Text = Str(h2)

End Sub

Dim a(l To 100) As String

Private Sub Commandl_Click()

  Dim c As Integer, t As String, ans As String

  s = Textl. Text

  k = Val(Text2. Text)

  ans =“”

  For i = 1 To Len(s) - k - 1

    c = c + 1

    a(c) = Mid(s, i, 1) + Mid(s, i + k + 1, 1)

    If check(c) Then

      ans = ans + a(c) + "，"

    Else

      c = c - 1

    End If

  Next i

  Text3. Text = ans

End Sub

Function check(k As Integer) As Boolean

  Dim i As Integer

  check = True

  For i = 1 To k - 1

    If a(i) = a(k) Then check = False: Exit For

  Next i

End Function

若该程序段执行后，在文本框Text1中输入的字符串长度不超过10，文本框Text2中输入的值在0到8范围内（输入输出都不包括双引号本身），下列说法不正确的是（  ）

DIM A（1991 TO 1998） AS INTEGER

FOR I=1 TO 8

   A(I)=I

PRINT A(I)；

       NEXT I

   from math import *

def dist(x1, y1, x2, y2):

    length = sqrt((int(x1) - int(x2))**2 +    ①     )

    return length

a = input("请输入各点的坐标：")    # 如“2,3,4,5”则表示坐标点（2,3）和（4,5）

b = a.split(",")

if len(b) % 2 != 0:

    print("输入的坐标有误！")

else:

    s = 0

    for i in range(0,    ②      , 2):

        s = s +     ③    

print("折线的长度为：", s)