随机排序问题？
现在有长度为40的一字符串，由“B”“P”“F”这三个字母组成

其中 B字母占20个，P字母占10个，F字母也占10个

每刷新一下ASP页面就让字符串重新随机排列，要求无论怎么排也要保持20个B ，10个P，10个F。

请问高手们思路是怎样的要怎样才能实现呢？请用VB脚本来写谢谢
------解决方案--------------------

Dim str,arr(40),i,n,temp

str="BBBBBBBBBBBBBBBBBBBBPPPPPPPPPPFFFFFFFFFF"

For i=0 To 39

	arr(i)= Mid(str,i+1,1)

Next

For i=0 To 39

	Randomize

	n = Int(40*rnd)

	temp = arr(n)

	arr(n)=arr(i)

	arr(i)=temp	

Next

Response.write Join(arr,"")