文章列表
Sub 宏1()
Dim a As String
Dim fname As String
Dim fname2 As String
fname = "d:\123\123.txt"
fname2 = "d:\123\124.txt"
Open fname For Input As #1
Open fname2 For Output As #2
On Error Resume Next
Do
Input #1, a
Print #2, a
Loop While EOF(1) = False
Close #1
Close #2
End Sub
fname 你 ...
1. 字母全排列
2.
3. 首先可以看出,全排列其实就是阶乘，3个字母会有3阶乘种表现，4字母会有4阶乘种
4. 上面fat的变化是有规律的 ，我们要得到全排列的做法是： 将三个字母分别作为开头，然后
5. 调整除了第一个字符之外的位置，即fat 将后两个调整 fta
6. 当有4个字母时，如golf,那么分别让g,o,l,f打头，当g打头是后面是olf，那就可以回到上面fat的例子
7. 这就是递归的表现,4个字母是四种字母打头的后面是3的全排列，3个字母又是3种字母打头的后面是2的全排列 就像第一行所示
8. ...