VB随机字母的函数

该过程由作者原创，就是速率可能不是很高
引自：http://baidu.bzzo.net/so/meblog/blogview.asp?logID=23&cateID=2

程序代码：

Function RandABC(N As Long, Optional Model As Long = 1) As String
''N是你想要得到字符串的长度
''Model是你想得到大写还是小写字母,1--混合大小写,2--大写,3--小写"
Dim StrDiaoyong As String
Const StrHunhe = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
Const StrDaxie = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Const StrXiaoxie = "abcdefghijklmnopqrstuvwxyz"
Select Case Model
Case 1
StrDiaoyong = StrHunhe
Case 2
StrDiaoyong = StrDaxie
Case 3
StrDiaoyong = StrXiaoxie
End Select
If N <= 20000 Then
For i = 1 To N
Randomize
RandABC = RandABC & Mid(StrDiaoyong, Int(Rnd * (Len(StrDiaoyong) - 1 + 1) + 1), "1")
Next i
Else
MsgBox "N值太大了，计算机缓冲不过来"
End If
End Function

以下来自iceboy的

程序代码：

Public Function RandomStr(ByVal Length As Long) As String
    Const RandomChar As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
    Dim RandomBytes() As Byte, RandomCharCount As Long, Result() As Byte, i As Long, p As Long
    If Length <> 0 Then
        Randomize
        RandomBytes = RandomChar
        RandomCharCount = UBound(RandomBytes) \ 2 + 1
        ReDim Result(Length * 2 - 1)
        For i = 0 To Length - 1
            p = Int(Rnd() * RandomCharCount)
            Result(i * 2) = RandomBytes(p * 2)
            Result(i * 2 + 1) = RandomBytes(p * 2 + 1)
        Next
        RandomStr = Result
    End If
End Function

VB部分相关文章推荐

※VB快速读取 TextBox 第 N 行的资料

※VB