[填空题] 执行下面程序,单击命令按钮CmdRun后,文本框Text1中第一行显示的内容是（） , 第二行显示的内容是（）。第三行显示的内容是（）。Option ExplicitPrivate Sub

[填空题] 执行下面程序,单击命令按钮CmdRun后,文本框Text1中第一行显示的内容是（） , 第二行显示的内容是（）。第三行显示的内容是（）。Option ExplicitPrivate Sub CmdRun_Click()Dim S As String,Subs As String,P As IntegerS="100101 010110 110101"DoP=InStr(S," ")If P<>0 ThenSubs=Left(S,P-1)ElseSubs=SEnd IfS=Mid(S,P+1)Text1=Text1 & Complement(Subs) & vbCrLfLoop Until Len(S)=0 Or P=0End SubPrivate Function Complement(S As String)As IntegerDim P As Integer,L As IntegerL=Len(S)If Left(S,1)=1 ThenComplement=-32End IfP=1Do Until P=0P=InStr(P+1,S,"1")If P<>0 ThenComplement=Complement+2^(L-P)End IfLoopEnd Function