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= Text. Text

For i =1 To Len(s)

    ch= Mid(s,i,1)

    nk=Asc(ch)-i

If nk <0 Then nk nk+127

    Text2. Text= Text2 Text Chr(nk)

Next i

已知大写字母A的ASCII码值为65，小写字母a的ASCII码值为97，在文本框Text1中输入内容“yhT5”，执行程序段后，文本框Text2显示的内容为（   ）。

p ="Tel-114"

c=""

for ch in p:

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

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

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

 ch= chr(ord(ch) - 32)

 if ch>= "A" and ch<= "Z":

 c=ch+c

print(c)

执行程序后，输出的结果为（   ）