摘要： /*解题报告本题思路主要是用余数互补，例如：25%8，商为3，余数为1，也就是说它有3个8，多出一个1，只要它再加上一个7变成25+7=32就能被8整除，然后我们要用一个HASH[][]2维数组来存放整除和不能整除的数，例如HASH[0][8]表示存放排列数十进制数除8余数为0的排列数的十进制数，HASH[1][8]表示存放排列数十进制数除8余数为1的排列数的十进制数，以此类推，存放完毕后，就可以直接调用HASH数组即可，当输入后两个数，要是12 8，那只要用12%8，然后余数为4，也就是说只要在加上一个4凑合成另外一个8就能被8整除，因此(HASH[0][8]+8)-4，防止HASH[0][ 阅读全文

摘要： 以下是引用片段： Function c2u(myText) Dim i c2u = "" For i = 1 to Len(myText) c2u = c2u & "&#x" & Hex(AscW(Mid(myText, i, 1))) & ";" Next End Function 以下是引用片段： Function cutStr(str,strlen) '去掉所有HTML标记 Dim re Set re=new RegExp re.IgnoreCase =True re.Global=Tru 阅读全文