VBA编写5位彩票唯一随机数生成器偶发重复值问题咨询

问题根因 #

• 逻辑分支设计错误：代码使用ElseIf串联所有判断，只要前一个文本框的重复条件触发，后续所有文本框的重复校验都会直接跳过，其余文本框存在重复也不会处理。
• 无二次校验逻辑：某一个文本框值+1后，没有再次校验新值是否和其他文本框重复，比如TextBox1原值等于TextBox2，+1后刚好等于TextBox3的情况就会产生新重复。
• 边界风险：没有做数值范围校验，如果+1后超出彩票号码的合法取值区间，会生成无效号码。
• 硬编码扩展性差：所有判断都是写死的文本框对比，后续如果要增减号码位数，需要全部重写判断逻辑。

优化方案 #

推荐直接先生成一组无重复的合法随机数，再批量赋值给文本框，从根源避免重复问题，示例VBA代码如下：

' 配置参数：彩票号码最小值、最大值、需要生成的数量
Const MIN_NUM As Integer = 1
Const MAX_NUM As Integer = 35 ' 可根据实际彩票规则修改
Const NUM_COUNT As Integer = 5

Dim numDict As Object
Set numDict = CreateObject("Scripting.Dictionary")
Dim randomNum As Integer

' 生成不重复的随机数
Do While numDict.Count < NUM_COUNT
    Randomize
    randomNum = Int((MAX_NUM - MIN_NUM + 1) * Rnd + MIN_NUM)
    If Not numDict.Exists(randomNum) Then
        numDict.Add randomNum, randomNum
    End If
Loop

' 批量赋值给文本框
Dim i As Integer
For i = 1 To NUM_COUNT
    Me.Controls("TextBox" & i).Value = numDict.Items()(i - 1)
Next i

该方案用字典去重，生成阶段就保证所有数值唯一，不需要后续额外判断，不会出现重复问题，同时支持随时调整号码数量和取值范围。

内容的提问来源于stack exchange，提问作者Sanjib Samadder