欧美国产另类久热|951超碰伊人久久|伊人影视久久久久|色婷婷亚洲小电影|色东京热69XX|婷婷玖玖深爱网|加勒比东京热网站|无码A级毛片在线观看|一级a毛一级a看|中文字幕人妻欧美

vbs字符串操作小考題，學(xué)習(xí)的朋友可以參考下。

str="a|b|c|d"

要求寫(xiě)一段小程序得出：

a|b|c|d

b|c|d|a

c|d|a|b

d|a|b|c

這樣的結(jié)果，str長(zhǎng)度未定，格式是上邊的格式。

實(shí)現(xiàn)代碼如下:

代碼如下:

str="a|b|c|d"

Call Sort(str, "|")

Function Sort(sSource, sDelimiter)

Dim I, J, N, sItems, sTemp

sItems = Split(sSource, sDelimiter)

For I = 0 To UBound(sItems)

For J = 0 To UBound(sItems)

N = I + J

If N > UBound(sItems) Then

N = N - UBound(sItems) - 1

End If

sTemp = sTemp & sItems(N) & sDelimiter

Next

sTemp = Left(sTemp, Len(sTemp) - Len(sDelimiter))

Wscript.Echo sTemp

sTemp = ""

Next

End Function

在一個(gè)窗口同時(shí)顯示

代碼如下:

str = "a|b|c|d"

WSH.Echo Join(Sort(str, "|"), vbCrLf)

Function Sort(ByVal s, ByVal d)

Dim a, r(), i, j, h, index

a = Split(s, d)

h = UBound(a)

ReDim Preserve r(h)

index = Len(d) + 1

For i = 0 To h

r(i) = ""

For j = i To h + i

r(i) = r(i) & d & a(j Mod (h + 1))

Next

r(i) = Mid(r(i), index)

Next

Sort = r

End Function

代碼如下:

str="a|b|c|d"

Wscript.Echo Sort(str, "|")

Function Sort(sSource, sDelimiter)

Dim I, J, N, sItems, sTemp

sItems = Split(sSource, sDelimiter)

N = UBound(sItems)

For I = 0 To N

For J = 0 To N

sTemp = sTemp & sItems((I + J) Mod (N + 1)) & sDelimiter

Next

sTemp = Left(sTemp, Len(sTemp) - Len(sDelimiter))

Sort = Sort & sTemp & vbCrLf

sTemp = ""

Next

Sort = Left(Sort, Len(Sort) - 1)

End Function

代碼如下:

str="a|b|c|d"

msgbox Sort(str, "|")

function sort(ss,sd)

dim n,i

for i=0 to ubound(split(ss,sd))

sort=sort+mid(ss+sd+ss,n+1,len(ss))+vbcrlf

n=instr(n+1,ss+sd+ss,sd)

next

end function