[单项选择题] 编写如下事件过程: Private sub sub1 (ByVal x1 As String, y1 As String)Dim xt As StringDim i As Integeri = Len(x1)Do While i>= 1 xt = xt + Mid(x1, i, 1) i=i-1Loopy1 = xt End Sub Private Sub Form Click()Dim s1 As String, s2 As Strings1= "teacher&quo