qbasic编程命令语句

千里之行，始于足下。第2页/共2页精品文档推荐qbasic编程命令语句QuickBasic常用函数：

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)返回变量地址的字符串表示

======================================================================

QuickBasic常用的语句

语句名语句格式功能

BEEPBEEP使喇叭发声

BLOADBLOADfilespc[,address]把用BSAVE语句存贮的文件装入内存

BSAVEBSAVEfilespc,address,length把某一内存区域中的内容存入磁盘

CALLCALL过程名[(形式参数表)]调用一具过程

CALLSCALLS过程名[形式参数表]把操纵传给非BASIC语言写的过程

CALLABSOLUTECALLABSOLUTEaddress[(参数表)]传送操纵给一具机器语言过程

CALLINT86OLDCALLINT86OLD(int_no,in_array(),out_array())

CALLINT86XOLD(int_no,in_array(),out_array

())实现DOS功能调用

CALLINTERRUPTCALLINTERRUPT(int_no,inregs,outregs)

CALLINTERRUPTX(int_no,inregs,outregs)结构化的DOS功能调用

CHAINCHAINfilespec将操纵由当前程序转到不的程序

CHDIRCHDIRpath改变现行的名目(相当于DOS的CD)

CIRCLECIRCLE(x,y),r,[,c[,start,end,[,aspect]]]画圆或圆的一部分

CLEARCLEAR重新初始化全部变量,关闭文件和设置堆栈的大小

CLOSECLOSE[[#]n[,[#]n]...]关闭文件。n是文件号;无挑选时关闭所有文件

CLSCLS清屏幕

COLORCOLOR[背景色][,[调色板]设置图形颜色(随图形方式别同而别同

COMCOM(n){ON|OFF|STOP}允许,别允许或禁止指定口上的通讯事件捕捉

COMMONCOMMON变量表讲明要传递给被链接程序的变量

CONSTCONST常值名=常值表达式讲明用于代替数值或字符串的符号常数

DATADATA常量[,常量]...为READ语句预备数据

DATE$DATE$=S$依照S$中的内容设置系统日期

DECLAREDECLARE{FUNCTION|SUB}过程名[(参数表)]讲明引用过程和检查参数类型

DEFFNDEFFN

DEFFN...ENDDEF定义单行或多行函数

DEFSEGDEFSEG[=n]为需段地址语句定义数据段

DEFtypeDEFtype字符范围定义变量的缺省类型

DIMDIM变量[AS类型]讲明变量并分配存贮空间

DO...LOOPDO...LOOP依照条件决定是否举行循环

DRAWDRAWS$在显示器上画图

ENDEND{DEF|FUNCTION|IF|SELECT|SUB|TYPE}结束程序.过程或程序块

ENVIRONENVIRON含"="的字符串修改DOS环境字符串表中的参数

ERASEERASEarray,[array]...重新初始化静态数组,重新为动态数组分配空间

ERRORERRORn模拟产生BASIC错误n

EXITEXIT{DEF|DO|FOR|FUNCTION|SUB}跳出循环或程序块

FIELDFIELD[#]filenum,宽度AS字符串变量...在随机存贮文件缓冲器里为变量分配空间

FILESFILES[filespec]显示指定磁盘上文件(相当于DOS的DIR)

FOR...NEXTFOR...NEXT允许一批命令在循环中执行给定的次数

FUNCTIONFUNCTION...ENDFUNCTION讲明过程函数的名字,参数和代码

GETGET[#]filenum[,recnum[,variable]]

GET(x1,y1)-(x2,y2),array把一磁盘文件读入随机存取缓冲器变量存储屏幕上的图像

GOSUB

RETURNGOSUB...RETURN将操纵转移到子程序和从子程序返回

GOTOGOTO{行号|行标号}无条件转移到指定语句

IF...THEN...ELSE...依照逻辑表达式的值进

行条件执行

INPUTINPUT[;][提示字符串{;|,}]变量表在程序运行期间从键盘输入数据

INPUT#INPUT#filenum,变量表从顺序存取装置或文件中读取数据

IOCTLIOCTL[#]filenum,字符串传送操纵数据字符串到设备驱动器

KEYKEYn,字符串

KEY{ON|OFF|LIST}把软键字符串值赋给功能键显示,清除或全显功能键

KEY(n)KEY(n){ON|OFF|STOP}开启.关闭或停止捕捉指定键

KILLKILLfilespec删去磁盘上的指定文件

LET[LET]变量=表达示赋值

LINELINE(x1,y1)-(x2,y2),color,BF,style画线或方框

LINEINPUTLINEINPUT[;][提示字符串{;|,}]字符串变量输入一整行字符

LINEINPUT#LINEINPUT#filenum,S$从顺序磁盘文件读一整行字符串到S$中

LOCATELOCATErow,col,cursor,start,stop将光标移到指定位置或改变光标属性

LOCK...

UNLOCK用另外的过程操纵对打开文件的全部或部分的存取

LPRINT向打印机发送数据

LPRINTUSING向打印机按格式发送数据

LSETLSET字段变量=S$以左对齐方式把字符串数据放入随机文件缓冲区中

MID$MID$(S$,n[,m])=r$用r$把S$中的第n个符开始替换m个字符,原长度别变

MKDIRMKDIRpath用字符串path建立一具子名目

NAMENAME旧文件名AS新文件名为文件改名

ONERRORONERRORGOTO{行号|行标号}设置错误陷阱

ONevenONevenGOSUB{行号|行标号}设置事件陷阱

ON...GOSUBONnGOSUB{行号|标号表}转到第N个标号所示子程序

ON...GOTOONnGOTO{行号|标号表}转到第n个标号所示语句

OPENOPENfilespec[FORmode]AS[#]n[len=recordsize]打开磁盘文件

OPENCOMOPEN"COMn:[baud][,parity][,data][,stop][,option]"AS[#]n[LEN=num]打开一通讯文件

OPTIONBASEOPTIONBASEn设置数组下标缺省最小值

OUTOUTportno,n把一具字节值n送到I/O端口

PAINTPAINT(x,y)[,color][,boundary]在图形屏幕上用颜色或图案填充封闭区域

PALETTEPALETTEattribute,color改变调色板中的颜色

PALETTEUSINGPALETTEUSINGarray改变调色板中所有颜色

PCOPYPCOPY源显示而,目的显示页以全屏幕方式将一页拷贝到另一页上

PEN{ON|OFF|STOP}允许.禁止和暂停光笔事件捕捉

PLAYPLAY字符串演奏字符串指定的音乐

PLAY{ON|OFF|STOP}允许.禁止和暂停对演奏事件的捕捉

POKEPOKEaddress,byte将一字节写入指定内存单元

PRESETPRESET(x,y)[,colo

r]在屏幕上画一点(缺省为背景色)

PRINT显示语句

PRINT#输出字符串到文件

PRINT#USING格式输出到文件

PRINGUSING格式显示

PSETPSET(x,y)[,color]在屏幕上画一点(缺省为前景色)

PUTPUT[#]filenum[,[recnum][,varable]]

PUT(x,y)array,action将变量或随机存贮缓冲器写入文件

将由GET得到的图像放置在屏幕上

RANDOMIZERANDOMIZE[n]预置(重新播种)随机数发生器

READREAD变量表从DATA语句读数据并赋给变量

REDIMREDIM变量AS类型...改变已为动态数组分配的空间

REMREMremark在程序里插入讲明或注释

RESETRESET关闭全部磁盘文件

RESTORERESTORE{行号|行标号}允许从指定的行重读DATA语句

RESUMERESUME{行号|行标号|NEXT}错误捕捉程序调用后接着执行程序

RETURNRETURN{行号|行标号}操纵从子程序里返回

RMDIRRMDIRpath消去名目path(相当于DOS的RD)

RSETRSETS$=X$把X$右对齐放在随机存贮缓冲器的字符器S$中

RUNRUN[{行号|文件名}]重新执行内存中程序或由文件名指定的程序

SCREENSCREEN[mode][,[colorswitch]][,[apage][,[vpage]]设置显示屏幕

SEEKSEEK[#]filenum,position在文件里为下一具读写操作设定位置

SELECTCASE依照一具表达式决定执行n个语句块之一

SHAREDSHARED变量AS类型...讲明共用变量

SHELLSHELL命令字符串暂停BASIC程序,运行DOS的命令

SOUNDSOUND频率,时刻长度从喇叭发声

STATICSTATIC变量表讲明为静态变量

STOPSTOP终止程序执行

STRIGSTRIG{ON|OFF}开启或关闭控制杆的触发检查

STRIGON,OFF和STOPSTRIG(n){ON|OFF|STOP}允许.关闭或暂停捕捉控制杆动作

SUBSUB...ENDSUB标明子程序的开始和结尾

SWAPSWAP变量1,变量2交换两个变量的值

SYSTEMSYSTEM关闭所有打开文件并把操纵返回操作系统

TIME$TIME$=S$按字符串S$来设置时刻

TIMER{ON|OFF|STOP}允许.禁止或轶计时事件捕捉

TRON/TROFFTRON/TROFF跟踪程序语句的执行

TYPETYPE...ENDTYPE定义数据类型

UNLOCK释放对文件一部分的锁定

VIEWVIEW[SCREEN](x1,y1)-(x2,y2),color,border为图形输出定义屏幕边界

VIEWPRINTVIEWPRINGtopTObottom设置屏幕上文本窗口边界

WAITWAITportno,and_value,xor_valud监视端口状态并暂停程序的执行

WHILE...WEND

在条件为真时,执行循环体内语句

WIDTHWIDTH[设备][列数]设置输出宽度

WINDOWWINDOW[SCREEN](x1,y1)-(X2,y2)定义当前窗口的广义坐标

WRITEWRITE表达式表在屏幕上输出数据

WRITE#WRITE#filenum,expressiolist将数据写入顺序文件

$DYNAMICREM$DYNAMIC默认用动态数组,特点：能够利用redim重新定义数组大小

$STATICREM$STATIC默认用静态数组

***********************************************************************************

有对于文件操作方面的部分语句！

(1).OPEN语句

格式：OPENFORAS#

：

这个地方我们只用二进制方式BINARY

：即文件缓冲区号，每一具文件都要指定一具别同的文件号（1～225）；

讲明：

以BINARY方式打开已存在的文件，指针指向首记录；

（2）CLOSE语句

关闭已用的文件

CLOSE[#][,#]……

关闭由文件号指定的文件缓冲区，将内容存盘，如别指定文件号，则关闭所有已打开的文件；

（3）、GET#语句

格式：GET#[,][,]

功能:用于从文件中读一具指定地址的记录,赋给一具记录变量。

（4）、PUT#语句

格式：PUT#[,][,]

功能:将一具记录变量的内容写到指定地址的记录中去

（5）SEEK语句

格式：SEEK#,

把指针挪移指定地点

（6）LOF语句

格式：LOF

获得文件的大小！

（7）EOF语句

格式：EOF

推断文件是否到最终！

三、随机文件(RAMDOMACCESSFILE)

随机存取文件——所有记录等长，各记录相应的数据项的长度也相同；

按记录号举行存取，记录的顺序别一致，可直截了当读写任一条记录。

1、随机文件的建立

（1）OPENAS#[LEN=]

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

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

FIELD，AS[，AS]

定义记录的结构

如：FIELD#1,10ASA$,15ASB$,36ASC$

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

（4）数值转换为字符的函数

MKI$（）2字节

MKS$（）4字节

MKD$（）8字节

称为“内码字符串”

（5）缓冲区中各域的字符串变量赋值

LSET=（左对齐）

RSET=（右对齐）

（6）将文件缓冲区中的数据存盘

PUT#[，]

（7）用CLOSE关闭文件

例10-5:(P340例12.11)

OPEN"good.dat"FO

RRANDOMAS#1LEN=23

FIELD#1,2ASn$,15ASm$,4ASP$,2ASs$

DO

READnum%,nam$,price,stock%

IFnum%=9999THENEXITDO

LSETn$=MKI$(num%)

LSETm$=nam$

LSETp$=MKS$(price)

LSETs$=MKI$(stock%)

PUT#1

LOOP

DATA

DATA

DATA

DATA

DATA

DATA9999,,,

CLOSE

END

2、随机文件的读入

(1)、打开随机文件

OPENAS#[LEN=]

(2)、定义文件缓冲区中各域的长度；

FIELD，AS[，AS]

(3)、从指定的文件中读取一具记录

GET#[，]

(4)、将内码字符串还原为数值型数据；

CVI（）——整数

CVS()——单精度

CVD()——双精度

这三个函数是MKI$，MKS$MKD$的逆运算

(5)、关闭文件

CLOSE

例10-6:(P341例12.12)

OPEN"good.dat"FORRANDOMAS#1LEN=23

FIELD#1,2ASn$,15ASm$,4ASP$,2ASs$

PRINT"num","name","price","stock"

FORi%=1TOLOF(1)/23

GET#1,i%

num%=CVI(n$)

nam$=m$

price=CVS(p$)

stock%=CVI(s$)

PRINTnum%,nam$,price,stock%

NEXTi%

CLOSE

END

3、随机文件的修改

随机文件的优点：可直截了当读写任何一具记录,且既能读又能写。

例10-7:(P342例12.13)

OPEN"good.dat"FORRANDOMAS#1LEN=23

FIELD#1,2ASn$,15ASm$,4ASP$,2ASs$

INPUT"whichrecord:";r

DOUNTILr=0

GET#1,r

num%=CVI(n$)

nam$=m$

price=CVS(p$)

stock%=CVI(s$)

PRINTnum%,nam$,price,stock%

INPUT"price=";price

LSETp$=MKS$(price)

PUT#1,r

INPUT"whichrecord:";r

LOOP

CLOSE

END

3、记录型变量

一具记录包括若干个“域”，在同一文件中各个记录所包含的域基本上相同的，如此能够定义一种新的变量类型——记录。

1001Shirt67120

1002Skirt87108

1003Coat231.567

(1)、定义记录类型

格式：TYPE

AS

AS

AS

ENDTYPE

例如:TYPEgoods

numASINTEGER

namASSTRING*15

priceASSINGLE

stockASINTEGER

TYPEEND

(2)、定义记录变量

格式:DIMAS

例如:DIMaASgoods

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

格式:.

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

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

（1）、GET#语句

格式：GET#[,][,]

功能:用于从文件中读一具指定的记录,赋给一具记录变量。

（2）、PUT#语句

格式：PUT#[,][,]

功能:将一具记录变量的内容写到指定的记录中去。

例10-8:用记录变量的办法建立一具随机文件。

（P346例12.14)

TYPEgoods

numASINTEGER

nam

ASSTRING*15

priceASSINGLE

stockASINTEGER

TYPEEND

DIMclothASgoods

OPEN"good.dat"FORRANDOMAS#1LEN=LEN(cloth)

DO

READcloth.num,cloth.nam,cloth.price,cloth.stock

IFcloth.num=9999THENEXITDO

PUT#1,,cloth

LOOP

DATA

DATA9999,,,

CLOSE

END

例10-9:用记录变量的办法读入一具随机文件内容。

（P347例12.15)

TYPEgoods

numASINTEGER

namASSTRING*15

priceASSINGLE

stockASINTEGER

TYPEEND

DIMclothASgoods

OPEN"good.dat"FORRANDOMAS#1LEN=LEN(cloth)

PRINT"num","name","price","stock"

FORi%=1TOLOF(1)/LEN(cloth)

GET#1,i%,cloth

PRINTcloth.num,cloth.nam,cloth.price,cloth.stock

NEXTi%

CLOSE

END

例10-10:用记录变量的办法修改一具随机文件内容。

（P348例12.16)

TYPEgoods

numASINTEGER

namASSTRING*15

priceASSINGLE

stockASINTEGER

TYPEEND

DIMclothASgoods

OPEN"good.dat"FORRANDOMAS#1LEN=LEN(cloth)

DO

INPUT"whichrecord";r

IFr=0THENEXITDO

GET#1,r,cloth

PRINTcloth.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、文件改名

NAMEAS

可改名或修改文件路径。

4、文件删除

KILL

5、名目操作

MKDIR——建立子名目

CHDIR——改变当前名目

RMDIR——删除（空）名目

******************************************************

循环结构：

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

1）、FOR循环

（2）、WHILE循环

（3）、DO循环

在这两个循环中能够用EXIT退出

EXITFOR

EXITDO

FOR循环

例子

FORI=1TO5

PRINTI

NEXTI

运行结果

1

2

3

4

5

能够带参数STEP

FORI=5TO1STEP-1

PRINTI

NEXTI

运行结果

5

4

3

2

1

FORI=1TO5STEP2

PRINTI

NEXTI

运行结果

1

3

5

（2）、WHILE循环

WHILEWEND注:是

终止循环的逻辑表达式,应随循环的执行而变化,最后退出循环。

例子：

WHILEI>5

I=I+1

PRINTI

WEND

运行结果

1

2

3

4

5

3）、DO循环

那个有两种方式，一种是当循环（WHILE），一种是