自动生成随机数代码

【#文档大全网# 导语】以下是®文档大全网的小编为您整理的《自动生成随机数代码》，欢迎阅读！

自动生成随机数代码



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.wddqxz.cn/cc286e51192e45361066f586.html