比较简单的例子：
CLS:y = 1: LOCATE 10, y1 + y: PRINT CHR$(153)
DO
DO: k$ = INKEY$: LOOP UNTIL k$ ""
LOCATE 10, 1: PRINT SPACE$(80)
SELECT CASE k$
CASE CHR$(27)
END
CASE CHR$(0) + "K" 'ZHUO
y = y - 1:IF y
另外，这里还有一个例子，您可以自己去看一下。网页：http://www.programfan.com/club/showbbs.asp?id=26889
参考资料：编程爱好者论坛
二分法解方程：
DECLARE FUNCTION f1 (x)
DECLARE FUNCTION f2 (x)
a = 1: b = 2
do while abs(c-1.***********) 0.001
c = (a + b) / 2
IF f1(c) * f1(a) 0 THEN a = c
p=p+1
loop
PRINT c,p
a = 1: b = 2
do while abs(c-2.***********) 0.001
c = (a + b) / 2
IF f2(c) * f2(a) 0 THEN a = c
p=p+1
loop
PRINT c,p
FUNCTION f1 (x)
fa = x ^ 2 - 2
END FUNCTION
FUNCTION f2 (x)
f2 = LOG(x) - 1
END FUNCTION
参考资料：编程锦集（宜然著）