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

某饮品店采用会员积分消费模式。顾客扫描店铺二维码关注公众号，输入手机号及个人资料注册后即成为普通会员，每消费10元可积1分。消费积分累计100分，升级为V1会员，享受8折消费优惠；消费积分累计180分，升级为V2会员，享受7折消费优惠。

from random import random

a=[1]*5

i=1

while i<=4:

    a[i]=int(random()*10)+1

    if a[i]==a[i-1]//2 or a[i]==a[i-1]*2:

        i+=1

执行该程序段后，数组a的值可能是（   ）

x＝int（input（"请输入一个正整数"））

if x%2＝＝0：

    print（x＋1）

else：

    print（x－1）

实现功能：判断正数负数还是零：输入一个实数，如果这个数大于0输出“正数”，如果小于0输出“负数”，如果等于0则输出“零”。

x＝float（input（"请输入一个数："））

if {#blank#}1{#/blank#}：

    print（x，"为正数"）

{#blank#}2{#/blank#}：

    print（x，"为负数"）

else：

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