程序描述： 所谓角谷猜想，是指对于任意一个正整数，如果是奇数，则乘3加1，如果是偶数，则除以2，得到的结果再按照上述规则重复处理，最终总能够得到1。如，假定初始整数为5，计算过程分别为16、8、4、2、1。
程序要求输入一个正整数（不为1），将经过处理得到1的过程输出来。代码如下：

x=int(input('输入一个正整数：'))

while    ①    

    if     ②  

        x=x/2

           ③  

    else:

            ④  

            ③  

        if x==1:

                ⑤  

s=Text1.Text

n=Len(s)                's是待判断的字符串

k=0: j=n

For i=1 to n\2

    c1=Mid(s, i, 1)

    c2=Mid(s, j, 1)

    If c1 <> c2 Then k = k+1: Exit For

        j={#blank#}1{#/blank#}

    Next i

    If{#blank#}2{#/blank#} Then Label1.Caption="对称" Else Label1.Caption="不对称"

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

程序空白处应填写的语句是：{#blank#}1{#/blank#}。

a=1

b=0

while a<101:

    b=b+a

    a=a+1

print(b)

n＝int（input（"请输入要计算整数的个数："））

s1＝s2＝{#blank#}1{#/blank#}   #s1表示偶数的和，s2表示奇数的和

for i in range（1, n＋1）：

   a＝int（input（"请输入一个整数："））

   if {#blank#}2{#/blank#}＝＝0：   # 如果是偶数

      s1＝s1＋a

   else：

      s2＝{#blank#}3{#/blank#}

print（"偶数和为：", s1）

print（"奇数和为：", s2）