A routing problem

xiaoxiao2021-03-06  64

One arrangement: given set {a, b, c}, whose whole ride is: AbcacbbacbcAbcba how to write a program, print a given collection, such as: {'1', '2', '3', '4' , '5', '6', '7'} full alignment?

Author: y0h <% Dim Max, Str1Dim sArrayStr1 = "," sArray = Split ( "a, b, c, d, e, f, g, h", ",") Max = Ubound (sArray) Test Max, Max, Str1Function TEST (MAX, X, STR1) IF x> = 0 Then for i = 0 to max if INSTR (STR1, "," & Sarray (i) & ",") = 0 Test Max, X-1, Str1 & Sarray (I) & "," End if Next Else Response.write (str1 & "
") end fnd function%>

转载请注明原文地址:https://www.9cbs.com/read-119241.html

New Post(0)