标题Quick Basic 4.5自开发功能应用两例

　　一、建立蕴涵文件
　　在Quick Basic中建立如下文件mcolor.bi
　　CONST black=0，blue=1，green=2，cyan=3，red=4
　　CONST magenta=5，brown=6，white=7，blinking=16
　　然后以文本格式存盘，然后便可在程序中利用元命令$INCLUDE调入，方法如下：
　　'$INCLUDE:'mcolor.bi'
　　CLS
　　COLOR white，blue
　　PRINT "This text is white on a blue background."
　　COLOR blinking+red，white
　　PRINT "This text is blinking red on a white background."
　　二、建立自定义库函数
　　在Quick Basic 4.5提供了同C语言相似的自造库函数功能，其可利用的库分为快速库和连接库。(现以快速库为例)
　　在Quick Basic中建立如下文件msub.bas
　　SUB demo
　　SCREEN 2
　　FOR angle%=0 to 360 STEP 12
　　DRAW "TA="+VARPTR$(angle%)
　　DRAW "U45 E40 D40 G40"
　　NEXT angle%
　　END SUB
　　然后在主菜单中选择RUN项再选择Make Librarg根据提示键入库名(如mysub)便可生成连接库mysub.lib和快速库mysub.qlb。利用快速库须在调入QB时键入如下命令行QB /L MYSUB，在程序中可直接用CALL demo执行，也可先进行说明DECLARE demo然后便可直接用demo执行。