QB程序设计入门-基本语句

说明下面的语句格式中如果加[]表示方括号中内容有时可以不写.

1.注释语句

格式:REM <字符串> 或者 '<字符串>

注释语句的功能是对程序进行注释.有些程序写的比较复杂,不容易读懂,需要进行注释.注释语句在执行的时候不被执行,系统会自动跳过这些语句.

[例子]在QB中输入以下程序：

CLS
DEFINT A '定义A开头的变量是整型
DEFSNG B-C '定义以B，C开头的变量是单精度
DEFSTR D '定义以D开头的变量是字符串
A = 1.001 '给变量A赋值1.001
AB = 2.002 '给AB赋值2.002
B = 1.001
C = 1.001
D = "1.001"
A$ = "1.0000001"
PRINT A '打印A的值
PRINT AB
PRINT B
PRINT C
PRINT D
PRINT A$
END

开头第2,3,4,5,6,11行'后面的句子就是注释,是解释程序的,不会执行.注意:REM必须单独放在一行,如果用'可以单独一行也可以放在程序后面如上面的程序.

2.赋值语句

格式:[LET] 变量名=表达式

LET可以省略即 LET A = 1 和 A = 1是等效的.

这条语句表示把表达式的值赋予变量名,比如A = B * 4,表示把B同4相乘的值赋予变量A.这里的等号与数学中的等号不同.在比如A = A + 1表示给A的值加1后再赋给A,比如原来A=1,执行该语句后A=2了.

[例子]在QB中输入以下程序：

A = 1
B = 2
C = 3
D = A + B + C
F$ = "####"
G$ = "HHHH"
G$ = F$ + G$
PRINT D
PRINT G$

按F5计算机输出的结果是:

 6
####HHHH
　

3.结束语句

格式:END

程序结束时,写上END系统关闭所有打开的文件,程序结束运行,哪怕后面还有程序.

4.清屏

格式:CLS

清除屏幕上的字符和图形.

5.INPUT语句

这个语句和赋值语句类似,但如果想让程序在运行过程中接受用户输入的值.

格式:INPUT[提示信息]{;/,}<变量名>

提示信息是计算机在要输入值的时候显示的提示,如果后面用;,则系统在提示信息后加一个?,如果用,则没有?.变量名是把输入的信息赋值给这个变量.

[例子]在QB中输入以下程序：

INPUT "NAME,AGE,SEX ", NAME$, AGE$, SEX$
PRINT "YOUR NAME IS " + NAME$
PRINT "YOUR AGE IS " + AGE$
PRINT "YOU ARE " + SEX$
END

按F5执行后系统出现提示

NAME,AGE,SEX

你在后面输入:Zhao,20,Male(回车)

系统输出结果:

YOUR NAME IS Zhao
YOUR AGE IS 20
YOU ARE Male
　

[例子]在QB中输入以下程序：

PI = 3.1415926#
INPUT "圆的半径:", R
S = PI * R * R
PRINT S
END

按F5运行后系统要求输入圆的半径,输入半径后按回车,程序输出圆的周长.

6.PRINT语句

文章前面列举的大部分程序都用到了PRINT语句.它的作用是将文本信息显示在屏幕上.

格式:PRINT [输出值1]{,/;}[输出值2]{,/;}[输出值3]……

输出值可以是字符串,变量名或者数学表达式等.

如果输出值间的间隔用逗号分开,QB会将每行平均分成5部分,每部分输出一个值,如果输出的值超过5个,QB会在下一行显示.

如果输出值间的间隔用分号分开,QB会把每个输出值一个挨着一个输出,如果输出值是数字,数字前后会分别加一个空格.

[例子]在QB中输入以下程序：

PRINT "a", "b", "c", "d", "e", "f", "g"
PRINT "a"; "b"; "c"; "d"; "e"; 10; "f"; "g";

按F5运行程序计算机输出:

如果PRINT语句后最后一个输出值后加上逗号或者分号,表明输出完后不换行,下一条PRINT语句接着这行输出.具体是什么样的效果,可以自己编段程序试一试.

7.GOTO语句

无条件转向语句,当程序执行到这时,将无条件转到GOTO指向的语句,将不在按顺序往下执行.

格式:GOTO 行标号/行号

我们来设计一个程序,这个程序要求输入一个数字,输出这个数字,然后继续要求输入数字,然后和前一个数字相加在输出,然后在要求输入一个数字,再和前一个数字相加并输出,就这样循环下去,有点象计算器.

[例子]在QB中输入以下程序：

CLS
S = 0 '计数器归零
START: INPUT A '要求输入一个数字
S = S + A '给计数器上A
PRINT "SUM="; S '输出计数器的值
GOTO START '无条件返回START行

这个程序将会无终止地运行下去,如果要停止程序按Ctrl+Break或者Ctrl+C强行终止.

8.IF…THEN…语句

判断IF后的条件是否为真,如果为真则执行THEN后的语句,然后在往下执行,如果IF后的条件为假就跳过THEN后的语句直接执行下一条语句.

上面将GOTO语句时的那个例子无法终止,我们可以给它改进一下.当输入的数字为0时程序就终止.

[例子]在QB中输入以下程序：

CLS
S = 0
START: INPUT A
S = S + A
PRINT "SUM="; S
IF A <> 0 THEN GOTO START '判断A的值,如果A=0则执行下一句,如果A不等于0则无条件转向START
END
按F5运行程序后,如果输入数字0程序就终止了

9.IF…THEN…ELSE…END IF语句

判断IF后的条件,如果为真执行THEN后语句,然后执行END IF后的语句;如果为假执行ELSE后语句,然后执行END IF 后的语句.

设计一个程序,和上面的程序类似,只是当计数器的值大于100时,将计数器清零,然后显示SUM>100.

[例子]在QB中输入以下程序：

CLS
S = 0
START: INPUT A
S = S + A
PRINT "SUM="; S
IF S > 100 THEN
S = 0
PRINT "SUM>100"
GOTO START
ELSE
IF A <> 0 THEN GOTO START
END IF
END

QB中最常用的几条语句已经介绍完了,其他的语句等到以后用时在介绍.