程序描述：计算两个浮点数a和b的相除的余数，a和b都是正数。这里余数（r）的定义是：a = k * b + r，其中 k是整数， 0 <= r < b。代码如下：

a=    ①     (input("请输入："))

b=    ①     (input("请输入："))

k=   ② 

r=   ③ 

print(r)

Private Sub Command1_Click()

    Dim Pi As Single, t As Single

    Dim n As Integer, s As Integer

    Pi = 0

    t = 1: n = 1: s =1

    Do While Abs(t) >= 0.0001

        Pi = Pi + t

        n ={#blank#}1{#/blank#}

        s= {#blank#}2{#/blank#}

        t = s / n

    Loop

    Text2.Text ={#blank#}3{#/blank#}

End Sub

写一个计数器程序，要求反复输入一位数字，遇到数字0结束输入，统计输入了多少个数字（不含0）并输出结果。

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

ans＝{#blank#}1{#/blank#}      #ans用来统计数字个数

while {#blank#}2{#/blank#}:

    ans＋＝{#blank#}3{#/blank#}

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

print（ans）