[填空題] 執(zhí)行下面程序,單擊命令按鈕CmdRun后,文本框Text1中第一行顯示的內(nèi)容是（） , 第二行顯示的內(nèi)容是（）。第三行顯示的內(nèi)容是（）。Option
2021-07-20
[填空題] 執(zhí)行下面程序,單擊命令按鈕CmdRun后,文本框Text1中第一行顯示的內(nèi)容是（） , 第二行顯示的內(nèi)容是（）。第三行顯示的內(nèi)容是（）。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
詞條內(nèi)容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。