qq_45326185的博客

text1 = cint(inputbox("请输入一个数值1："))text2 = cint(inputbox("请输入一个数值2："))text3 = cint(inputbox("请输入一个数值3："))t=text1*text2If (text3 > t) Then MessageBox "输入错误！" Else reDim Arr(text1, text2) x=Int(text1* Rnd) y=Int(text2 * Rnd) Arr(x, y) = 1End.

Function parse(num, list, index) If index <= ubound(list) Then If num = list(index) Then parse = True Else parse=parse(num,list,index+1) End If Else parse=False End IfEnd Functionlist1 = Array(1, 3, 5, 7, 9)TracePrint UBound(list

很奇怪的是，取<UL id=gsList class="gs_list gs_name" style="DISPLAY: block" jQuery172035116298367398146="206">或者LI lang=netgame id=858f058e63e74156a1d4dcf3239df20c style=在网页源码的instr查找中都不能找到。只有取到红线之后的源码，才能找到。...