poter

兄弟求随机字符很好做，但想列举所有的可能就很困难了。用vbs给做了一个

option explicit
Randomize
dim str1, str2, count1, count2, count3, class1, class2, case1
str1 = inputbox("输入字符")
count2 = inputbox("输入次数") + 0
set class1 = createobject("scripting.filesystemobject")
set class2 = class1.createtextfile("123.txt", 2)

do
str2 = ""
for count1 = 1 to len(str1) step 1
	str2 = str2 & func1(ucase(mid(str1, count1, 1)) & mid(str1, count1, 1))
next
count3 = count3 + 1
class2.writeline str2
loop until count3 = count2

function func1(aa)
	func1 = mid(aa, rnd * 10 mod 2 + 1, 1)
end function
复制代码