[填空题] 执行下面程序,单击命令按钮CmdRun后,文本框Text1中第一行显示的内容是（） , 第二行显示的内容是（）。第三行显示的内容是（）。Option
2021-07-20
[填空题] 执行下面程序,单击命令按钮CmdRun后,文本框Text1中第一行显示的内容是（） , 第二行显示的内容是（）。第三行显示的内容是（）。Option ExplicitPrivate Sub CmdRun_Click()Dim S As String,Subs As String,P As IntegerS="100101 010110 110101"DoP=InStr(S," ")If P0 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 P0 ThenComplement=Complement+2^(L-P)End IfLoopEnd Function
正确答案：-27；22；-11
词条内容仅供参考，如果您需要解决具体问题
（尤其在法律、医学等领域），建议您咨询相关领域专业人士。