Str(Find)\rEndIf\rEndSub\r5-5®¬ô;:t0\rOptionExplicit\rOptionBase1\rDimSearchAsVariant\rPrivateSubCmd®¬ô;_1<()EvaluationWarning:ThedocumentwascreatedwithSpire.PDFfor.NET.\rDimLeftAsInteger,RightAsInteger\rDimMidAsInteger,FigAsBoolean\rDimFindAsInteger\rFind=InputBox("LM/ô;\r")\rLeft=1:Right=UBound(Search)\rFig=False\rDoWhileLeft<=Right\rMid=(Left+Right)/2\rIfSearch(Mid)=FindThen\rFig=True\rExitDo\rElselfFind>Search(Mid)Then\rLeft=Mid+1\rElse\rRight=Mid-1\rEndIf\rLoop\rIfFigThen\rText2="/ô;\r"&Str(Find)&"0\rSearch("&Str(Mid)&")"\rElse\rText2=Str(Find)&”C0\r?”EvaluationWarning:ThedocumentwascreatedwithSpire.PDFfor.NET.\rEndIf\rEndSub\rPrivateSubCmdmn\r-6Click\rDimVAsVariant\rSearch=Array(12,17,23,28,30,39,41,46,57,61,78,83,85,\r89,93)\rForEachVInSearch\rTextl=Textl&Str(V)\rNextV\rEndSub
全文预览
