为实现上述功能的程序如下，请在程序划线处填入合适的代码。

Private Sub Command1_Click()

    Dim a As String

    Dim n As Integer

    a = Text1.Text

    n = Len(a)

    Do While   ①    and Mid(a, n, 1)="0"

        n = n - 1

    Loop

    For i = n To 1 Step -1

        Text2.Text = Text2.text +     ②    

    Next i

End Sub

s="ABCDEFGH"

i=1

Do While i<=Len(s)

    If i mod 2=0 then

        s=mid(s, i+1, len(s)-i) & mid(s, 1, i-1)

    End If

    i=i+1

Loop

Text1.text=s

Dim s As String， ch As String

Dim i As Integer， cnt As Integer， sum As Integer， num As Integer

Dim ave As Single

s=Text1.Text：num=0：ch=""：cnt=0：sum=0

For i =1 To len(s)

    ch = Mid(s， i， 1)

    If   ⑴   Then

        cnt=cnt+1

    Else

        If cnt>0 Then

            num=num+1

              ⑵ 

              ⑶ 

        End If

    End If

Next i

ave=sum/num

Label1. Caption =“总共有”+ Str(num) +“个单词，平均长度为：”+ Str (ave)

划线处可选代码为：

①sum = sum + cnt

②sum = sum + num

③cnt = 0

④cnt = 1

⑤Not(ch =””Or ch = “.”)

⑥ch>=“a” And ch<=“z” or ch>=“A”And ch<=“Z”

⑴、⑵、⑶处语句分别为(    )

#求0～50的所有偶数的和

s＝{#blank#}1{#/blank#}

for i in range（0, {#blank#}2{#/blank#} , {#blank#}3{#/blank#}）：

   s＝s＋{#blank#}4{#/blank#}

print（"0～50所有偶数的和为", {#blank#}5{#/blank#}）

实现功能：键盘上输入任意一个正整数，将其按冰雹猜想的规则进行拆解，输出每一步拆解的值和总步数，验证其是否符合冰雹猜想。

冰雹猜想是指：一个正整数，如果是奇数就乘以3再加1，如果是偶数就对它除以2（如下图），这样经过若干次，最终回到1。无论这个过程中的数值如何庞大，就像瀑布一样坠落，在经过若干次的变换之后也必然会到纯偶数：4－2－1。

N变为

x＝{#blank#}1{#/blank#}(input("请输入任一正整数："))

n＝0

while({#blank#}2{#/blank#})：

    if (x%2 ！＝ 0)：

        x＝{#blank#}3{#/blank#}

   else：

        x＝int(x/2)

    print({#blank#}4{#/blank#}, end＝" ")