用access循环语句,累加s=1+2+3+4……+x,并输出结果

2024-11-17 20:47:55
推荐回答(1个)
回答1:

示例代码如下:

Sub LeiJia(X As Integer) 
    Dim i as long,result
    For i=1 to X
        result=result+i
    Next i
    MsgBox "1到" & X & "的累加结果是:" & result
End sub

调用过程举例

Call LeiJia(100)