英文乱码生成器

在要生成密码的单元格输入 =PASSWORD(16) 这个就是生成16位的密码.改变括号的数字,就可以任意生成你所需要的密码长度. Public Function password(ByVal n As Integer) Dim a As String a = "" For x = 1 To n b = Rnd() If b <= 0.33 Then a = a & Chr(Int(Rnd() * 10) + 48) ElseIf b < 0.66 And b > 0.33 Then a = a & Chr(Int(Rnd() * 26) + 65) Else a = a & Chr(Int(Rnd() * 26) + 97) End If Next password = a End Function**************纯数字密码.Public Function password(ByVal n As Integer) Dim a As String a = "" For x = 1 To n a = a & Chr(Int(Rnd() * 10) + 48) Next password = a End Function