运行下列程序,单击Cmd1,窗体上显示的第一行内容是 ,第二行内容是 ,第 三行内容是 Option Explicit Private Sub Cmd1_Click( ) Dim s As String,k As Integer Dim key As String s ="10101" key="111000 k=1 DO Call encrpt(s,key) Print s s=Righ(s,k) & Lef(s,4-k) & Mid(s,4,2) k =k + 1 Loop Until k > 3 End Sub Private Sub encrypt( a As String,b As String ) Dim sp As String,n As Integer,i As Integer sp = "0000" n=Len(b)-Len(a) For i=1 to Len(b) If n>0 Then a=Right(sp & a,Len(b)) If Mid(a,i,1)=Mid(b,i,1) Then Mid(a,i,1)="0" Else Mid(a,i,1)="1" End If Next i End Sub