您所在位置：主题：[原创]正则表达式的计算（利用QB编译器）
飞鸟12
[专家分：2830] 发布于 2005-07-03 12:11:00
将下面程序保存到记事本中 ，另存为“main.bas”
如果使用qb4.5（解压到E:\qb\qb45 ) 把main.bas放到E:\qb
进入E:\qb\qb45，打开QB.EXE（alt＋f alt＋o）打开main.bas
如果是使用QBASIC.EXE,QBASIC.HLP
则把main.bas和QBASIC.EXE,QBASIC.HLP放到同一目录下
打开QBASIC.EXE（alt＋f alt＋o）打开main.bas
COMMON y, express$, flag
IF flag = 0 THEN
OPEN "temp.bas" FOR OUTPUT AS #1
INPUT "y = ", express$
PRINT #1, "COMMON y, express$, flag"
PRINT #1, "flag = 1"
PRINT #1, "y="; express$
PRINT #1, "CHAIN " + CHR$(34) + "main.bas" + CHR$(34)
PRINT #1, "END"
CLOSE #1
CHAIN "temp.bas"
ELSE
PRINT express$; "="; y
PRINT
'SHELL "del temp.bas"
END IF
END
程序只能在解释方式下运行，编译成main.exe 则不能运行
运行实例：
y = 2+7*4
2+7*4= 30
y = 2*(3+4)
2*(3+4)= 14
如果使用qb4.5（解压到E:\qb\qb45 ) 把main.bas放到E:\qb
进入E:\qb\qb45，打开QB.EXE（alt＋f alt＋o）打开main.bas
如果是使用QBASIC.EXE,QBASIC.HLP
则把main.bas和QBASIC.EXE,QBASIC.HLP放到同一目录下
打开QBASIC.EXE（alt＋f alt＋o）打开main.bas
COMMON y, express$, flag
IF flag = 0 THEN
OPEN "temp.bas" FOR OUTPUT AS #1
INPUT "y = ", express$
PRINT #1, "COMMON y, express$, flag"
PRINT #1, "flag = 1"
PRINT #1, "y="; express$
PRINT #1, "CHAIN " + CHR$(34) + "main.bas" + CHR$(34)
PRINT #1, "END"
CLOSE #1
CHAIN "temp.bas"
ELSE
PRINT express$; "="; y
'SHELL "del temp.bas"
END IF
END
程序只能在解释方式下运行，编译成main.exe 则不能运行
运行实例：
y = 2+7*4
2+7*4= 30
y = 2*(3+4)
2*(3+4)= 14
