2023年7月28日发(作者：)

实用标准

BASIC

Qbasic 教程

BASIC（Beginner’s All-purpose Symbolic Instruction Code

的缩写，意为初学者通用符号指令代码）语言是在1964年由美国的两位教授Thomas 和John 在Fortran语言的基础上设计的语言系统，这个简单、易学的程序设计语言当时只有17条语句，12个函数和3个命令，现在一般称其为基本BASIC。

BASIC语言自诞生起，几十年间，经过世界和地的微机生产厂家的不断扩充和完善，先后出现了许多版本，IBM-PC及其兼容机上用的BASIC和GWBASIC.这些不同版本的BASIC语言并不兼容,在很大程度上依赖于具体的硬件,这些BASIC语言都是非结构化的,一般称其为第一代BASIC。70年代初，提出了结构化程序设计思想，BASIC语言的两位创始人Thomas 和John 于1985年推出了BASIC语言的新版本TrueBASIC，意思是说这才是真正的BASIC，以区别于各微机生产厂家自行开发的“街头BASIC”，它既保留了BASIC语言原有的简单，易学的特点，又使其成为结构化的程序设计语言，开创了BASIC语言的新纪元，属于第二代BASIC。

目前，比较流行的第二代BASIC还有Microsoft公司于1986年推出的Quick BASIC（快速BASIC）和Borland公司于1987年推出的TurboBASIC(增强BASIC)，尤其是Quick BASIC提供了集编辑、调试、编译、运行于一体的集成环境，具有下拉菜单、多窗口及在线帮助功能，文档 实用标准

并和以前IBM-PC机上的各种BASIC版本保持兼容。

进入90年代，Microsoft公司研制的Windows视窗软件问世之后，微软公司又开发了一个在Windows下运行的、面向对象的Visual

BASIC（可视BASIC，即图形界面式的BASIC），称为第三代BASIC，Visual

BASIC与Quick BASIC完全兼容，有Quick BASIC编写的程序不经修改就可在Visual BASIC下运行。属于第三代BASIC语言的还有GFA-BASIC和CA-Realizer。

今天的BASIC语言与最初的BASIC语言相比，无论是在功能上，还是在使用方法上，已经发生了巨大的变化，再也不是当初所谓的“初学者通用符号指令代码”了，但BASIC无论怎样变化，始终保持其简单、易学的特点，拥有最广泛的用户。

1991年6年，伴随着MS-DOS 5.0的推出，微软公司也同时推出了QBASIC，并作为MS-DOS 5.0的一个组成部分免费提供给用户。现在的MS-DOS 5.0及其以上版本都含有QBASIC。QBASIC与Quick BASIC完全兼容，是Quick BASIC的简化版本，除不能编译及减少了初学者暂时用不着的一些调试方法外，具有Quick BASIC的大部分功能。QBASIC采用解释方式，是一种会话式的语言，编写的程序可以立即运行并得到结果。 由于QBASIC、Quick BASIC都是Microsoft公司开发的，BASIC语言保持着高度的兼容性和良好的继承性，在学习QBASIC的基础上，可以很容易地掌握和使用Quick BASIC。另外，QBASIC只有两个文件和,用一张360K字节的软盘就可以存放下,无论是使用,还是维护、管理都很方便，所以，QBASIC是最适合初学者学习文档 实用标准

和掌握的程序设计语言。

Qbasic 教程

第一章 BASIC语言概述

一、程序设计语言的选择

程序是用来实现算法的。

1、应用范围

.数值计算（科学计算）

FORTRAN 、True BASIC、QBasic

.商业和管理

COBOL、数据库系统(dBASE、FoxBASE、Foxpro)

.人工智能

Lisp、ProLog

.系统设计

C语言、C++、

.多媒体(图、声、文技术)

Visual BASIC

.计算机网络

分布处理数据库系统：SYBASE、ORACLE

WWW文件：HTML(Hyper Text Markup Language)、Java

2、语言所提供的功能强弱

3、语言提供的数据结构

数据类型

4、语言的使用环境

DOS、WINDOWS、UNIX、NOVELL

5、程序设计环境

集成环境（菜单功能）、图形界面、软件开发工具

6、使用者的背景

熟练程度、使用环境

二、BASIC语言的发展

.BASIC语言于1964年问世 作者： 和 Thomos

.Beginner's All-purpose Symbolic instruction Code"

1、初期的BASIC（第一代）

.14——17个语句，Minimal BASIC

.自己操作（输入、运行、修改、输出

2、微机BASIC(第二代)

.Microsoft总裁编写只有4k字节的解释程序

.TRS-80 BASIC

文档 实用标准

.Apple BASIC

.MSBASIC(BASICA)

.GWBASIC

3、结构化BASIC（第三代）

.限制GOTO语句，程序模块化

.True BASIC 真正的BASIC

.Quick BASIC

.Turbo BASIC

.QBasic(DOS5.0以上)

4、面向对象的BASIC

.windows环境下的Visual BASIC，图形界面，支持多媒体.

三、QBasic的特点

QBasic是结构化的程序设计语言，与第二代BASIC相比有如下特点：

1、扩充了变量和常量的类型

.变量名长度：40个字符

.增加了长整型、定长字符型变量

.可定义数值常量、字符串常量

2、提供了新的选择结构

.条件语句

IF <条件> THEN

<语句组1>

ELSE

<语句组2>

END IF

.多分支语句SELECT

3、改进了循环结构

增加以下两个循环语句:

.WHILE循环

WHILE <条件>

<循环体>

WEND

.DO循环

DO WHILE <条件>

<循环体>

LOOP

4、子程序和函数作为单独的模块

5、不需要行号

6、具有良好的编辑环境

7、提供联机“Help”

8、提供“分步执行”“跟踪”等调试

9、采用先进的解释执行方式

文档

实用标准

10、与Visual BASIC完全兼容

四、QBasic使用环境

1、启动

.在DOS状态下运行QBASIC，如： F:>QBASIC

.在WIN98下双击QBASIC图标;

.软盘启动

把QBASIC系统文件（、) 复制到A盘，再执行：A:>QBASIC

2、工作窗口

.程序窗口（上）

.命令窗口（下）

.两窗口之间的切换F6

3、基本操作

光标、行列位置、鼠标指针、菜单、窗口的缩放

五、运行程序

1、从键盘输入程序

2、运行程序

.选择菜单RUN中的“Start"命令

.直接按F5键或Shift+F5

.在命令窗口中输入run命令

3、修改和编辑源程序

删除、插入、复制、粘贴

文档 实用标准

4、程序存盘和从磁盘读入程序

5、退出QBasic

Qbasic 教程

第二章 QBasic程序设计初步

一、概述

程序设计要掌握如下几点:

1、语法规则

计算机是忠实的执行者

2、根据算法写出程序

掌握算法，会画流程图

3、数据结构

数据的组织形式

4、结构化程序设计方法

掌握三种基本结构的运用

5、程序运行的环境

了解计算机系统的硬件和软件配置

程序设计=算法+数据结构+程序设计方法+语言工具和计算机环境

二、源程序结构

1、一个程序由若干个语句行组成，每一行称为一个语句行，一行中可以包含多个语句(语句间用“:”号相隔）。

2、语句行可以没有行号，程序按语句排列的顺序依次执行，但也允许有行号，行号仅作为行标号（源程序转移的目标）而不代表执行顺序。

3、语句结构

<语句定义符> [<语句体>]

（关键字）

4、程序以END语句结束

可以有多个END语句，一般放在程序的最后。

5、行标号

.行的标志

.只能在一行的开头

.可独占一行（即为空语句)

6、主程序与子程序

一个程序只包含一个主程序，但可包含若干个子程序或函数。

三、常量

常数——不变的数 常量——不能改变的数据

1、数值常量（常数）

文档

实用标准

1）整型常量（整数）

由若干个数字组成的序列

2）实型常量（实数）

.定点数（日常记数法） 小数位固定

.浮点数（科学记数法） 用E代表以10为底的幂数，即把常量用指数形式来表示

例如：12.34E2表示1234

.单精度实数（普通型实数）——7位有效数字

.双精度实数——16位有效数字（用D代替E）

3）数的范围

类型 标记符 字节 有效位数

整数 % 2

长整数 & 4

单精度定点数 ！ 4 7

单精度浮点数 E 4 7

双精度定点数 # 8 15

双精度浮点数 D 8 15

2、字符串常量

用双引号把若干个合法字符括起来，如：

"QBasic" "abc123"

3、符号常量

CONST <符号>=<常量>

例如：CONST pi=3.14159

四、变量

可改变的量，如：

let a=1

let a=2.3

let a=45.9

print a

end

1、变量名和变量的值

1）变量名规则

.变量名的第一个字符必须是字母

.变量名中第2个字符及其后的字符可以是字母、数 字或小数点

.变量名的长度范围为1-40个字符

.表示变量类型的符号应作为最后一个字符

.QBasic的保留字不能用作变量名.

.变量名中的大小写字母等效

文档 实用标准

.变量名中不可有空格

2）变量的名与值

变量名——符号地址

变量值——存储内容

系统自动生成变量名与内存地址对照表

2、变量类型

1）变量名后加类型定义符

%——整型（INTEGER)

&——长整型(LONG)

!——单精度实数(SINGLE)

#——双精度实数(DOUBLE)

$——字符串(STRING)

2)DIM语句

DIM <变量名> as <类型>

.<变量名>不加类型符

.用DIM定义了的变量其末尾加或不加类型定义 符都是合法的且都表示同一变量

3）字符串变量

.可变长字符串变量

a$="abcde"

a$="1234567"

.固定长度的字符串变量

例如： DIM a as string*5

a="China"

a$="Shanghai"

PRINT a,a$

END

运行结果如下：

Shang Shang

课本P78表4.3列出了变量的类型定义方法及占用的内存量

五、标准函数

.课本P80表4.4列出了最常用的一些数学函数

.课本P361第13.4节列出了QBasic的所有函数

标准函数——类似数学函数y=f(x)

例如：计算x+y的平方根 SQR(x+y)

计算sin(a+b) SIN(a+b)

文档 实用标准

六、运算符和表达式

QBasic的三种运算：算术运算、关系运算、逻辑运算

1、算术运算符

加 + 4+5 =9

减 - 8-3 =5

乘 * 2*3 =6

除 / 5/2 =2.5

整除 52 =2

求余 MOD 5 MOD 2 =1

乘方 ^ 2^3 =8

注：对于整除和求余运算，若参与运算的数不是整数，则先按四舍五入的原则变成整数后再运算。

2）算术表达式

.QBasic表达式

用运算符和括号将若干运算量（包括常量、变量、函数等）连接起来的式子。（例4.1)

.算术运算符的优先顺序：

括号—正负号—函数—乘方—乘、除、整除—余数—加、减

.表达式的写法

表达式应写出在同一行，注意分式的写法。

Qbasic 教程

第三章 顺序程序设计

程序的执行次序，从上到下，由一些非控制转移语句组成

一、输出语句

输出用户所需的信息

文档 实用标准

1、一般格式

如: PRINT 2，4，6

PRINT "X=";X

显示:

X= ...

(1)输出数值计算的结果(P92)

(3)输出系统信息(P94)

3、输出格式

五区—每区14列

(2)紧凑格式—输出项以分号相隔

(3)TAB（X）—第X列

定位输出，但在同一行中、TAB（X）中的X应从左到右逐渐增大。还可利用SPACE(X)插入空格

(4)PRINT <....>, 不换行（光标到下一区）

PRINT <....>； 不换行（光标在输出项后）

PRINT <....> 换行

PRINT 空行

4、打印输出

LPRINT

其使用方法与PRINT相同

二、赋值语句

1、一般格式

[LET]<变量名>=<表达式>

LET a=100

LET a$="BOOK"

2、作用

计算右边的表达式,将其值赋给左边变量;

主要作用:运算。

“=”的作用于是赋值，与等于的差别

如：X=Y 与 Y=X 不同(例P100)

3、对变量的赋值操作

（1）变量的初值为0

未赋值的变量

PRINT [<表达式>] 表达式—常量、变量、函数

2、作用

(2)输出字符串(P93)

(1)标准格式—输出项以逗号分隔

文档 实用标准

（2）一个变量只有一个值

变量的当前值由最后一次赋值决定

n=n+1

（3）变量值的传递

a=b b的值不变

b=a a的值不变

（4）关于赋值类型

以左边变量的类型为准

（5）两个变量交换值

a=b

c=a

a=b c为中间结果为?/font>

b=c

三、键盘输入语句

1、一般格式：

INPUT[“提示信息”；]< 变量表>

说明:(1)执行该语句从键盘输入数据的数目应与语句

(2)从键盘输入的数据只能是常量

(3)输入时数据间用逗号分隔

例：求学生三门课的平均成绩

INPUT "a,b,c=";a,b,c

V=(a+b+c)/3

PRINT "average="; v

END

四、读入语句

1、格式： READ <变量表>

DATA <数据表>

例：READ a,b,c,

DATA 75,60,90

V=(a+b+c)/3

END

2、说明：

（1）<数据表>中的数据个数不能少于<变量表>

文档

中的变量个数相同

中的变量个数。

实用标准

（2）DATA语句可放在程序的任何位置，可使用 多个DATA语句来存放数据，这时将按DATA 语句的先后顺序，把数据放数据区。 （3）关于“数据指针”当指针移到数据区之外 时，屏幕给出错误信息：

Out of DATA (例P109)

（4）DATA语句中的数据只能是常量

五、恢复数据指针语句

RESTORE

将数据指针移至首位或指定的DATA语句标号。

六、结束语句和暂停语句

1、END语句

结束程序运行。一个程序可有多个END语句，但运行程序时，只有一个起作用，即执行其中一个END语句都会使程序结束。

2、STOP语句

使程序暂停，选择RUN-CONTINUE继续运行。

七、程序调试

1、分步执行

F9—单步执行，STEP

F6—窗口转换，WINDOWS

F5—运行或继续运行。

2、设置断点

F9—设置断点 F5—运行或继续运行

Qbasic 教程

第四章 选择结构程序设计

一、概述

分支结构：

二、关系式和逻辑表达式

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

5、运算次序（优先级别）

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

4、逻辑表达式的运算规则

关于逻辑表达式结果：

x=6>4

print x x=-1

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

三、行IF语句

１、一般格式

if <条件> then <语句1> [else<语句2>]

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

２、应用举例

例6.5: 输入3个整数、按从大到小的顺序输出。

算法：

（1）先将a与b比较，把小者放b中，大者放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的嵌套

（2）再将a与c比较，把小者放c中，大者放a中，此时 a 已是三者最大的。

if then

…

if then

…

else

…

end if

文档 实用标准

…

else

…

end if

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转出。

c=int(s/250)

2、在CASE子句中使用TO

CASE <值1> TO <值2>

3、在CASE子句中使用IS

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

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

允许在一个CASE子句中指定多个条件,各条件 之间用逗号分开。

条件=单值、值范围、单条件

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

非结构化程序设计，不宜使用。

Qbasic 教程

第五章 循环结构程序设计

一、概述

循环结构：

（1）、WHILE循环

（2）、FOR循环

（3）、DO循环

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

例：求s=1+2+3+...+100

编写如下程序：

s=0

for i=1 to 100

s=s+i 反复执行100次

next i

文档 实用标准

print "1+2+3+...+100=";s

end

二、WHILE循环结构 WHILE <条件>

<循环体>

WEND

注: <条件>是终止循环的逻辑表达式,<条件>应随循环的执行而变化,最终退出循环。

如： s=0

i=1

WHILE i<=100

s=s+i

WEND

构成“死循环”——无终止的循环。这时可用Ctrl+Break终止其程序运行。

例1(P152例7.5): 如果我国工农业生产每年以12%速度增长,问多少年后产值翻一番:基值设为100。

（逐年计算产值，看是否达到200）

p=100

r=.12

n=0

WHILE p<200

p=p*(1+r)

n=n+1

WEND

PRINT n; "years","p=";p

END

例2 (P152例7.6) : 给出两个正整数，求它们的最大公约数。

算法：（辗转相除法）

(1)、以大数m作被除数，小的数n作为除数，相除后余数为r。

(2)、如果r=0，则n就是最大公约数。否则将n=>m, r=>n, 重复(1)。

程序及框图 ：

文档 实用标准

INPUT "m,n=";m,n

r=m MOD n

WHILE r < >0

m=n

n=r

r= m MOD n

WEND

PRINT "最大公约数为：",n

END

例3 (P153例7.7)：给一个整数n(>2)，判别它是否素数（质数）。

算法：判别n是否素数，只要将n被1～(n-1)各数轮流作除数除，若都不被整除，则为素数。

若n不是素数，则n=n1*n2,而n1和n2中必然有一个大于或等于n的开方根，另一个小于或等于n的开方根。

即若n是非素数，则必然有一个因子小于或等于n开方根。

程序及框图：

INPUT "n="; n

k=INT(SQR(n))

i=2

flag=0

WHILE i<=k AND flag=0

if n MOD i=0 THEN flag=1 ELSE i=i+1

WEND

IF flag=0 THEN

PRINT n;"是素数!"

ELSE

PRINT n;"不是素数!"

END IF

END

二、FOX循环结构

1、格式

文档 实用标准

FOR <变量>=<初值> TO <终值> STEP <增量>

循环体

WEXT <变量>

如： for i=1 to 10 step 2

print i,

next i

2、说明

（1）FOR与NEXT必须配对；

（2）FOR必须在NEXT的前面；

（3）FOR中的循环变量与NEXT的变量一致；

（4）步长为1时“ STEP 1”可省略；

（6）循环次数的计算

次数=(终值一初值)/步长+1

（7）循环变量尽量用整型变量；

（8）循环变量初值和终值、步长值均可以是正值、负值或零，也可是整数或小数；

（5）循环终止的条件是循环变量赋值超过终值，而不是等于终值。

终止条件:当步长>0时,循环变量>终值

当步长<0时,循环变量<终值

当步长=0时,永不终止

for i=1 to 100

print "a"

next i

（9）循环变量主要用来控制循环、可在循环体内引用，也可不在循环体出现。

for i=1 to 100

print i,

next i

注意：在循环体内可对循环变量赋值，但这将改变循环次数。

for i=1 to 100

print i,

i=i+1

文档

实用标准

next i

3、exit for 语句

提前终止循环

for i=1 to 100

s = s + i * i

if s > = 100 then exit for

next i

print s

end

4、应用举例

判别n是否素数。 input "n=";n

k = int(SQR(n))

f = 0

for i% = 2 to k

if n mod i% = 0 then

f = 1

exit for

endif

next i%

if f = 0 then

print n ; "是素数"

else

print n ; "不是素数"

endif

end

斐波那契数列

f(n)=1 (n<=2)

f(n)=f(n-1)+f(n-2) (n>2)

f1=1

f2=1

f3=f2+f1=2

f4=f3+f2=3

f5=f4+f3=5

......

程序如下：

f1=1

f2=1

文档

实用标准

print f1,f2,

for i% = 3 to 20

f3 = f1+f2

print f3,

f1=f2

f2=f3

next i%

print

end

猴子吃桃：每次吃掉一半多一个，直到第10天只剩一个,第一天共摘了多少个桃子？

x10 =1

程序如下：

x =1

for n%=10 to 2 step -1

x=(x+1)*2

next n%

print " 桃子的数量为：";x

end

思考：for n%=10 to 1 step -1 或for n%=1 to

9

三、DO 循环语句

1、简单DO循环

DO

<循环体>

loop

终止循环可用: exit do

计算三门课程的平均成绩

do

input"a,b,c, =";a,b,c

if a=0 and b=0 and c=o then exit do

文档 实用标准

s=(a+b+c)/3

print "平均成绩:';s

loop

end

2、带while子句的DO循环语句

格式一：do while <条件>

<循环体>

loop

格式二：do

<循环体>

loop while <条件>

作用：当指定条件为真是继续循环,否则结束循环。`

格式一为前测试与wend相同。格式二为后测试，至少应执行循环体一次。

例:求1+1/2+1/3+.......1/n 直到前后两项之差小于是1e-3为止。s=0

n=1

t=1/n

do

t1=t

s=s+t1

n=n+1

t=1/n

loop while t1-t>=1e(-3) print s

end

思考：（1）用loop 改写程序；

（2）两种格式do 循环的区别？

3、带until子句的do循环语句

格式一：do until <条件> <循环体>

loop

格式二：do

<循环体>.

loop until <条件>

文档 实用标准

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

求2000～2050年之间的所有闰年。

闰年的条件是：

（1）能被4整除，但不能被100整除的年份都是闰年；

（2）能被100整除，又能被400整除的年份是闰年；

程序如下：

y=2000

do while y>2050

if y mod 4=0 and y mod 100<>0 then

l=1

elseif y mod 100=0 and y mod 400=0 then l=1

else

l=0

endif

if l=1 then print y,

y=y+1

loop

end

思考: 条件可写成： (1)if (y mod 4=0 and y mod 100<>0)

mod 100=0 and y mod 400=0) then l=1 else

l=0

(2) if y mod 4=0 then if (y mod 100)<>0 then

l=1

elseif (y mod 400)=0 then l=1

else

l=0

endif

人口增长平均1.5%，设现人口12.3 亿，问多少年后人口达到或超过15亿。

p=1.23e+0.9 r=0.015 n=0

do until p>=1.5e+0.9 p=p*(1+r) n=n+1

loop print n;"年","人口";p

end

问题（1）比较下面两例：

f=1 f=1

n=6 n=6

do until n>5 do

f=f*n f=f*n

n=n+1 n=n+1

loop loop until n>5

文档

or (y

实用标准

print f print f

end end

（2）凡是用do until循环可以解决的问题，全部可用do while解决，只需把“<条件>”取成do while p<1.5e+0.9 p=p*(1+r) n=n+1

loop print n;"年","人口";p

end

四、循环的嵌套

一个循环体内包含另一个循环

“<反条件>” p=1.23e+0.9 r=0.015 n=0

找出100-200间的全部素数。 for n=101 to 200 step 2 k=int(SQR(n))

i=2 f=0 while i<=k and f =

0 if n mod i=0 then f=1 else i=i+1

wend if f=0 then print n, next n

end

例打印乘法九九表

for i=1 to 9 for j=1 to 9

p = i*j

print p,

next j

print

next i

end 打印表格（P175)

print TAB(5);"|"

for j=1to 9

print tab(j*8);j;

next j

print

for n=1 to 75

print "-";

next n print tab(5);"|";

print

for i=1 to 9

print i;"|";

for j=1 to 9

p=i*j

print TAB(j*8); p;

next j

print

文档

实用标准

next i

for n=1 to 75

print "-";

next n

end

注：1）内外循环不应交叉

2）内外循环的变量名不应相同

Qbasic 教程

第六章 函数与子程序

“模块化程序设计”中的“模块”是指：完成程序全部或部分任务的独立源程序文件。

程序的每一个模块可以是子程序或函数，它是通过执行一系列语句来完成一个特定的操作过程，常称为“过程”。

“执行一个过程”——调用一个子程序或函数；

一、自定义函数

QBASIC函数：

①标准函数

②自定义函数

③外部函数

1、单行自定义（DEF）函数

语句函数——用一个语句定义一个函数

(1). 一般格式；

DEF fn<名字>(<参数>)=<表达式>

文档

实用标准

例1. 已知圆的半径r，求圆的面积：S=πr

DEF fns(r)=3.14159*r*r

PRINT fns(3)

END

例2．DEF fns$=”this is a string”

PRINT fns$

例3. 求以下公式：

2

DEF fnc(a,b)=SQR(a*a+b*b)

Print fnc(3,4)

(2).说明

 函数名由两部分组成

fn s

自定义函数标志(fn)，用户定义名（一个字母s）；

 参数可有多个，但调用时的参数（实参）与定义时的

参数（形参）要一致。

用多行语句来定义一个函数。

2、多行自定义（DEF）函数

(1)、一般格式

DEF fn<名字>(<参数>)

......

fn<名字>=<表达式>

END DEF

例4、定义函数f(n)=1+2+...+n

DEF fns(n)

S=0

FOR i=1 to n

S=S+i

Next i

fns=S

END DEF

For n=1 to 100

Print fns(n)

文档 实用标准

NEXT n

END

(2)、说明

（i）形式参数——定义函数的自变量

实际参数——调用函数时的参数。

（ii）函数先定义后使用，即习惯把DEF语句

放在程序的开头。

二、块内子程序

1、gosub-return 语句

子程序定义：

<标号或行号>：

......

return

子程序调用：

GOSUB <标号或行号>

例5：求4！+5！+6！

S=0

n=4: gosub f：s=s+p

n=5: gosub f：s=s+p

n=6: gosub f：s=s+p

print “4!+5!+6!=”;s

end

f: p=1

for i=1 to n

p=p*i

next i

return

2、on gosub-return 语句

(1).一般格式

子程序定义:

<标号>:

......

return

子程序调用:

ON <表达式> gosub <子程1>,<子程2>,…,<子程n>

例：“小学生算术练习”——轮流出一个二位数和一个一位数的加法、减法和乘法的题目，共出十题，每题 10分。

文档 实用标准

RANDOMIZE

for i=1 to 10

a=int(90*RND)+10

b=int(9*RND)+1

p=i mod 3 + 1

ON p GOSOB a1,a2,a3

Next i

Print "n=";n*10

END

a1: print a;"+";b;"=";

input c

if c=a+b then n=n+1

return

a2: print a;"-";b;"=";

input c

If c=a-b then n=n+1

Return

a3: print a;"*";b;"="

Input c

If c=a*b then n=n+1

Return.

(2)、说明：

<表达式>的值不是整数时，按四舍五入处理,值为0或大于n则不起作用,值为负时系统给出错误信息——“不正确的函数调用”。

3、ON KEY(n) GOSUB-RETURN 语句

(1)、调用格式

ON KEY(n) GOSUB <标号>

其中n是数值表达式，代表一个“陷阱键”。n的值与 设定键的对应关系如下：

n值

键名

1~10

11

方向键↑

12

方向键←

13

方向键→

14

方向键↓

功能键F1~F10

2

22例: 求和式：S=1+2+...+n n=100000

文档 实用标准

ON KEY(2) GOSUB pri

KEY(2) ON

S=0

For i=1 to 100000

S=S+i*i

NEXT i

pring “s=”;s

end

pri:print “now swm is”;s,”I=”;i

return

(2).说明

设置陷阱：ON key(n) GOSUB <标号>

打开陷阱：KEY (n) on

关闭陷阱：KEY (n) off

三、独立模块的子程序

1、建立子程序

格式：SUB <子程序名>[(<参数表>)]

………

END SUB

2、子程序的调用

(1).格式

………

Call <子程序名>[(<参数表>)]

或 <子程序名> <参数表>

例：SUB stars(n)

for i=1 to n

PRINT “*”;

Next i

Print

END SUB

_________________________

DECLARE SUB Stars(n)

Call Stars(30)

Call Stars(18)

End

(2). 说明

DECLARE SUB <子程序名>[(<参数表>)]

i）DECLARE 为外部子程序说明语句，主程序调用多少个子程序，就有多少个DECLARE语句；

ii)Call语句的“Call”可以省写，参数的括弧也

可不写；

文档 实用标准

如： Call stars(30)

可写成: stars 30

3、参数传递

Call stars (30)

......

SUB stars (n)

(2).地址传递方式

a=30

Call stars(a)

......

SUB stars(n)

例：求4!+5!+6!+7!

(1).值传递方式

子程序：SUB Fact(n,f)

f=1

for i=1 to n

f=f*i

next i

END SUB

主程序：DECLARE SUB Fact(n,f)

for i=4 to 7

Call Fact(i,f)

S=S+f

Next i

Print “s=”;S

End

注：地址传递方式是当实际参数为变量时发生，它将可能会改变原变量的值，若实际参数是变量时，又不想用地址传递（即用值传递方式）则可把变量用括号括起来。

例：求两个整数的最大公约数和最小公倍数。(P208) 最小公倍数=(m*n)/最大公约数

求最大公约数子程序：

SUB HCF(m,n,h)

IF m

r=m MOD n

DO WHILE r<>0

m=n

n=r

文档 实用标准

r=m MOD n

LOOP

h=n

END SUB

求最小公倍数子程序:

SUB LCM(m,n,h)

h=m*n/h

END SUB

主程序：

DECLARE SUB HCF(m!,n!,h!)

DECLARE SUB LCM(m!,n!,h!)

INPUT "m,n=";m,n

CALL HCF(m,n,h)

PRINT "最大公约数为：";h

CALL LCM(m,n,h)

PRINT "最小公倍数为：";h

END

说明：程序在执行时，结果不正确；其原因是CALL HCF语句调用时修改了m和n的值，以至使CALL LCM运行不

正确。因此，CALL HCF语句应为：

CALL HCF((m),(n),h)

例：验证哥德巴赫猜想：一个不小于6的偶数可以表示为两个素数之和。(P209)

算法： n=10

n1 n2

2(T) 8(F)

3(T) 7(T)

n=16

n1 n2

2(T) 14(F)

3(T) 13(T)

四、模块化的函数

1、建立一个函数

文档 实用标准

FUNCTION <函数名>(<形参表>)

......

LET <函数名>=<表达式>

END FUWSTION

2、函数的调用

与标准函数相同，只是在主程序开头加上 DECLARE FUNCTION <函数名>(<参数表>)，无参数函数也要写上两个括号( )；

例：求4到7的阶乘之和

FUNCTION Fact(n)

f=1

for i=1 to n

f=f*i

NEXT I

Fact=f

END FUNCTION

__________

DECLARE FUNCTION Fact(n)

S=0

For i=4 to 7

S=S+Fact(i)

Next i

Print "S=";S

End

注意函数的参数传递

3、STATIC选项（静态）

外部函数中使用的变量，在函数调用结束后将全部被释放，其值不再保留。如要保留函数中的变量，可在建立函数时加写“STATIC”即 FUNTION 函数名(<参数>)

STATIC

五、全局变量与局部变量

1、局部变量

每一个模块（子程序、主程序、函数）中的变量都只在本模块中有效，即是它们的作用域只限于模块，这种变量称为局部变量。

2、全局变量

文档

实用标准

在程序所有模块中都有效的变量,即作用域为整个程序变量称为全局变量。其定义格式为：

COMMON SHARED <变量表>

六、过程的嵌套调用

在一个过程里又调用另一个过程。

七、过程的递归调用

在一个过程里又调用该过程本身；

例如直接调用:

FUNCTION f(x)

C=f(x)

f=2*C

END FUNCTION

又如交叉调用：

FUNCTION f1(x)

……

C=f2(y)

……

f1=2*C

……

END FUNCTION

FUNCTION f2(t)

……

d=f1(a)

……

f2=4/d

……

END FUNCTION

执行的结果造成无终止的自身调用，显然，程序中不应出现这种无终止的调用，而只应是有限次数的、有终止的递归调用。

FONCTION Age(n)

If n=1 then Age=10 else Age=Age(n-1)+2

End FONCTION

主程序: DECLARE FUNCTION Age(n)

Print Age(5)

End

文档

实用标准

FONCTION Fact(n)

If n<=1 then Fact=1 else Fact=n*Fact(n-1)

END FONCTION

Qbasic 教程

第七章 数组

一、概念

例如要求一个班50名学生的平均成绩：

下标变量Si 用数组表示为：S(i)

1、有关说明：

(1).数组与普通变量一样，用来存放数据；

(2).数组中的数据必须是同一类型；

2、数组与循环结合

for i=1 to 50

input s(i)

next i

s=0

for i=1 to 50

s=s+s(i)

next i

print s/50

end

二、数组的建立和引用

1、数组的建立

(1).DIM <数组名>(下标上界)

或DIM <数组名>(上界1，上界2)

说明：

文档 实用标准

 一般情况下，下标值从0开始

如：DIM A(5) 即定义了a(0)、a(1)、…、a(5)；

若要修改下标起始值，可用下面语句：

OPTION BASE N

如：OPTION BASE 1

DIM a(5)

则定义了5个变量a(1)、a(2)、a(3)、a(4)、a(5)；

若数组下标上界不超过10则可不必用DIM定义数组。

(2)DIM <数组名>(n1 to n2)

下标值的范围：-32768～32767





数组名与变量名的定义相同；

允许在同一模块中，数组名与变量名同名，它们不代表同一对象；

DIM a(100)

A=3

 DIM语句中的上界可是常数或变量、表达式；

如： DIM a(10)

DIM a(n)

DIM a(n+2)

但变量值一定先赋值

 定义全局数组

DIM SHARED a(50)

 用DIM 语句可定义变量类型

DIM <变量> AS <类型>

其中<类型>是：INTEGER(整型)、LONG（长整型）、SINGLE（单精度型）、DOUBLE（双精度型）、STRING（字符串型);

但<变量>不能加类型定义符，如下写法是错误的：

文档 实用标准

DIM A& AS LONG

在用DIM语句定义了一个变量类型后，该变量名后面加上类型定义符或不加类型定义符都是合法的，且代表同一个对象。例如：

DIM a AS LONG

a=123456

a&=77777

print a , a&

END

运行结果如下：

77777 77777

但程序中不能再用a作其它类型的变量名。

2、数组的引用









引用数组元素（下标变量），即在括弧中指定下标；

在程序中，数组与其它变量的使用相同，即可参与运算，可以被赋值；

在引用数组时，数组名、类型、维数以及下标的范围，应与定义时一致；

同一模块中，数组和变量可同名，但数组与数组不能同名；

下列情况是不允许的：

DIM a(10,10) 或 DIM a(50,50)

DIM a(15) DIM a%(15)

3、静态数组和动态数组

静态数组——建立数组后，其维数和大小不能改变；

动态数组——在程序执行教程中，可改变大小或者被释放；

QBASIC规定：在DIM 语句中用常数指定下、上界的数组为静态数组，如果用变量（或表达式）指定上下界的数组为动态数组。

(1).重定义语句

REDIM <数组名>(上界)

文档 实用标准

如：DIM S（20），X（20，30）

……

√REDIM S(50)

×REDIM X(30)

只改变同名数组的大小，但不能改变维数；

(2).释放数组语句

ERASE <数组名>

释放数组所占据的空间；

例1：释放和重定义数组：

n=10

DIM a(n)

FOR i=1 TO n

a(i)=i

PRINT a(i);

NEXT i

PRINT

ERASE a

REDIM a(16)

FOR i=1 TO 16

a(i)=i

PRINT a(i);

NEXT i

PRINT

END

说明：

.如果不使用ERASE语句释放数组，不能用DIM语句对同一个数组两次定义；

.用REDIM可改变数组的大小，而不必先用ERASE语句释放数组；

.无论用DIM或REDIM定义一个与原来数组同名的数组，可以改变数组中各维的上下界，而不能改变数组的维数。

(3).数组上、下界函数

LBOUND(<数组名>,<维数>)——下界函数

UBOUND(<数组名>,<维数>)——上界函数

例：

INPUT n,m

DIM a(n TO m)

FOR i=LBOUND(a,1) TO UBOUND(a,1)

文档 实用标准

a(i)=i

PRINT a(i);

NEXT i

PRINT

DIM b(10,15)

FOR i=1 TO UBOUND(b,1)

FOR j=1 TO UBOUND(b,2)

b(i,j)=10*i+j

PRINT b(i,j);

NEXT j

NEXT i

PRINT

END

三、数组的应用

1、一维数组

只有一个下标的数组。

(1).数据统计

例: 输入n个学生的成绩，求平均成绩。

OPTION BASE 1

INPUT "number of students is:";n

DIM s(n)

FOR i=1 to n

INPUT s(i)

sum=sum+s(i)

NEXT i

aver=sum/n

PRINT "aver=";aver

END

例: 输入n个学生的学号和成绩，要求输出平均成绩和高于平均分的学生学号及成绩。

OPTION BASE 1

INPUT "number of students is:";n

DIM num(n),score(n)

FOR i=1 to n

INPUT num(i),score(n)

sum=sum+score(i)

NEXT i

aver=sum/n

PRINT

PRINT "平均分是:";aver

文档 实用标准

PRINT

PRINT "高于平均分的学生有："

PRINT "学号","成绩"

FOR i=1 TO n

IF score(i)>aver THEN PRINT num(i),score(i)

NEXT i

END

(2)、数据排序

例：从键盘输入10个数。要求按由小到大的顺序将它们打印出来；

比较交换法

a1、a2、a3、a4、a5、a6、a7、a8、a9、a10

第一次:a1与a2、a3、a4、a5、a6、a7、a8、a9、a10比较

第二次:a2与a3、a4、a5、a6、a7、a8、a9、a10比较

第三次:a3与a4、a5、a6、a7、a8、a9、a10比较

第四次:a4与a5、a6、a7、a8、a9、a10比较

第五次:a5与a6、a7、a8、a9、a10比较

第六次:a6与a7、a8、a9、a10比较

第七次:a7与a8、a9、a10比较

第八次:a8与a9、a10比较

第九次:a9与a10比较

OPTION BASE 1

DIM a(10)

FOR i=1 TO 10

INPUT a(i)

NEXT i

FOR i=1 TO 9

FOR j=i+1 TO 10

if a(i)>a(j) THEN SWAP a(i),a(j)

NEXT j

NEXT i

FOR i=1 TO 10

PRINT a(i);

NEXT i

END

6.

选择法

OPTION BASE 1

DIM a(10)

FOR i=1 TO 10

INPUT a(i)

文档 实用标准

NEXT i

FOR i=1 TO 9

k=i

FOR j=i+1 TO 10

if a(k)>a(j) THEN k=j

NEXT j

if k<>i THEN SWAP a(k),a(i)

NEXT i

FOR i=1 TO 10

PRINT a(i);

NEXT i

END

(3).数据查找（检索）

例: 设有n个学生，每个学生的数据包括：学号、姓名、性别、年龄、平均分等；要求输入一个学号，程序输出该学生的所有数据。

 顺序查找法

假设：num(i)为学生学号，nam$(i)为姓名，num为查找对象。

SUB Search

FOR i=1 TO n

IF num=num(i) THEN

PRINT "num";num(i)

PRINT "name";nam$(i)

EXIT FOR

END IF

NEXT i

IF i>n THEN num ;"not found"

END SUB

 折半查找法（二分查找法）；

对按一定规律（由小到大或由大到小）排列好的数据进行检索；假设：num(i)为按从小到大排列的学生学号，nam$(i)为姓名，num为查找对象。

SUB Search

top=1

bot=n

find=0

DO

mid=INT((top+bot)/2)

IF num=num(mid) THEN

PRINT "num";num(i)

PRINT "name";nam$(i)

find=1

ELSEIF num

bot=mid-1

ELSEIF num>num(mid) THEN

top=mid+1

文档 实用标准

END IF

LOOP UNTIL ((bot

IF find=0 THEN num ;"not found"

END SUB

2、二维数组

矩阵的表示：

aij——双下标变量 a(i,j)→二维数组

数组定义：DIM A(m,n)

a(i,j)→b(j,i)

例: 输出魔阵——每行、每列和对角线之和均相等。

排列规律：

(1)、先将“1”放在第一行当中；

(2)、从“2”开始到N*N止，各数中每一个数存放的行比前一个数的行数减1，列数加1；

(3)、如果上一个数的行数为1，则下一个数的行数为n(最后一行)；

(4)、当上一个数的列数为n时，下一个数的列数为1，行数减1；

(5)、如下一个数应放的位置已被其它数占据，则下一个数放在上一个数的下面。

四、过程中的数组参数

1、作为下标变量

子程序定义：SUB A(x,y)

END SUB

……调用:DIM T(10)……

2、作为数组：

定义 :

Call A(t(1),t(2))文档 实用标准

调用 CALL B(p(),g())

将主程序

Qbasic 教程

第八章 字符串处理

字符串——字符系列

一、字符串常量

1、显式常量







用双引号括起来的一串字符（不包括双引号）；

空格也是一个字符，没有字符的字符串叫空串"";

数值常量与字符串常量的分别。

123表示一个数值常量，而"123"表示一个字符串常量

2、符号常量

用一个符号名（字母）代表一个字符串常量；

如：CONST c="Beijing"

CONST c$="Beijing"

注意：字串常量与字串变量的区别，字串常量是不能改变的；

CONST c$="Shanghai"不正确。

二、字符串变量

1、变长字符串变量

长度在0-32767范围；

（1）定义方法

①变量名后加类型说明符“$”；

文档 实用标准

②用DEFSTR语句；

如；DEFSTR a,b 以a和b开头的变量均为字串；

③用DIM语句；

格式：DIM <变量名> AS STRING

变量名不应包含类型说明符；

（2）说明

①变量名不分大小写；

②变量名应避开关键字；

2、定长字符串变量

格式；DIM <变量名> AS STRING*n；

n为字符串长度；

如：DIM NAM AS STRING*20

DIM A AS STRING*10，B AS STRING *20

在对定长字串变量赋值时，如果实际长度小于定义个数，则字符一律靠左存放，右端补空格；

三、字符串变量的赋值

1、用LET语句

[LET] <变量名>=<字符串>

例 用LET语句给字符串变量赋值。

DIM a AS STRING

LET a="This is a BASIC program"

PRINT a

END

2、用INPUT语句

输入时字符串用引号或不用引号的区别：

①如果字符串首尾有空格，不用引号时，空格将被舍弃；

②如果输入的字符串有逗号，则一定要有引号。

文档 实用标准

3、用LINE INPUT 语句

行输入语句：输入一行以回车结束，中间可以是任何字符，不显示"?"号；

例 用LINE INPUT语句给字符串变量赋值。

PRINT "enter 2 lines:"

LINE INPUT a$

LINE INPUT b$

PRINT a$,b$

END

4、用READ/DATA语句

READ语句中可包含数值变量和字符串变量，而DATA语句中只能相应放置数值常量和字符常量。

例 用READ/DATA语句给字符串变量赋值。

DEFSTR a

READ a1,a2,a3,s1,s2,s3

PRINT a1,s1

PRINT a2,s2

PRINT a3,s3

DATA "Basic","Fortran","C",98,87,67

END

四、字符串的连接

两个字符串的合并，运算符为“+”

例 字符串连接。

a$="China"

b$="The People's Republic of "

c$="I love"

d$=b$+a$

PRINT d$

PRINT c$+a$

END

五、字符串的比较

1、字符比较规则

用字符的ASCⅡ代码的大小进行比较（见课本附表P353-355）,常用的字符顺序如下（由小到大）：

文档 实用标准

空格 ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D

E F G H I J K L M N O P Q R S T U V W X Y Z [ ] ^ _ 、a b c d e f g h i j k

l m n o p q r s t u v w x y z { | } ~ 中文字。

2、字符串比较的规则

两个字串从左到右逐个字符比较。

"BASIC"="BASIC 但 " BASIC"< >"BASIC"

3、字符关系表达式

两字符串的比较结果（真假值）；

六种关系运算符：= , <, <> ,> ,<=, >= 。

六、字符串数组

与数值数组的定义相类似。

七、字符串函数

八、字符串处理

Qbasic 教程

第九章 屏幕控制和作图

一、显示模式

显示模式：信息在屏幕上的显示方式。

1、文本模式

屏幕上显示的最小单位为一个字符，这种模式下的用户不能用线条来绘制各种图形只能用字符组合成粗糙的图案。

文档 实用标准

在这种模式下屏幕分为25行，每行80个字符。

屏幕左上角为原点坐标,坐标为(1,1)。

2、图形模式

屏幕上显示的最小单位是显示器的象素点，可用基本的几何图形，如直线、方框、圆等绘制出复杂而精美的图画。

这种模式在VGA以上显示器的显示范围为640×480点，原点坐标（0，0）在屏幕左上角。

二、屏幕控制语句

1、LOCATE语句

格式：LOCATE [<行>]，[<列>]

功能：确定光标在屏幕上的坐标位置。

说明：取值范围：行1-25,列1-80

例如：

LOCATE 10，10

PRINT “QBASIC”

LOCATE 15，10

PRINT “再见”

2、WIDTH语句（设置输出的行宽）

格式：WIDTH <宽度值>

功能：确定屏幕输出宽度。

其中：宽度的有效值是40或80

例如： WIDTH 40 字符是扁形

WIDTH 80 字符是长形

3、CLS语句

格式：CLS

功能：清除屏幕信息,确定光标位置：在文本方式下，将光标置于屏幕的左上角，在图形方式下，将光标置于屏幕的中心。

4、CSRLIN和POS函数

格式：CSRLIN

POS（n）

功能：CSRLIN 记录光标所在的行位置。

POS 记录光标所在的列位置。

例：

文档 实用标准

LOCATE 5，7

A = CSRLIN

B = POS(0)

LOCATE 10，15

PRINT“ABCD”

PRINT A，B

5、SCREEN语句

格式：SCREEN [<模式>]，[<色彩>]

功能：设置屏幕的显示方式(文本或图形)

其中：“模式”代表显示器的工作方式

“色彩”是一个数值表达式，只有在模式为0、1和2时它才有效。

显示模式：0-13（除5和6外）有12种图形模式可供使用。（参见P296表11.3）

色彩：0，1，2，三种（参见P297表11.5）

例：SCREEN 0，0 模式为0，彩色为0

表示屏幕工作在黑白字符模式下。

6、COLOR语句

功能：设置屏幕显示的颜色

（1）、设置文本方式的屏幕显示颜色

格式：COLOR <前景色>，<背景色>

<前景色>:定义屏幕上所显示的字符颜色

数值范围是0-31，如P298表11.6表示0-15 共16种颜色，16-31是在0-15基础上加16为闪烁方式。

<背景色>：定义屏幕的底色，数值范围为0-7.

（2）、 设置模式1的屏幕显示颜色

格式：COLOR <背景色>，<配色器号>

<配色器号>：0和1号配色器

它们有四种颜色,见P299表11.8

例如: COLOR 2，1 背景绿色1号配色器

文档 实用标准

（3）、设置图形模式12-13的显示颜色

格式：COLOR [<前景色>]

例：显示模式12的16种前景颜色。

CLS

SCREEN 12

FOR I=0 TO 15

COLOR I

PRINT "*** Current Color is " I;"***"

NEXT I

END

例:动态显示文字。

三、作图语句

1、画点

（1）、PSET（x，y）[，<色彩>]

功能：在屏幕上指定的坐标位置画一个点

说明：（x，y）为坐标点，如屏幕模式为12时，x为0-639，y为0-479

<色彩>：画点的颜色,缺省时用前景色。

例：画一点。

SCREEN 1，0

COLOR 7，0

PSET（160，100）

例：画一连线。

SCREEN 1，0

FOR i = 1 TO 300

PSET（i，100），2

NEXT

例：从（1，1）到（199，199）画一斜线。

CLS

SCREEN 1，0

FOR i = 1 TO 199

文档