![](https://cos-cdn.shuashuati.com/pipixue-wap/2020-1230-1107-56/ti_inject-812ce.png)
运行下列程序,单击Cmd1,在窗体上显示的第一行内容是______ ,第二行内容是 ,第三行内容是 Option Explicit Private Sub Cmd1_ Click( ) Dim s As String s = "Basic" Call trans(s) End Sub Private Sub trans(s As String) Dim j As Integer, t As String Dim k As Integer k = 3 Do j = InStr(s, "a") t = LCase(Right(s, j)) s = Right(t, Len(s) - k) & Left(s, Len(t)) k = k - 1 Print s Loop Until k = 0 End Sub