摘要：
asp: CLng(a_Data(j)) Then k = j End If Next t = a_Data(i) a_Data(i) = a_Data(k) a_Data(k) = t Next SelectSort = a_DataEnd Function'快速排序Fu... 阅读全文
posted @ 2006-10-18 15:12 laifangsong 阅读(787) 评论(0) 推荐(0)
摘要：
asp: 人数：" & num & "" Response.Write "报数间隔：" & spe & "" Response.Write "结果：" Dim s For i=num To 1 Step -1 s = s & aNum(i) & "," Next s = Left(s, Len(s)-1) Response.Write s... 阅读全文
posted @ 2006-10-18 10:15 laifangsong 阅读(1588) 评论(0) 推荐(0)
浙公网安备 33010602011771号