LibreOffice Basic中循环与递归性能对比及无限递归实现问询

需求描述 #

按下按钮时，需启动绑定时间的无限循环（可采用For/While循环、递归或递归+For组合，因栈限制需考虑无限递归可行性），执行指定操作后等待50ms或自定义时长，以实现时间绑定的稳定定时器。

示例代码 #

' 递归+For循环实现定时任务
Sub loopWork
    Dim i as Integer
    i = 0
    Do while i <= 1000
        if stateMainTimer = 2 Then
            Exit Sub
        endif   
        loopWorkVoidRecursionWithFor()
        i=i+1
    Loop
    loopWork()
End Sub

' 递归内的For循环执行逻辑
Sub loopWorkVoidRecursionWithFor
    if stateMainTimer = 2 THEN
        Exit Sub
    else
        doWork()
        Dim dt As Double
        dt = Timer() - lastTimeOfTimers
        if dt > TimerFps THEN
            lastTimeOfTimers = Timer()
        else
            Wait (TimerFps - dt)
            lastTimeOfTimers = Timer()
        endif
    endif
End Sub

'--------------------------------------------------------------------------------------------------------------------------
' 纯递归实现定时任务
Sub loopWorkRec
    loopWorkVoid()
End Sub

' 递归执行逻辑
Sub loopWorkVoid
    if stateMainTimer = 2 THEN
        Exit Sub
    else
        doWork()
        Dim dt As Double
        dt = Timer() - lastTimeOfTimers
        if dt > TimerFps THEN
            lastTimeOfTimers = Timer()
            loopWorkVoid()
        else
            Wait (TimerFps - dt)
            lastTimeOfTimers = Timer()
            loopWorkVoid()
        endif
    endif
End Sub

'--------------------------------------------------------------------------------------------------------------------------
' While循环实现定时任务（示例）
Sub loopWork
    Dim i as Integer
    i = 0
    Do while i <= 1
        if stateMainTimer = 2 Then
            Exit Sub
        endif   
        doWork()        
    Loop
End Sub

' 具体任务：A1单元格数值自增
Sub doWork
    Range("A1").Value = Range("A1").Value + 1
End Sub

' 停止任务
Sub stopJob
    stateMainTimer = 2
End Sub

' 模拟Office的Range函数（LibreOffice专用）
Function Range(ByVal rngAddress As String) As Object
    ' 假设已打开Calc文档
    Dim oDoc As Object
    Dim oSheet As Object
    Dim oRange As Object

    ' 获取当前文档
    oDoc = ThisComponent

    ' 获取活动工作表
    oSheet = oDoc.CurrentController.ActiveSheet

    ' 根据地址获取单元格范围
    Set oRange = oSheet.getCellRangeByName(rngAddress)

    ' 返回Range对象
    Set Range = oRange
End Function

技术问询解答 #

1. 三种实现方式的性能对比 #

三种方式中，纯While/For循环的性能最快，原因如下：

• 纯循环：在同一个函数栈帧内执行，没有函数调用的额外开销（比如栈帧创建、参数传递、返回地址保存），执行流程最直接，资源消耗最少。
• 递归+For组合：通过For循环批量执行任务，减少了递归调用的频率，性能比纯递归好，但仍存在递归的栈开销，性能不如纯循环。
• 纯递归：每次循环都要调用自身，栈帧会不断累积，不仅有函数调用的额外开销，还会快速消耗栈内存，最终触发栈溢出，性能最差且无法长期运行。

2. LibreOffice Basic中实现无限递归的可行性 #

LibreOffice Basic无法实现真正的无限递归。因为每次递归调用都会在程序栈中保存当前函数的局部变量、返回地址等上下文信息，而栈的内存容量是有限的，当递归次数达到一定阈值时，就会触发栈溢出错误，导致程序崩溃。

如果想用递归模拟近似的“无限”运行，只能通过减少单次递归的栈占用、降低递归频率的方式延长运行时间（比如你提供的递归+For组合，先执行1000次循环再递归），但这只是延缓了栈溢出的时间，无法真正无限运行。

更可靠的方案是使用无限While循环配合Wait函数，这是原生LibreOffice Basic中实现稳定定时器的最优选择，既没有栈溢出风险，性能也更优。示例代码如下：

' 全局变量需在模块级别声明
Global stateMainTimer As Integer
Global lastTimeOfTimers As Double
Global TimerFps As Double ' 比如设置为0.05（50ms）

Sub loopWorkInfinite
    ' 初始化定时器参数
    lastTimeOfTimers = Timer()
    TimerFps = 0.05 ' 自定义间隔，单位：秒
    stateMainTimer = 1 ' 标记任务运行状态

    Do While True
        ' 检测停止信号
        If stateMainTimer = 2 Then
            Exit Sub
        End If

        ' 执行指定任务
        doWork()

        ' 计算并等待剩余时间，保证定时精度
        Dim dt As Double
        dt = Timer() - lastTimeOfTimers
        If dt < TimerFps Then
            Wait (TimerFps - dt) * 1000 ' Wait参数单位是毫秒，需转换
        End If
        lastTimeOfTimers = Timer()
    Loop
End Sub

内容的提问来源于stack exchange，提问作者Антон Сибгатулин