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站，每週更新一次開發視頻
