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显示的内容为（   ）。

Private Sub Command1_Click( )

    Dim a As Integer, b As Integer, c As Integer

    A=Val(Text1.Text): b=Val(Text2.Text): c＝Val(Text3.Text)

    Label2.Caption=Str(fx(a, b, c))

End Sub

Function fx(x As Integer, y As Integer, z As Integer) As Integer

    If x<y Then fx=z

    If x>y Then fx=y Else fx=x

End Function

s=1

for i in range(_):

    s=s+i print(s) 

实现功能：判断正数负数还是零：输入一个实数，如果这个数大于0输出“正数”，如果小于0输出“负数”，如果等于0则输出“零”。

x＝float（input（"请输入一个数："））

if {#blank#}1{#/blank#}：

    print（x，"为正数"）

{#blank#}2{#/blank#}：

    print（x，"为负数"）

else：

    {#blank#}3{#/blank#}