1）程序运行后，给出文字提示:"请输入一个正整数："

2）输入一个整数n按回车后，程序输出从1-n所有整数中既是3的倍数又是5的倍数的数。

3）不要超过5行代码。

程序运行举例：

Private Sub Command1_Click()

    Dim As Single, b As Single, c As Single, p As Single, s As Single

    a≡Val(Text1. Text)

    b=Val(Text2. Text)

    c=Val(Text3. Text)

    p=(a+b+c)/2

    If a＜=p Or b＞=p Or c＞=p Then

        Label1. Caption="不能构成三角形"

    Else

        s=Sqr(p*(p-a)*(p-b)*(p-c))*p

        Label1. Caption="面积为"& s

    End If

End Sub

n=int（input（‘请输入一个数字’））

s=0

if n>5:

    s+=n*n

else:

    s+=n**2+n

print（s）

def cal(n):

    if n <= 1:

        return 1

    if n % 2 == 0:

        return 2*cal(n-1)

执行语句k=cal(5)，则k的值为（   ）

一个正整数的阶乘是所有小于及等于该数的正整数的积，并且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#}）   #输出结果