摘要： unction product_alphabet(num As Integer) Dim alphabet As String Dim S As Integer Dim str As Integer Dim C As String S = Int(Rnd() * 24 + 1) C = Mid("A0B1C2D3E4F5G6H7I8J9KLMNOPQRSTUVWXYZ", S, 2) product_alphabet = CEnd FunctionFunction product_mac(str As String) Dim i As Integ... 阅读全文