编写一个“合并重叠区间”的VB程序，功能如下：在文本框Text1中按各区间起始值升序依次输入各区间的起始值和终止值（数据都用逗号分隔并以逗号结尾），单击“确定”按钮后，在Text2中显示合并后的各个区间｡例如，在文本框Text1中输入“1，2，3，5，4，6，9，12，10，11，”，表示区间[1，2]，[3，5]，[4，6]，[9，12]，[10，11]，合并后的区间分别为[1，2]，[3，6]，[9，12]｡程序运行界面如图所示，实现上述功能的VB代码如下：

Const n=100

Private Sub Cmd1_Click()

    Dim i As Integer, k As Integer, L As Integer, R As Integer

    Dim s As String, c As String, t As String, result As String

    Dim a(1 To n) As Integer

    s=   ①   : t=" ": k=0

    For i=1 To Len(s)

        c=Mid(s, i, 1)

        If c<>"," Then

                 ②      

        Else

            k=k+1

            a(k)=Val(t)

            t=""

        End If

    Next i

    L=a(1): R=a(2)

    i=3

    Do While i<=k

        If a(i)>R Then

            result = result+"("+Str(L)+","+Str(R)+"),"

            L=a(i): R=a(i+1)

            R=a(i+1)

        End If

            ③   

    Loop

    result=result+"("+Str(L)+","+Str(R)+"),"

    Text2. Text=result

End Sub

样例1：

输入： 2-163-91475-4

输出：正确

样例2：

输入： 2-163-91475-5

输出：错误

import random s="12345678"

g=""

for i in range(3):

    n=len(s)

    pos=random.randint(1,n-1)

    g+=s[pos]

    s=s[0:pos]+s[pos+1:n] print(g)

在该程序段执行时，变量 g 的值可能为 （   ）

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)