qbasic 递归

来源：百度知道 编辑：UC知道 时间：2024/05/12 02:05:57
跪求会qbasic语言的帮帮忙,用递归法求100+99+98+97+.......+3+2+1.
是用两个程序,一个主程序,一个子程序,先通过主程序调用子程序,然后再子程序调用子程序.分为回溯和递推两个过程.

Dim Sum as Long
Dim i as Long
i = 100
Do Until i = 0
Sum = Sum + i
i = i - 1
Loop

QB真是古董级的东西啦

下面是递归的方法：

主程序：
DECLARE FUNCTION test (x AS INTEGER)
CLEAR ,,2000
'增加栈空间，就不会出现堆栈溢出了。
PRINT test(100)

函数定义

FUNCTION test (x AS INTEGER)
IF x = 1 THEN
test = 1
ELSE
test = test(x - 1) + x
END IF
END FUNCTION

递推的：
主程序：
DIM i AS INTEGER
DIM sum AS INTEGER
FOR i = 1 TO 100
sum = sum + i
NEXT
PRINT sum