工程我已发,执行代码的时间会很长,程序会假死,这要看你的电脑了Private Sub Command1_Click()Open App.Path & "\1.txt" For Output As #1For i = 0 To 9n = n & i & ","NextFor i = 65 To 90n = n & Chr(i) & ","Nextt = Split(n, ",")For i = 0 To 35For j = 0 To 35For g = 0 To 35For k = 0 To 35For y = 0 To 35Print #1, t(i) & t(j) & t(g) & t(...