编写如下事件过程：
Private sub sub1 (ByVal x1 As String, y1 As String)
Dim xt As String
Dim i As Integer
i = Len(x1)
Do While i＞= 1
xt = xt + Mid(x1, i, 1)
i=i-1
Loop
y1 = xt
End Sub
Private Sub Form Click（　）
Dim s1 As String, s2 As String
s1= "teacher"
sub1 s1, s2
Print s2
End Sub
程序运行后，单击窗体，则窗体上显示的内容是

题库:计算机等级考试 类型:最佳选择题 时间:2017-07-03 14:59:54 免费下载:《单项选择》Word试卷

编写如下事件过程：
Private sub sub1 (ByVal x1 As String, y1 As String)
Dim xt As String
Dim i As Integer
i = Len(x1)
Do While i＞= 1
xt = xt + Mid(x1, i, 1)
i=i-1
Loop
y1 = xt
End Sub
Private Sub Form Click（　）
Dim s1 As String, s2 As String
s1= "teacher"
sub1 s1, s2
Print s2
End Sub
程序运行后，单击窗体，则窗体上显示的内容是
A.rehcaet
B.tahreee
C.themee
D.eerthea

本题关键词:体系文件编写原则,AS-DAE染色,A基因编码,过程,书写过小症,全过程,维生素A过多病,带下过多,带下过少,AS-D-NCE染色法;