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 *1 / n

    Loop

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

End Sub

图1

Dim p As Integer, q As Integer, s As Integer, t As Integer

p = Val(Text1.Text)

t = 0

For q = p+ 1 To 2 * p

s = (p * q) Mod (q - p)

If s = 0 Then

t = t+ 1

End If

Next q

Label1.Caption = Str(t)

该程序段运行时，在文本框T extl中输入8 , 则在标签Labell中显示的内容是（  ）

一个正整数的阶乘是所有小于及等于该数的正整数的积，并且0的阶乘为1，即n！＝1*2*3*...*（n－1）*n。

n！＝ 现求n！。

def f（n）：   #定义递归函数f（n）

    if n＝＝0 or n＝＝1：

        return 1   #定义当n为0时函数返回值为1

    else：

        return {#blank#}1{#/blank#}   #递归定义n≥1时的通项公式

{#blank#}2{#/blank#}＝int（input（"请输入n："））   #从键盘上输入n的值

print（"n！的值为：", {#blank#}3{#/blank#}）   #输出结果