28,391
社区成员
发帖
与我相关
我的任务
分享
<%
Option Explicit
Dim Nb1,nb2,nb3,nb4,nb5,nb6,nb7,nb8,ii
Dim i_1,i_2,i_3,i_4,i_5,i_6,i_7
Dim f_1,f_2,f_3,f_4,f_5,f_6,f_7
Nb1="0123456789"
ii=0
For i_1=1 To 10
f_1=Mid(Nb1,i_1,1)
Nb2=Replace(Nb1,f_1,"")
For i_2=1 To 9
f_2=Mid(Nb2,i_2,1)
Nb3=Replace(Nb2,f_2,"")
For i_3=1 To 8
f_3=Mid(Nb3,i_3,1)
Nb4=Replace(Nb3,f_3,"")
For i_4=1 To 7
f_4=Mid(Nb4,i_4,1)
Nb5=Replace(Nb4,f_4,"")
For i_5=1 To 6
f_5=Mid(Nb5,i_5,1)
Nb6=Replace(Nb5,f_5,"")
For i_6=1 To 5
f_6=Mid(Nb6,i_6,1)
Nb7=Replace(Nb6,f_6,"")
For i_7=1 To 4
f_7=Mid(Nb7,i_7,1)
Nb8=Replace(Nb7,f_7,"")
Response.write f_1&f_2&f_3&f_4&f_5&f_6&f_7&"<br/>"
ii=ii+1
Next
Next
Next
Next
Next
Next
Next
Response.write "共"&ii&"个"
%>
暂时没想到好方法,这个笨方法暂能实现目标。