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站，每周更新一次开发视频
