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

s=1

for i in range（0,10,3）

  s+=i

Print(s)

程序运行后，输出的内容是（   ）

p = "Call-168"

c = " "

for ch in p:

    if ch >= "0" and ch <= "9":

        c += str(9-int(ch))

    elif ch >= "a" and ch <= "z":

        c += chr(ord(ch) - ord("a")+ord("A"))

    else:

        c += ch

print(c)

程序运行后，输出的结果是（   ）

①16/len("ab"）**2              

②abs(round(-1.7)*2)%8     

③chr(ord("0")+4)               

④int(str(1010+90)[1:4])//25