主　　题： 入职笔试题目，供大家找工作面试时参考.
作　　者： wl_loveit ()
等　　级：
信 誉 值： 100
所属社区： .NET技术 分析与设计
问题点数： 1
回复次数： 2
发表时间： 2007-8-1 0:35:29




这里是中美爱IT科技让我作的的入职笔试题目，供大家面试时参考。

ｈｔｔｐ://ｗｗｗ.ｈａｐｐｙｉｔ.com.cn/login.aspx?ReturnUrl=/quiz.aspx

用户名： 王岭

密码： ｈａｐｐｙｉｔ

谢谢大家帮忙！

谢了，看了，一道也不会。

呵呵，楼主动你好强呀，看了什么都不会。什么时候能把答案给我们呀~~~~~~~~~~~~~~~

只会第14题

[QUOTE]<%
private Function CheckExp(patrn,strng,tagstr)
Dim regEx
Set regEx=New RegExp
regEx.Pattern=patrn
regEx.IgnoreCase=true
regEx.Global=True
CheckExp=regEx.replace(strng,tagstr)
End Function
private function SpArray(a)
dim sp,spRed,spaa
sp=" 0"
spaa=""
for i=1 to a
sp=sp & "," & i
next
sp=sp & " "
while i>0
randomize
spRed=int(rnd*i)
spaa=spaa & "," & trim(split(sp,",")(spRed))
if spRed=0 or spRed= i then
sp=checkexp("\D" & trim(split(sp,",")(spRed)) & "\D",sp," ")
else
sp=checkexp("\D" & split(sp,",")(spRed) & "\D",sp,",")
end if
i=i-1
wend
spArray=mid(spaa,2)
end function
response.write spArray(10)
%>[/QUOTE]

都蛮简单的内

但是我帮不了你 ， 除非这份工作我来做

还是自己会的好 不至于上班后被拖死！！！