![[填空题] 执行下面程序,单击命令按钮CmdRun后,文本框Text1中第一行显示的内容是（） , 第二行显示的内容是（）。第三行显示的内容是（）。Option ExplicitPrivate Sub,第1张](/aiimages/%5B%E5%A1%AB%E7%A9%BA%E9%A2%98%5D+%E6%89%A7%E8%A1%8C%E4%B8%8B%E9%9D%A2%E7%A8%8B%E5%BA%8F%2C%E5%8D%95%E5%87%BB%E5%91%BD%E4%BB%A4%E6%8C%89%E9%92%AECmdRun%E5%90%8E%2C%E6%96%87%E6%9C%AC%E6%A1%86Text1%E4%B8%AD%E7%AC%AC%E4%B8%80%E8%A1%8C%E6%98%BE%E7%A4%BA%E7%9A%84%E5%86%85%E5%AE%B9%E6%98%AF%EF%BC%88%EF%BC%89+%2C+%E7%AC%AC%E4%BA%8C%E8%A1%8C%E6%98%BE%E7%A4%BA%E7%9A%84%E5%86%85%E5%AE%B9%E6%98%AF%EF%BC%88%EF%BC%89%E3%80%82%E7%AC%AC%E4%B8%89%E8%A1%8C%E6%98%BE%E7%A4%BA%E7%9A%84%E5%86%85%E5%AE%B9%E6%98%AF%EF%BC%88%EF%BC%89%E3%80%82Option+ExplicitPrivate+Sub.png "[填空题] 执行下面程序,单击命令按钮CmdRun后,文本框Text1中第一行显示的内容是（） , 第二行显示的内容是（）。第三行显示的内容是（）。Option ExplicitPrivate Sub,第1张")
[填空题] 执行下面程序,单击命令按钮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
正确答案：-27；22；-11
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）