当输入的运算符不是加、减、乘、除四种运算符时，则输出“运算符不正确”；当进行除法运算时，如果除数为0，提示输出“除数不能为零”。相应的Visual Basic程序如下，在①和②划线处，填入合适的语句或表达式，把程序补充完整。

Private Sub Command1_Click（）

    Dim a As Single, b As Single, ch As String

    a = Val(Text1.Text)

    b = Val(Text2.Text)

             ①      

    If ch = "+" Then

        Text4.Text = Str(a + b)

    ElseIf ch = "*" Then

        Text4.Text = Str(a * b)

    ElseIf ch = "-" Then

        Text4.Text = Str(a - b)

    ElseIf ch = "/" Then

        If  ②  Then Text4.Text = Str(a / b) Else Text4.Text = "除数不能是零"

    Else

                 ③     

    End If

End Sub

实现上述功能的VB程序代码如下，但加框处代码有错，请改正。

Private Sub Command1_Click()

  Dim s As String, ch As String

  Dim ch2 As String, sum As Double

  Dim n As Integer, i As Integer

  s = Text1.Text

  n = Len(s)

  i = 1: sum = 0

  Do While                                    ＇①

    ch = Mid(s, i, 1)

    If ch >= "0" And ch <= "9" Then

      j = i

      ch2 = Mid(s, j, 1)

      Do While ch2 >= "0" And ch2 <= "9"

        j = j + 1

        ch2 = Mid(s, j, 1)

      Loop

      sum = sum + Val（ ）     ＇②

      i = j

    End If

    i = i + 1

  Loop

  Label3.Caption = Str(sum)

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#} 

为了实现这一目标，完善下列程序，使之能完成该功能。

Private Sub command1_click()

   Const n=20

   Dim i as integer,j as integer

   Dim a(1 to n) as integer

   For j=1 to n

      a(j)=0

   next j

   for i=1 to n

      for j=1 to n

         if j mod i=0 then

             {#blank#}1{#/blank#}

         End if

       Next j

    Next i

    For j=1 to n

       If {#blank#}2{#/blank#} then list1.additem str(j)

    Next j

End Sub

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

冰雹猜想是指：一个正整数，如果是奇数就乘以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＝" ")