VB随机字母的函数

最新推荐文章于 2024-05-28 19:21:46 发布

miaozk2006

最新推荐文章于 2024-05-28 19:21:46 发布

阅读量492

点赞数

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/miaozk2006/article/details/82416477

这篇博客主要介绍了在VB编程中如何实现随机字母的生成函数，涵盖了一系列相关技巧，包括禁用快捷键、文件操作、窗体控制等多个方面，帮助VB开发者提升程序效率和用户体验。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

该过程由作者原创，就是速率可能不是很高
引自：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禁止使用 Alt-Tab 或 Ctrl-Alt-Del

※生成迷宫的程序

※另一方法转换大小写

※VB控件注册 - 利用资源文件将dll、ocx打包进exe文件

※做VB的，经常注册和反注册OCX控件和DLL链