生成包含字母与数字的随机数

hi，好久不见

今天给大家分享一个Rnd函数示例，随机生成包含数字与字母的编号，其中字母包括大写字母与小写字母。

我们直接上示例。

1、创建窗体

创建一个窗体，然后在窗体上添加一个文本框与一个按钮。

2、添加代码

单击事件

 1  Dim K, a, b, I, Num, X, P As Integer
 2    Dim str, Pa As String
 3    str = ""
 4    For I = 1 To 12
 5        P = Int(Rnd * 2) 
 6        If P = 0 Then    
 7            Num = Int(Rnd * 10)  
 8            Pa = Num
 9        Else
10            K = Int(Rnd * 2)   
11            Select Case K
12
13            Case 0: a = 65: b = 90
14            Case 1: a = 97: b = 122
15            End Select
16            X = Int(Rnd * (b - a + 1) + a)    
17            Pa = Chr(X)   
18        End If
19        str = str & Pa
20
21    Next I
22    
23    Me.文本框名称= str

3、分析原理

首先生成的随机的长度是12位，随机生成0或1，如果生成了0则就是生成0~9以内的数字，如果生成了1，则就是生成字母；当要生成字母时，要判断是生成大写还是小写字母，用0与1来判断，如果是生成0则就生成大写字母，反之生成小写字母（用AscII码来生成对应的字母）。

4、运行结果

最后就是去测试一下，大家快去测试一下吧。

大家有需要的话也可以关注我的B站，每周更新一次开发视频