Quick Basic 常用函数：
      ABSy=ABS(n)得到n的绝对值
      ASCy=ASC(S$)得到字符串头一个字符的ASCII码
      ATNy=ATN(n)得到反正切值(单位是弧度)
      CDBLy=CDBL(n)把n转化为双精度浮点格式
      CHR$S$=CHR$(n)得到ASCII码n对应的字符
      CINTy=CINT(n)对n进行舍入取整(奇凑偶
      CLNGy=CLNG(n)把一个数n转化为长整数
      COMMAND$S$=COMMAND$在DOS下启动程序时,获得命令行中的其余信息
      COSy=COS(n)得到自变量n的余弦值
      CSNGy=CSNG(n)把一个数值转化为单精度数
      CSRLINy=CSRLIN返回光标行数位置
      CVIV%=CVI(2字节的串)字符串转换为整型数
      CVSV!=CVS(4字节的串)字符串转换为单精度数
      CVLV&=CVL(4字节的串)字符串转换为长整数
      CVDV#=CVD(8字节的串)字符串转换为双精度数
      CVSMBFV!=CVSMBF(4字节MS字符串)转换成IEEE格式单精度数
      CVDMBFV#=CVDMBF(8字节MS字符串)转换成IEEE格式双精度数
      DATE$S$=DATE$把系统日期赋给变量S$
      ENVIRON$S$=ENVIRON$(X$)
      S$=ENVIRON$(n)得到环境表中的参数
      EOFy=EOF(filenum)遇到文件结束则返回真,否则为假
      ERDEVy=ERDEV返回设备驱动器错误码
      ERDEV$S$=DEDEV$返回设备驱动器错误信息
      ERRy=ERR返回错误的错误号
      ERLy=ERL返回出错处最近的行号
      EXPy=EXP(X)指数函数y=ex
      FILEATTRy=FILEATTR(filenum,attr)返回打开文件的信息
      FIXy=FIX(n)截掉小数部分进行取整
      FREy=FRE({S$|-1|-2})得到可以被程序使用的剩余内存空间的大小
      FREEFILEy=FREEFILE返回下一个自由BASIC文件号
      HEX$S$=HEX$(n)把十进制数转换成相应十六进制格式字符串
      INKEY$S$=INKEY$从键盘上读数据但不显示
      INPy=INP(portno)从一个I/O端口读入一个字节
      INPUT$S$=INPUT$(m[,[#]n])从键盘或文件中读入指定数量的字符
      INSTRy=INSTR([n,]targetstring, patternsttring)字符串查找
      INTy=INT(n)得到一个不大于n的最大整数
      IOCTL$S$=IOCTL$[#]n从一个设备驱动器程序接收数据
      LBOUNDy=LBOUND(array[,n])返回数组array第n维的最小下标
      LCASE$S$=LCASE$(X$)把字符串X$的大写字母全变为小写
      LEFT$S$=LEFT$(X$,n)得到字符串X$最左边的n个字符
      LENy=LEN(S$)得到字符串S$的长度
      LOCy=LOC(n)得到文件中现在所处的位置(当前位置)
      LOFy=LOF(n)得到磁盘文件的长度或通讯缓冲区剩余空间大小
      LOGy=LOG(x)自然对数y=InX
      LPOSy=LPOS(printer)得到打印缓冲区中当前的位置
      LTRIM$S$=LTRIM$(x$)返回去掉前导空格的字符串复制品
      MID$S$=MID$(X$,n[,m])从X$的第n个字符开始取m个字符;省略m,则取完
      MKD$S$=MKD$(V#)把双精度数值转化为随机文件中输出字符串
      MKI$S$=MKI$(V%)把整数转换为字符串
      MKL$S$=MKL$(V&)把长整数转换为字符串
      MKS$S$=MKS$(V!)把单精度数转换为字符串
      MKSMBF$S$=MKSMBF$(V!)把单精度数转换为MS格式字符串
      MKDMBF$S$=MKDMBF$(V#)把双精度数转换为MS格式字符串
      OCT$S$=OCT$(n)得到数值n的八进制形式字符串,负数为其补码形式
      PEEKy=PEEK(offset)得到指定存储单元的值
      PENy=PEN(option)读取光笔状态
      PLAYy=PLAY(x)得到后台音乐缓冲区音符个数
      PMAPy=PMAP(i,option)把图形屏幕的物理坐标变为实用坐标或反之
      POINTcolor=POINT(x,y)
      y=POINT(n)得到一个象素的颜色
      得到前一个点的坐标
      POSy=POS(x)得到光标的列数位置
      RIGHT$S$=RIGHT$(x$,n)从字符串X$的右边取n个字符
      RNDy=RND(n)得到0到1之间的随机数,n=0则得到前一个RND值
      RTRIM$S$=RTRIM$(X$)返回一个去掉X$尾随空格的字符串
      SADDy=SADD(S$)返回S$字符串的地址
      SCREENy=SCREEN(row,column[,option])得到屏幕上指定字符的ASCII或属
      SEEKy=SEEK(filenum)返回当前文件位置
      SETMEMy=SETMEM(n)改变远堆集使用的内存大小
      SGNy=SGN(n)输出n的符号
      SINy=SIN(x)正弦值y=SinX
      SPACE$S$=SPACE$(n)输出长度为n的空格字符串
      SPCSPC(n)在PRINT语句中跳过n个空格
      SQRy=SQR(n)给出n的平方根
      STICKy=STICK(n)返回两个操纵杆的坐标
      STR$S$=STR$(n)返回一个表示n值的字符串
      STRIGy=STRIG(n)返回操纵杆触发状态
      STRING$S$=STRING$(n,x$)返回n个x$第一个字符组成的字符串
      TABTAB(column)将输出位置移到column列
      TANy=TAN(x)正切值y=tgX
      TIME$S$=TIME$获得当前时间
      TIMERy=TIMER输出自午夜开始后流逝的秒数
      UBOUNDy=UBOUND(array[,n])输出数组array第n维最大下标
      UCASE$S$=UCASE$(x$)把字符串x$中所有小写字母变成大写
      VALy=VAL(S$)输出字符串S$的相应数值
      VARPTRy=VARPTR(variable)返回变量的偏移地址
      VARSEGy=VARSEG(variable)返回变量的段地址
      VARPTR$S$=VARPTR$(variable)返回变量地址的字符串表示

Quick Basic 常用的语句
语句名               语句格式                             功能
BEEP                 BEEP 使喇叭发声
BLOAD                BLOAD filespc[,address] 把用BSAVE语句存贮的文件装入内存
BSAVE                BSAVE filespc,address,length 把某一内存区域中的内容存入磁盘
CALL                 CALL 过程名[(形式参数表)] 调用一个过程
CALLS                CALLS 过程名[形式参数表] 把控制传给非BASIC语言写的过程
CALL ABSOLUTE        CALL ABSOLUTE address [(参数表)] 传送控制给一个机器语言过程
CALL INT86OLD        CALL INT86OLD(int_no, in_array(), out_array())
                     CALL INT86XOLD(int_no,in_array(), out_array()) 实现DOS功能调用
CALL INTERRUPT       CALL INTERRUPT(int_no, inregs, outregs)
                     CALL INTERRUPTX(int_no, inregs, outregs) 结构化的DOS功能调用
CHAIN                CHAIN filespec 将控制由当前程序转到别的程序
CHDIR                CHDIR path 改变现行的目录(相当于DOS的CD)
CIRCLE               CIRCLE(x,y),r,[,c[,start,end,[,aspect]]] 画圆或圆的一部分
CLEAR                CLEAR 重新初始化全部变量,关闭文件和设置堆栈的大小
CLOSE                CLOSE [[#]n[,[#]n]...] 关闭文件。n是文件号;无选择时关闭所有文件
CLS                  CLS 清屏幕
COLOR                COLOR [背景色][,[调色板] 设置图形颜色(随图形方式不同而不同
COM                  COM(n){ON|OFF|STOP} 允许,不允许或禁止指定口上的通讯事件捕捉
COMMON               COMMON 变量表 说明要传递给被链接程序的变量
CONST                CONST 常值名=常值表达式 说明用于代替数值或字符串的符号常数
DATA                 DATA 常量[,常量]... 为READ语句准备数据
DATE$                DATE$=S$ 根据S$中的内容设置系统日期
DECLARE              DECLARE {FUNCTION|SUB}过程名[(参数表)] 说明引用过程和检查参数类型
DEF FN               DEF FN
                     DEF FN...END DEF 定义单行或多行函数
DEF SEG              DEF SEG[=n] 为需段地址语句定义数据段
DEF type             DEF type 字符范围 定义变量的缺省类型
DIM                  DIM 变量 [AS类型] 说明变量并分配存贮空间
DO...LOOP            DO...LOOP 根据条件决定是否进行循环
DRAW                 DRAW S$ 在显示器上画图
END                  END {DEF | FUNCTION | IF| SELECT | SUB | TYPE} 结束程序.过程或程序块
ENVIRON              ENVIRON 含"="的字符串 修改DOS环境字符串表中的参数
ERASE                ERASE array,[array]... 重新初始化静态数组,重新为动态数组分配空间
ERROR                ERROR n 模拟产生BASIC错误 n
EXIT                 EXIT { DEF | DO | FOR | FUNCTION | SUB } 跳出循环或程序块
FIELD                FIELD [#]filenum,宽度 AS 字符串变量... 在随机存贮文件缓冲器里为变量分配空间
FILES                FILES [filespec] 显示指定磁盘上文件(相当于DOS的DIR)
FOR...NEXT           FOR...NEXT 允许一批命令在循环中执行给定的次数
FUNCTION             FUNCTION...END FUNCTION 说明过程函数的名字,参数和代码
GET                  GET [#]filenum[,recnum[,variable]]
                     GET (x1,y1)-(x2,y2),array 把一磁盘文件读入随机存取缓冲器变量存储屏幕上的图像
GOSUB
RETURN               GOSUB...RETURN 将控制转移到子程序和从子程序返回
GOTO                 GOTO {行号|行标号} 无条件转移到指定语句
IF...THEN... ELSE... 　 根据逻辑表达式的值进行条件执行
INPUT                INPUT[;][提示字符串{;|,}]变量表 在程序运行期间从键盘输入数据
INPUT#               INPUT#filenum,变量表 从顺序存取装置或文件中读取数据
IOCTL                IOCTL[#]filenum,字符串 传送控制数据字符串到设备驱动器
KEY                  KEY n,字符串
                     KEY {ON|OFF|LIST} 把软键字符串值赋给功能键显示,清除或全显功能键
KEY(n)               KEY(n){ON|OFF|STOP} 开启.关闭或停止捕捉指定键
KILL                 KILL filespec 删去磁盘上的指定文件
LET                  [LET]变量=表达示 赋值
LINE                 LINE(x1,y1)-(x2,y2),color, BF, style 画线或方框
LINE INPUT           LINE INPUT[;][提示字符串 {;|,}]字符串变量 输入一整行字符
LINE INPUT#          LINE INPUT #filenum,S$ 从顺序磁盘文件读一整行字符串到S$中
LOCATE               LOCATE row,col,cursor,start,stop 将光标移到指定位置或改变光标属性
LOCK ...
UNLOCK 　                    用另外的过程控制对打开文件的全部或部分的存取
LPRINT 　                    向打印机发送数据
LPRINT USING 　              向打印机按格式发送数据
LSET                 LSET 字段变量=S$ 以左对齐方式把字符串数据放入随机文件缓冲区中
MID$                 MID$(S$,n[,m])=r$ 用r$把S$中的第n个符开始替换m个字符,原长度不变
MKDIR                MKDIR path 用字符串path建立一个子目录
NAME                 NAME 旧文件名 AS 新文件名 为文件改名
ON ERROR             ON ERROR GOTO {行号|行标号} 设置错误陷阱
ON even              ON even GOSUB {行号|行标号} 设置事件陷阱
ON...GOSUB           ON n GOSUB {行号|标号表} 转到第N个标号所示子程序
ON...GOTO            ON n GOTO {行号|标号表} 转到第n个标号所示语句
OPEN                 OPEN filespec [FOR mode]AS [#]n [len=recordsize] 打开磁盘文件
OPEN COM             OPEN "COMn:[baud][,parity][,data][,stop][,option]" AS [#]n [LEN=num] 打开一通讯文件
OPTION BASE          OPTION BASE n 设置数组下标缺省最小值
OUT                  OUT portno,n 把一个字节值n送到I/O端口
PAINT                PAINT (x,y)[,color][,boundary] 在图形屏幕上用颜色或图案填充封闭区域
PALETTE              PALETTE attribute,color 改变调色板中的颜色
PALETTE USING        PALETTE USING array 改变调色板中所有颜色
PCOPY                PCOPY源显示而,目的显示页 以全屏幕方式将一页拷贝到另一页上
PEN {ON | OFF | STOP} 　     允许.禁止和暂停光笔事件捕捉
PLAY                 PLAY 字符串 演奏字符串指定的音乐
PLAY {ON | OFF | STOP} 　    允许.禁止和暂停对演奏事件的捕捉
POKE                 POKE address,byte 将一字节写入指定内存单元
PRESET               PRESET (x,y)[,color] 在屏幕上画一点(缺省为背景色)
PRINT 　                     显示语句
PRINT # 　                   输出字符串到文件
PRINT # USING 　             格式输出到文件
PRING USING 　               格式显示
PSET                 PSET (x,y)[,color] 在屏幕上画一点(缺省为前景色)
PUT                  PUT [#]filenum[,[recnum] [,varable]]
PUT (x,y) array,action       将变量或随机存贮缓冲器写入文件
                             将由GET得到的图像放置在屏幕上
RANDOMIZE            RANDOMIZE [n] 预置(重新播种)随机数发生器
READ                 READ 变量表 从DATA语句读数据并赋给变量
REDIM                REDIM 变量 AS 类型... 改变已为动态数组分配的空间
REM                  REM remark 在程序里插入说明或注释
RESET                RESET 关闭全部磁盘文件
RESTORE              RESTORE {行号|行标号} 允许从指定的行重读DATA语句
RESUME               RESUME {行号|行标号|NEXT} 错误捕捉程序调用后继续执行程序
RETURN               RETURN {行号|行标号} 控制从子程序里返回
RMDIR                RMDIR path 消去目录path(相当于DOS的RD)
RSET                 RSET S$=X$ 把X$右对齐放在随机存贮缓冲器的字符器S$中
RUN                  RUN [{行号|文件名}] 重新执行内存中程序或由文件名指定的程序
SCREEN               SCREEN [mode][,[colorswitch]][,[apage][,[vpage]] 设置显示屏幕
SEEK                 SEEK [#]filenum,position 在文件里为下一个读写操作设定位置
SELECT CASE 　       根据一个表达式决定执行n个语句块之一
SHARED               SHARED 变量 AS 类型... 说明共用变量
SHELL                SHELL 命令字符串 暂停BASIC程序,运行DOS的命令
SOUND                SOUND 频率,时间长度 从喇叭发声
STATIC               STATIC 变量表 说明为静态变量
STOP                 STOP 终止程序执行
STRIG                STRIG {ON|OFF} 开启或关闭操纵杆的触发检查
STRIG ON,OFF和STOP STRIG(n) {ON|OFF|STOP} 允许.关闭或暂停捕捉操纵杆动作
SUB SUB...END SUB           标明子程序的开始和结尾
SWAP                 SWAP 变量1,变量2 交换两个变量的值
SYSTEM               SYSTEM 关闭所有打开文件并把控制返回操作系统
TIME$                TIME$=S$ 按字符串S$来设置时间
TIMER {ON| OFF|STOP} 　     允许.禁止或轶计时事件捕捉
TRON/TROFF           TRON/TROFF 跟踪程序语句的执行
TYPE TYPE...END TYPE        定义数据类型
UNLOCK 　                   释放对文件一部分的锁定
VIEW VIEW [SCREEN](x1,y1)-(x2,y2),color,border 为图形输出定义屏幕边界
VIEW PRINT           VIEW PRING top TO bottom 设置屏幕上文本窗口边界
WAIT                 WAIT portno,and_value,xor_valud 监视端口状态并暂停程序的执行
WHILE...WEND 　             在条件为真时, 执行循环体内语句
WIDTH                WIDTH [设备][列数] 设置输出宽度
WINDOW               WINDOW [SCREEN](x1,y1)-(X2,y2) 定义当前窗口的广义坐标
WRITE                WRITE 表达式表 在屏幕上输出数据
WRITE #              WRITE #filenum,expressiolist 将数据写入顺序文件
$DYNAMIC             REM $DYNAMIC 默认用动态数组, 特点：可以利用redim重新定义数组大小
$STATIC              REM $STATIC 默认用静态数组

有关于文件操作方面的部分语句！
(1).OPEN 语句
格式：OPEN <文件名> FOR <读写方式> AS#<文件号>
<读写方式>：
这里我们只用二进制方式BINARY
<文件号>：即文件缓冲区号，每一个文件都要指定一个不同的文件号（1～225）；
说明：
以BINARY方式打开已存在的文件，指针指向首记录；
（2）CLOSE语句
关闭已用的文件
CLOSE [#<文件号1>][,#<文件号2>]……
关闭由文件号指定的文件缓冲区，将内容存盘，如不指定文件号，则关闭所有已打开的文件；
（3）、GET#语句
格式：GET #<文件号> [,<地址>][,<记录变量>]
功能: 用于从文件中读一个指定地址的记录,赋给一个记录变量。
（4）、PUT#语句
格式：PUT #<文件号> [,<地址>][,<记录变量>]
功能: 将一个记录变量的内容写到指定地址的记录中去
（5）SEEK语句
格式：SEEK#<文件号>,<字节位置>
把指针移动指定地方
（6）LOF语句
格式：LOF<文件号>
获得文件的大小！
（7）EOF语句
格式：EOF<文件号>
判断文件是否到最后！

三、随机文件(RAMDOM ACCESS FILE)
随机存取文件——所有记录等长，各记录相应的数据项的长度也相同；
按记录号进行存取，记录的顺序不一致，可直接读写任一条记录。

1、随机文件的建立

（1）OPEN <文件名> AS#<文件号> [LEN=<长度>]

存取方式不用指定，自动加上“FOR RANDOM”，表示随机文件；

（2）定义缓冲区中各“域”的长度（FIELD 字段）


FIELD <文件名>，<域宽>AS<域名>[，<域宽>AS <或名>]
定义记录的结构
如：FIELD #1, 10 AS A$, 15AS B$, 36AS C$

（3）随机文件的记录中各域只能存放字符串数据，在对数值型数据进行处理时，要经过转换；
（4）数值转换为字符的函数

MKI$（<整型表达式>） 2字节

MKS$（<单精度表达式>） 4字节

MKD$（<双精度表达式>） 8字节

称为“内码字符串”
（5）缓冲区中各域的字符串变量赋值

LSET <域变量>=<字符串>（左对齐）

RSET <域变量>=<字符串>（右对齐）
（6）将文件缓冲区中的数据存盘

PUT #<文件号>[，<记录号>]
（7）用CLOSE关闭文件

例10-5:(P340例12.11)
OPEN "good.dat" FOR RANDOM AS #1 LEN=23
FIELD #1, 2 AS n$,15 AS m$,4 AS P$,2 AS s$
DO
READ num%,nam$,price,stock%
IF num%=9999 THEN EXIT DO
LSET n$=MKI$(num%)
LSET m$=nam$
LSET p$=MKS$(price)
LSET s$=MKI$(stock%)
PUT #1
LOOP
DATA .............
DATA .............
DATA .............
DATA .............
DATA .............
DATA 9999,,,
CLOSE
END
2、随机文件的读入
(1)、打开随机文件
     OPEN <文件名> AS#<文件号> [LEN=<长度>]
(2)、定义文件缓冲区中各域的长度；
FIELD <文件名>，<域宽>AS<域名>[，<域宽>AS <或名>]
(3)、从指定的文件中读取一个记录
GET #<文件号> [，<记录号>]
(4)、将内码字符串还原为数值型数据；
CVI（<2个字节的域变量>）——整数
CVS(<4个字节的域变量>)——单精度
CVD(<8个字节的域变量>)——双精度
这三个函数是MKI$，MKS$ MKD$的逆运算
(5)、关闭文件
     CLOSE

例10-6:(P341例12.12)

OPEN "good.dat" FOR RANDOM AS #1 LEN=23
FIELD #1, 2 AS n$,15 AS m$,4 AS P$,2 AS s$
PRINT "num","name","price","stock"
FOR i%=1 TO LOF(1)/23
GET #1,i%
num%=CVI(n$)
nam$=m$
price=CVS(p$)
stock%=CVI(s$)
PRINT num%,nam$,price,stock%
NEXT i%
CLOSE
END
3、随机文件的修改

随机文件的优点：可直接读写任何一个记录,且既能读又能写。

例10-7:(P342例12.13)
OPEN "good.dat" FOR RANDOM AS #1 LEN=23
FIELD #1, 2 AS n$,15 AS m$,4 AS P$,2 AS s$
INPUT "which record:";r
DO UNTIL r=0
GET #1,r
num%=CVI(n$)
nam$=m$
price=CVS(p$)
stock%=CVI(s$)
PRINT num%,nam$,price,stock%
INPUT "price=";price
LSET p$=MKS$(price)
PUT #1,r
INPUT "which record:";r
LOOP
CLOSE
END
3、记录型变量

一个记录包括若干个“域”，在同一文件中各个记录所包含的域都是相同的，这样可以定义一种新的变量类型——记录。
  1001 Shirt 67 120
1002 Skirt 87 108
1003 Coat 231.5 67
(1)、定义记录类型

格式：TYPE  <记录类型名>

<域名1> AS <类型>
<域名2> AS <类型>
......
<域名n> AS <类型>
END TYPE
例如: TYPE goods
      num    AS  INTEGER
      nam    AS  STRING*15
      price  AS  SINGLE
      stock  AS  INTEGER
      TYPE END

(2)、定义记录变量
格式: DIM <记录变量名> AS <记录类型名>

例如:  DIM  a  AS goods

(3)、记录变量中的域表示法

格式: <记录变量名>.<域名>

例如:  a.num     表示a变量中的num域。

4、用于记录变量的读写语句

（1）、GET#语句
格式：GET #<文件号> [,<记录号>][,<记录变量>]
功能: 用于从文件中读一个指定的记录,赋给一个记录变量。
（2）、PUT#语句
格式：PUT #<文件号> [,<记录号>][,<记录变量>]
功能: 将一个记录变量的内容写到指定的记录中去。

例10-8:用记录变量的方法建立一个随机文件。
（P346例12.14)
TYPE goods
  num    AS  INTEGER
  nam    AS  STRING*15
  price  AS  SINGLE
  stock  AS  INTEGER
TYPE END
DIM cloth  AS  goods
OPEN "good.dat" FOR RANDOM AS #1 LEN=LEN(cloth)
DO
READ cloth.num,cloth.nam,cloth.price,cloth.stock
IF cloth.num=9999 THEN EXIT DO
PUT #1,,cloth
LOOP
DATA .....
.....
DATA 9999,,,
CLOSE
END
例10-9:用记录变量的方法读入一个随机文件内容。
（P347例12.15)
TYPE goods
  num    AS  INTEGER
  nam    AS  STRING*15
  price  AS  SINGLE
  stock  AS  INTEGER
TYPE END
DIM cloth  AS  goods
OPEN "good.dat" FOR RANDOM AS #1 LEN=LEN(cloth)
PRINT "num","name","price","stock"
FOR i%=1 TO LOF(1)/LEN(cloth)
  GET #1,i%,cloth
PRINT cloth.num,cloth.nam,cloth.price,cloth.stock
NEXT i%
CLOSE
END
例10-10:用记录变量的方法修改一个随机文件内容。
（P348例12.16)
TYPE goods
  num    AS  INTEGER
  nam    AS  STRING*15
  price  AS  SINGLE
  stock  AS  INTEGER
TYPE END
DIM cloth  AS  goods
OPEN "good.dat" FOR RANDOM AS #1 LEN=LEN(cloth)
DO
  INPUT "which record";r
  IF r=0 THEN EXIT DO
  GET #1,r,cloth
PRINT cloth.num,cloth.nam,cloth.price,cloth.stock
INPUT "price=";cloth.price
PUT #1,r,cloth
LOOP
CLOSE
END
四、文件与目录处理
1、显示磁盘目录
　　 FILES ["文件名"]
例：FILES "*.BAS" —显示当前目录下，扩展名为BAS的所有文件；

2、执行DOS命令
　　 SHELL [命令字符串]

例：SHELL "dir"　 — 暂时退出QBASIC,执行DOS的命令dir(显示目录)，然后返回QBASIC。
注：如果没有[命令字符串]，则转到DOS命令状态，可用EXIT返回QBASIC。

3、文件改名
　　 NAME <旧名> AS <新名>
可改名或修改文件路径。

4、文件删除
　　　 KILL <文件名>

5、目录操作
MKDIR <路径名>——建立子目录
CHDIR <路径名>——改变当前目录
RMDIR <路径名>——删除（空）目录

循环结构：　　　　　　　　　　　　　　　　　　　　　　　　　　　
循环体——反复执行的一组语句　　

  1）、FOR循环　　　　　　　　　　　　　　　　　　　　　　　　　　　
（2）、WHILE循环　　　　　　　　　　　　　　　　　　　　　　　　　　　
（3）、DO循环　
在这两个循环中可以用EXIT退出
EXIT FOR
EXIT DO　　　　　　　　　　　　　　　　　　　　　　　　　　  

FOR循环　　　　　　　　　　　　　　　　　　　　　　　　　　　
例子
FOR I=1 TO 5
    PRINT I
NEXT I
运行结果
1
2
3
4
5
可以带参数STEP
FOR I=5 TO 1 STEP -1
    PRINT I
NEXT I
运行结果
5
4
3
2
1

FOR I=1 TO 5 STEP 2
    PRINT I
NEXT I
运行结果
1
3
5

（2）、WHILE循环　　

WHILE　 <条件>　　 <循环体>　　WEND　　　　　　　　　　　　　　　　　　　　　注: <条件>是终止循环的逻辑表达式,<条件>应随循环的执行而变化,最终退出循环。　
例子：
WHILE I>5
     I=I+1
     PRINT I
WEND　　　　　　　　　　　　　　　　　　　　　　　　　　  
运行结果
1
2
3
4
5
　　　　　　　　　　　　　　　　　　　　　　　　　
3）、DO循环　　　　　　　　　　　　　　　　　　　　　　　　　　　  
这个有两种方式，一种是当循环 （WHILE），一种是直到循环（UNTIL）
这两种中都可以先判断在循环，或者是先循环在判断

带until子句的do循环语句　（直到型）
1、先判断，在循环
格式一：do until <条件>　　　　  　       
                <循环体>　　　　　　　　　　　　
　      loop　　　
2、先循环，在判断　　　　　　　　　　　　　　　　　　　　　  
格式二：do　　　　　　　　　　　　　　　　　　　　　　　　
　　　        <循环体>.　　　　　　　　　　　　
　　　　loop until <条件>　　　　　　　　　　　　　　　　　　　　　　　　　  

作用：直到条件为真时终止循环　

当型循环
1、先判断，在循环
格式一：do WHILE <条件>　　　　  　       
                <循环体>　　　　　　　　　　　　
　      loop　　　
2、先循环，在判断　　　　　　　　　　　　　　　　　　　　　  
格式二：do　　　　　　　　　　　　　　　　　　　　　　　　
　　　        <循环体>.　　　　　　　　　　　　
　　　　loop WHILE <条件>　　　　　　　　　　　　　　　　　　　　　　　　　  

作用：当条件为真时终止循环　

　选择结构程序设计
　  一、概述
　　　分支结构：　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
二、关系式和逻辑表达式
　　1、关系运算符　　　　　　　　　　　　　　　　
　　　　 < 、 >、 =、 <=、 >=、 < >　
　　２、关系式　　　　　　　　　　　　　　　　
　　　 关系式是由一个关系运算符把两个表达式连起来的式子。结果（值）为逻辑值：　　　　　　　　　　　　　　　
　　　　　　　 真 True　　　 假 False　　　　　　　　　　　　　　　　　　　　　
   QBASIC用数值表示： 真： -1（非零值）　　　　　　　　　　　　　　　　
  　　　　　　　 　　 假： 0　　　　　　　　　　　　　　　　　　　　　
if x< >0 then print x和if x then print x　相同　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　　 3、逻辑运算符及逻辑表达式
　　
　　　(1)、not （非、逆、取反）　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　　　　　 7>4 值为真　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　　　　　 　not (7>4) 值为假　　　　　　　　　　　　　　　
　　　(2)、and （与、交）　　　　　　　　　　　　　　　  

　　　 所连接的两个关系式为真时条件成立。
　　　　　　 x>0 and x<10
　　 (3)、or （或 、并）　　　　　　　　　　　　　　　　　　　  

　　 所连接的两个关系式中有一个（以上）为真，则条件成立。　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　　　　 X> 10 or X<0　　　　　　　　　　　　　　　　　　　  

　　　 集合表示　　　　　　　　　　　　　　　　　　　  

　　　　 　A and B    A or B     not A　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　　4、逻辑表达式的运算规则（P123表6.4）　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　　5、运算次序（优先级别）　　　　　　　　　　　　　　　　　　　　  

　　　 算术运算—关系运算—逻辑运算（例P123）　　　　　　　　　　　　　　　　　　　　  

　　　 关于逻辑表达式结果：　　　　　　　　　　　　　　　　　　　　  

　　　 x=6>4　　　　　　　　　　　　　　　　　　　　  

　　　 print x　　　　　　　　 x=-1　　　　　　　　　　　　　　　　　　　　  

　　　 a=5=3 =>a=(5=3)　　　　 a=0　　　　　　　　　　　　　　　　　　　　  

三、行IF语句　　　　　　　　　　　　　　
　　　　　　　　　　　　　　　　　　　
　 １、一般格式　　　　　　　　　　　　　　　　　　　
　　　 if <条件> then <语句1> [else<语句2>]　　　　　　　　　　　　　　　　　　　　  

　　　 课本Ｐ124例6.1、 6.2、 6.3　　　　　　　　　　　　　　
　　　　　　　　　　　　　　　　　　　　　　
　　2、嵌套关系　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　 (1)if…then if…then…else…else　　　　
　　　　　　　　　内层　　　　　　　　　　　　　　　　　　　
　　　　　　　　 外层　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　（2）if…then if…then…else if …then…else　　　　　　　　　　　　　  

四、块if语句　　　　　　　　　　　　　　　　　　　  

　　 １、一般格式　　　　　　　　　　　　　　　　　　　
　　　　 if <条件> then　　　　　　　　　　　　　　　　　　　　
　　　　　　 <语句组1>　　　　　　　　　　　　　　　　　　　　
　　　　 [else　　　　　　　　　　　　　　　　　
　　　　　　 <语句组2>]　　　　　　　　　　　　　　　　　
　　　　 end if　　　　　　　　　　　　　　　　　  

　　 ２、应用举例

　　　　　　课本Ｐ129例6.4　　　　　　　　　　　　　
　　 例6.5: 输入3个整数、按从大到小的顺序输出。　　　　　　　　　　　　　　
　　　　　　　　　　　　　　　　　　　
　 算法：　　　　　　　　　　　　　　　　　　　
　 （1）先将a与b比较，把小者放b中，大者放a。　　　　　　　　　　　　　　　
　 （2）再将a与c比较，把小者放c中，大者放a中，此时　　　　 a已是三者最大的。　　　　　　　　　　　　　　　　　　　　
　 （3）最后将b与c比较，大者放b中，小者放c中，此时　　　　 a、b、c已按从大到小的顺序排例好。　　　　　　　　　　　　　
　 程序：　　　　　　　　　　　　　　　　　　　　
　　　　　　 inpnt "a,b,c,=";a,b,c　　
　　　　　　 if b>a then　　　
　　　　　　　　 t=a 　　　　　　　　　　　　　　　　　　　
　　　　　　　　 a=b　　　 交换a、b（swap a,b)　
　　　　　　　　 b=t　　　　　　　　　　　　　　　　　　　　
　　　　　　 end if　　　　　　　　　　　　　　　　
　　　　　　 if c>a then　　　
　　　　　　　　 t=a 　　　　　　　　　　　　　　　　　　　
　　　　　　　　 a=c　　　交换a、c（swap a,c)　
　　　　　　　　 c=t　　　　　　　　　　　　　　　　　　　　
　　　　　　 end if　　　　　
　　　　　　 if c>b then　　　
　　　　　　　　 t=b　　　　　　　　　　　　　　　　　　　　
　　　　　　　　 b=c　　　交换b、c (swap b,c)　　　　 　 　　　　 c=t　　　　　　　　　　　　　　　　　　　　
　　　　　　 end if　　　　　　　　　　　　　　　　　　　　
　　　　　　 print a, b,c　　　　　　　　　　　　　　　　　　　　　　　 end　　　　　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　　　
　 ３、块if的嵌套　　　　　　　　　　　　　  
　　　　 if then　　　　　　　　　　　　　　　　　　　　
　　　　　　 …　　　　　　　　　　　　　
　　　　　　 if then
　　　　　　　　 …　　　　　　　　　　　　　
　　　　　　 else　　　　　　　　　　　　　　　　　　　　
　　　　　　　　 …　　　　　　　　　　　　　
　　　　　　 end if　　　　　　　　　　　　　　　　　　　　
　　　　　　 …　　　　　　　　　　　　　
　　　　 else　　　　　　　　　　　　　　　　　　　　
　　　　　　 …　　　　　　　　　　　　　
　　　　 end if 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　　　　 课本Ｐ131例6.6　　　　　　　　　　　　　　  

　　 4、块IF中的ELSEIF格式

　　　　　　 if　 then
　　　　　　　　 …　　　　　　　　　　　　
　　　　　　 else　　　　　　　　　　　　　　　　　　　　
　　　　　　　　 if　then
　　　　　　　　　　…　　　　　　　　　　　　
　　　　　　　　 else
　　　　　　　　　　…　　　　　　　　　　　　
　　　　　　　　 end if　　　　　　　　　　　　　　　　　　　　
　　　　　　 end if　　　　　　　　　　　　　　　　　　　　  

写成：　 if　 then　　　　　　　　　　　　　　　　　　　　
　　　　　 …　　　　　　　　　　　　
　　　　 elseif　then
　　　　　 …　　　　　　　　　　　　
　　　　 else　　　　　　　　　　　　　　　　　　　　
　　　　　 …　　　　　　　　　　　　
　　　　 end if　　　　　　　　　　　　　　　　　　　　  

P125 改写为：　　　　　　　　　　　　　　　　　　　　  

　　　　 Input "m=";m
　　　　 If m<100 then
　　　　　　 d=0　　　　　　　　　　　　　　　　　　　　
　　　　 elseif m<200 then
　　　　　　 d=0.01
　　　　 elseif m<300 then
　　　　　　 d=0.02
　　　　 elseif m<500 then
　　　　　　 d=0.03
　　　　 elseif m<1000 then
　　　　　　 d=0.04
　　　　 elseif m<2000 then
　　　　　　 d=0.05
　　　　 else　　　　　　　　　　　　　　　　　　　　
　　　　　　 d=0.08
　　　　 end if　　　　　　　　　　　　　　　　　　　　
　　　　 a=m*(1-d)　　　　　　　　　　　　　　　　　　　　
　　　　 print "amount=";a
　　　　 end　　　　　　　　　　　　　　　　　　　　  

五、多分支选择语句　　　　　　　　　　　　　　　　　　　　  

　　　　 用嵌套的IF语句可实现多分支选择　　　　　　　　　　　　　　　
　 1、基本格式　　　　　　　　　　　  

　　　　 select case <变量>
　　　　　　 case <值1>　　　　　　　　　　　　　　　　　　　　
　　　　　　　　 <语句组1>
　　　　　　 case <值2>　　　　　　　　　　　　　　　　　　　　
　　　　　　　　 <语句组2>
　　　　　　 …　　　　　　　　　　
　　　　　　 case <值n>　　　　　　　　　　　　　　　　　　　　
　　　　　　　　 <语句组n>
　　　　　　 case else　　　　　　　　　　　　　　　　　　　　
　　　　　　　　 <语句组n+1>
　　　　 end select　　　　　　　　　　　　　　　　　　　　  

　　每一个CASE句中指定一个值条件，当CASE变量的值符合条件时，执行该子句下面的语名组，在执行完该语句组后，跳过其它CASE子句，从END SELECT转出。　　　　　　　　　  

例6.8(P136)　　　 c=int(s/250)　　　　　　　　　  

　 2、在CASE子句中使用TO　　　　　　　　　　  

　　　　 CASE　<值1>　TO <值2>　　　　　　　　　
　　　　 例P139　　　　　　　　  

　 3、在CASE子句中使用IS　　　　　　　　  

　　　　 CASE IS <关系运算符> <表达式>　　　　　　　　  

　　　　 例6.9 (P139)　　　　　　　　  

　 4、在CASE子句中使用多个条件　　　　　　　　  

　　　允许在一个CASE子句中指定多个条件,各条件　　　之间用逗号分开。　　　　　　　　
　　　　　条件=单值、值范围、单条件　　　　　　　
　 　　　 例P140　　　　　　　  

　 5、SELECT CASE语句的一般格式　　　　　　　  

　　　　 select case <测试表达式>
　　　　　　 case <条件11>，<条件12>,…
　　　　　　　　 <语句组1>
　　　　　　 case <条件21>，<条件22>,…
　　　　　　　　 <语句组2>
　　　　　　 …　　　　　　　　　　　
　　　　　　 case <条件n1>，<条件n2>,…
　　　　　　　　 <语句组n>
　　　　　　 case else　　　　　　　　　　　　　　　　　　　　
　　　　　　　　 <语句组n+1>
　　　　 end select　　　　　　　　  

六、多分支转移语句　　　　　　　
　　　　　　　　  

　　格式：ＯＮ <算术表达式> ＧＯＴＯ <标号１>，<标号２>，…　　　　　　　　　　
七、多分支选择结构小结　　　　　　　  

　　1、IF-THEN-ELSE（用IF的嵌套）　　　　　　　
　　　 分支（条件）较少时使用。　　　　　　　　
　　2、SELECT CASE　　　　　　　
　　　 分支（条件）较多时使用。　　　　　　　
　　3、ON GOTO　　　　　　　
　　　　非结构化程序设计，不宜使用。