自动生成随机数代码 1，生产32位随机数，内容包含：大写A到F，0-9 2，字母位数最多17个，最少7个 Sub xx() nn = Int(Rnd() * 11) + 15 ' nc = 32 - nn ' For i = 1 To 32 k = Int(Rnd() * 100) Mod 2 ' c1 = Chr(Int(Rnd() * 26) + 65) ' n1 = Int(Rnd() * 10) ' If k = 0 Then If nn > 0 Then temp = temp & n1 nn = nn - 1 Else temp = temp & c1 nc = nc - 1 End If ElseIf k = 1 Then If nc > 0 Then temp = temp & c1 nc = nc - 1 Else temp = temp & n1 nn = nn - 1 End If End If Next BarCodeCtrl1.Value = temp End Sub 数量随机 数量随机 位置随机 数据随机 数据随机 本文来源：https://www.wddqw.com/doc/cc286e51192e45361066f586.html