语句名               语句格式                             功能
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 <路径名>——删除（空）目录

评论