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="ABCDEFGH"

i=1

Do While i<=Len(s)

    If i mod 2=0 then

        s=mid(s, i+1, len(s)-i) & mid(s, 1, i-1)

    End If

    i=i+1

Loop

Text1.text=s