Qbasic问题

一、 Qbasic系统的安装与启动

1、Qbasic的安装与启动

1）启动

说明：(1)QBASIC.exe是Qbasic解释程序的主体（执行文件），由它实现Qbasic的解释执行功能，并提供一个文本编辑器。

(2)QBAIC.hlp是联机（在线）帮助文件，它向用户提供“帮助信息”，说明Qbasic语言的语法规则以及 Qbasic编辑环境的使用方法。这两个文件必须同时存在才可使用。

3)按以下步骤即可启动Qbasic。

方法一：在DOS状态下启动QBASIC

C:\)CD\ucdos

C:\ucdos)QBASIC.exe

方法二：在WINDOWS状态下启动QBASIC

打开C盘中的ucdos文件夹，双击QBASIC.EXE

二、 Qbasic的 *** 作环境

1、qbasic的窗口

启动Qbasic后，屏幕上出现此“Welcome…（欢迎）”的画面（图8—l）。用户有两个选择：

按＿＿＿＿＿＿键进人 Qbsic的联机帮助系统，它将告诉你怎样使用 Qbasic。

按＿＿＿＿＿＿键清屏，进人 Qbasic的工作窗口，如图 8—2所示。窗口分上、下两部分。

（1）上部窗口（view）：在屏幕上部是一个较大的窗口，功能：＿＿＿＿＿＿＿＿＿＿＿

（2）下部窗口（Immediate）：功能：＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

（3）按＿＿＿＿＿＿＿可以实现活动窗口转换。

2、删宇符

（1）用“Delete”键或小键盘的“Del’’键删除光标所在位置的字符。

（2）按“Back Space”键删除光标前面的一个字符。

3、删一行

（1）用 Ctrl＋Y（即一手按 Ctrl键，一手按 Y键）可删除光标所在的一行。

4、将光标移到欲删除的一行的开头，按住Shift键，连续按→键直到该行被反白的条框所覆盖，此时，按Del键或空格键，则反白框所覆盖的部分被删除。 如果开始时光标位置不在一行的开头，而在一行的中间，则按Shift和→键后反白条框只覆盖从光标开始向右的部分，被删除的也是这部分字符。

5、删多行

将光标移到欲删除的部分首行的行首。按Shift和↓键反白条框覆盖光标所在行和下一行，连续按此键，则覆盖下面的多行。再按Del键或空格键，则反白条框所覆盖的多行全被删除。这种利用反白条框界定程序中某部分的方法称为“选定”某一部

三、 Qbasic的观察窗口是一个全屏幕文本编辑器，在其内可以输人、修改或运行一个Qbasic程序，为熟悉Qbasic的工作环境，我们做如下练习。

1、从键盘输入如下程序,把这个程序以“SJ01·BAS”保存到“QB”文件夹。

PLAY”mb t120 o4 L8”

PLAY”o4 c8 c4 d8 f4 d4 c8 d8 f8 d8 c8 dl6 c16 o3 a8 g8”

PLAY”o3 f8 f4 d8 c8 o4 c8 o3 a8 g8 a2”

PLAY”o4 c8 c4 d8 f4 d4 c8 d8 f8 d8 c3 o3 a8 g8”

PLAY”o3 f8 f8 f8 d8 c8 o4 c8 o3 a8 gf3”

ENd

2、运行Qbasic程序

按 运行上述程序，演奏一段《我心爱的小马车》乐曲。在Qbasic环境下可以采用下面三种方法之一运行一个程序。

1）从菜单条中用鼠标或键盘选择“Run”菜单中的“Start”命令。

用键盘选择的方法是：

①先按Aft键，“激活”菜单栏。 ②按→键，使亮条移动至“Run”栏。

③按回车键，拉出“RUN’栏的下拉菜单。④选Start选项，按回车。

3、修改程序（删除行）

⑴把光标移到SJ01·BAS第四行语句处，按（Ctrl）十y），将第四行语句删除掉，同时第五行语句被提升到第四行语句处，Qbasic每删除一行或一字，都把其后的内容向前提升。我们在原处再按一次（Ctrl+＜Y＞，刚被提升到第四行的内容也被删除。

⑵修改程序（插入行）

把光标移到第一行，按（End）键把光标移到行尾，按回车键。我们观察到在第2行处增加了一个空行。同时，原第二行及以后各行相应后移。在这一行我们输人

FOR I＝1 TO 2

把光标移到最后一行“END”的“E”下边按＜Ctrl>+＜N＞，这时在“End”行前插人一个空白行，在这行我们输人：NEXT I ③再次运行程序

再次按（Shift）＋（F5）或＜F5）运行修改过的程序，也可按（F8）观察每一步的运行。

④把程序保存到磁盘上

依次按(Alt)、(F)、(s)键，当出现对话框后在“File name：”后输人文件名（如 callol.bas），回车。

如果按Shift和↑键，则光标所在行和其上一行被覆盖，按Del键或空格键，此部分亦可被删除。

4、从键盘输入如下程序,把这个程序以“SJ02·BAS”保存到“QB”文件夹。(可不做)

看得出你是个新手，我向你简介一下Basic

10 LET A=1

20 LET B=2

30 LET C=A+B

40 PRINT C

50 END

RUN

这样的程序，用GW-Basic或Qbasic来运行，DOS无法解析。GW-Basic,Qbasic都是运行在DOS下的Basic解析器，这类Basic的语句有两种：

1.直接运行指令(语句)

2.非直接运行指令，格式为 [行号] 语句

像上面的 20 Let B=2，20是行号，Let B=2是语句

这个程序是GWBasic程序，你打入带行号的语句时它并不马上运行，而是存在内存中，只有一打入Run时解析器才会按行号来一条一条地运行指令。

但在Qbasic中，行号可省略，运行时按书写顺序运行，为与直接运行语句区分，QBasic和VB中有一个立即运行窗口，在那输入的指令都是马上运行的。

若在Qbasic或VisualBasic6.0中运行上面程序，可以这样写：

首先，可以新建一个标准EXE工程，双击窗体，在Form_Load()间写入下面代码：

Let A=1

Let B=2

Let C=A+B

msgbox c

按F5运行

当然，也可以不建窗体，可这么做：建标准模块，然后进入代码框，打入

sub main()

Let A=1

Let B=2

Let C=A+B

msgbox c

按F5运行

end sub

---