VB.NET中如何添加前项值+1的列表元素及Timer Tick更新列表

步骤1：声明全局变量 #

在窗体类顶部声明变量，确保Timer事件可访问：

' 存储数值的列表
Private numberList As New List(Of Integer)
' 计数器n，对应all(n)的索引
Private n As Integer = 1

步骤2：初始化列表与Timer #

在窗体加载事件中设置初始值（从2开始）并启动Timer：

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ' 初始添加值2，对应all(1)=2
    numberList.Add(2)
    ' 设置Timer触发间隔（单位：毫秒，示例为1秒触发一次）
    Timer1.Interval = 1000
    ' 启动Timer
    Timer1.Enabled = True
End Sub

步骤3：Timer Tick事件处理逻辑 #

每次Tick触发时，计算新值（前一项+1）并添加到列表，同时更新计数器n：

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    ' 获取列表最后一项的值，加1得到新值
    Dim newValue As Integer = numberList.Last() + 1
    ' 添加新值到列表
    numberList.Add(newValue)
    ' 计数器n自增，此时all(n)对应刚添加的新值
    n += 1
    
    ' 可选验证：输出当前all(n)的值到控制台
    Console.WriteLine($"all({n}) = {newValue}")
End Sub

关键说明 #

• all(n) 对应关系：初始n=1时，all(1) 是列表第一个元素2；每次Tick后n自增，all(n) 对应列表的第n个元素（列表长度始终等于n）。若需直接通过n取值，可使用 numberList(n-1)（因列表索引从0开始）。
• 可根据需求调整Timer的Interval值，控制更新频率。

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