编写一个“合并重叠区间”的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

For i=1 To 5

    a(i)=Int (Rnd*9) +1

Next i

For i= 1 To 5

    If i Mod2=0 Then

        a(i) = a(i)\i

    Else

        a(i)= a(i) Mod i

    End If

Next i

执行该程序段后，在下列选项中a(1)至a(5)各元素可能是（    ）

1)查找相邻两个非降序数据段：在未处理的数据区域中，从前往后找出第一个最长非降序数据段。若该数据段后面没有元素，则本轮处理完毕：否则在第1个数据段的后面，从前往后找出数组中第二个最长非降序数据段。

2)合并两个数据段：借助数组tmp．将查找到的两个相邻数据段合并成一个非降序数据段，然后将合并后的数据依次存回到原数组中。

3)若数组中还有未处理的数据，则重复(1)(2)步骤。每一轮数据处理完毕后，重新从数组第1个数据开始进行下一轮处理。若检测到某一轮没有合并处理，则说明n个数据已构成非降序数据段，数据处理结束。

表1  某高校学考等级成绩折算表

表2  某学生学考等级成绩单

编写Python程序实现学考成绩总分折算。表2学生的折合分数如图所示。

s＝float（input（"请输入分数："））

if 90＜＝s＜＝100：

    print（"A等第"）

elif 75＜＝s＜90：

    print（"B等第"）

elif 60＜＝s＜75：

    print（"C等第"）

elif s＜60：

    print（"D等第"）

p ="Tel-114"

c=""

for ch in p:

 if ch>= "0" and ch<= "9":

 c+=str(9-int(ch))

 elif ch>= "a" and ch<= "z":

 ch= chr(ord(ch) - 32)

 if ch>= "A" and ch<= "Z":

 c=ch+c

print(c)

执行程序后，输出的结果为（   ）