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

m=0:n=0

For i=1 to 100

    If i mod 3="0" then

        m=m+1

    Else

        n=n+1

next i

print m,n

def cal(n):

    if n <= 1:

        return 1

    if n % 2 == 0:

        return 2*cal(n-1)

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

num = input("请输入数字串：")

c = 0

   ⑴  

for i in range(1,len(num)):

    if     ⑵     and f == False:

        f = True

    elif    ⑶     and f == True:

        c = c + 1

        f = False

print("该数字串中有", c, "个拐点")

方框(1)(2)(3)的代码由以下部分组成：

①f = True    ②f = False    ③num[i-1] > num[i]    ④num[i-1] < num[i]

下列选项中代码顺序正确的是（   ）

s＝0

for i in range（1，101）：

if i % 2＝1 ：

    s＋＝i

else：

    s－＝i

print（s）

其功能是（   ）。

if x>y:

 f=False

else:

 f=True

下列语句中与上述程序段功能相同的是（   ）