兄弟求随机字符很好做,但想列举所有的可能就很困难了。用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
复制代码
|