

<%
OutputJoin "", 1

'递归输出3个数字结合
Sub OutputJoin(s, count)
If count > 3 Then
Exit Sub
End If
Dim i, t
For i = 1 To 9
t = s '将值保存
s = s & i
If count = 3 Then
Response.Write s & "<br>"
End If
OutputJoin s, count+1
s = t '还原值
Next
End Sub
%>posted @ 2006-10-23 12:58 laifangsong 阅读(80) 评论(0) 编辑
