VB6中如何实现List Box显示From、To指定范围的连续数字

实现逻辑说明 #

你已经完成了文本框取值、变量定义的基础部分，剩余需要补充的逻辑非常简单：

• 先清空ListBox内的历史内容，避免多次触发按钮时旧数据和新数据叠加
• 做基础的输入兜底，即使用户输入的起始值大于结束值，也能正常遍历出全部数字
• 用For循环遍历两个值之间的所有整数，逐行添加到ListBox中

前提：请确认你项目里的ListBox控件实际名称，若未自定义命名，VB6默认生成的ListBox名称为List1，代码中对应替换即可。

完整补充后的代码 #

Option Explicit
Private Sub btCalculate_Click()
    Dim From As Long
    Dim T As Long
    Dim loopIndex As Long ' 循环遍历临时变量
    
    ' 读取两个文本框的输入值
    From = Val(txtFrom.Text)
    T = Val(txtTo.Text)
    
    ' 清空列表原有内容
    List1.Clear
    
    ' 兼容反向输入场景：如果From值大于To值，自动交换两个值保证循环正常
    If From > T Then
        Dim swapTemp As Long
        swapTemp = From
        From = T
        T = swapTemp
    End If
    
    ' 遍历区间内所有整数，添加到列表
    For loopIndex = From To T
        List1.AddItem CStr(loopIndex)
    Next loopIndex
End Sub

常见踩坑提示 #

• 一定要加List1.Clear步骤，否则每点一次计算按钮，列表就会在原有内容后面追加一遍数字，出现内容重复堆积的问题
• AddItem方法要求传入字符串类型参数，所以需要用CStr()把长整型的数字转成字符串再传入，虽然VB6有自动类型转换能力，但显式转换能避免不必要的类型兼容问题
• 目前用Val()读取文本框值的逻辑，遇到非数字输入会自动转为0，如果需要严格限制输入为数字，可以后续在两个文本框的KeyPress事件中补充输入拦截逻辑

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