qbasic语言程序设计 64位&32位

qbasic语言程序设计是微软开发的语言编程软件，是BASIC语言的变种。边肖带来了它的开发工具。虽然不能编译成各种独立的可执行文件，但是可以在集成开发魂晶中将源代码编译成中间代码，然后在IDE中对中间代码进行解释和执行。Qbasic旨在取代GW-BASIC，并集成在MS-DOS 5.0及其更高版本中。

Qbasic作为一种高级计算机语言，简单、医学、易用，受到广大计算机用户的青睐。它的表达方式类似于数学中的表达方式，它的语句类似于自然语言中的语句，对于初学者来说非常容易掌握和引入。具有良好的可视化编辑界面和强大的面向对象编程能力，不仅可以使用户方便、轻松地编写具有任意功能的应用程序，还能更好地适应网络时代的到来。对于想学编程的用户或者想让孩子提前取消编程的家长，可以下载一个qbasic来试试。

qbasic使用说明

qbasic是32位程序，但边肖也准备了64位环境内容，用户可以根据自己的系统选择使用。

qbasic语法

扩展了变量和常量的类型。

变量名长度：40个字符

增加了长整型和定长字符变量。

您可以定义数字常量、字符串常量

提供了新的选择结构

条件语句

如果有条件，则语句组1否则语句组2

多分支语句选择

流通结构得到改善。

添加以下两个循环语句：

[WHILE循环]

WHILE条件

循环体

行

[循环播放]

防御命令(Defense Order)

WHILE条件循环

环

子程序和函数作为独立的模块。

不需要行号。

代码示例(赋值、求和运算，并显示结果)

设A=10

设B=20

设C=A B

打印C

写程序的时候为了节省时间，不用写LET；而且，PRINT直接用“？”写程序的时候。替换。非常重要的一点是，参加比赛时，节目的第一线必须是CLS！

qbasic快捷键

F5:运行程序，继续运行中断的程序；

Ctrl Break:中断正在运行的程序；

Shift F5:从第一条语句重新运行程序；

F4:程序停止运行时，查看运行结果画面，再次按F4切换回代码画面；

F1:寻求帮助。

F2:切换主程序或子功能。

F9:添加断点。

Alt回车：全屏。

Shift F5:程序终止时从头重新执行。

Ctrl Insert:将选中的文本复制到剪贴板(Ctrl C无效)

Shift Insert:将文本粘贴到剪贴板中。(Ctrl V无效)

实例介绍

边肖带来了一些关于qbasic的例子，用户可以查看和学习。

示例1:

市场上的香菇一公斤7.5元。写个程序，从键盘输入重量，电脑会自动算出总价。

输入X

总和=7.5*X

打印总和

结束

示例2:

卖西瓜的，1.4元的每公斤不到10kg，0.7元的每公斤超过10kg。输入购买多少公斤(必须是自然数)和出口多少。

输入X

如果XFIX(X)那么？'否'转到1

如果X10，则总和=10*1.4 (X-10)*0.7否则总和=X*1.4

打印总和

结束

示例3:

输入10个字母，比较大小，输出最大的一个。

DIM A$(10)

对于I=1到10

输入一美元(I)

接下来我

乙$=甲$(1)

对于I=2到10

如果B$A$(I)那么B$=A$(I)

接下来我

打印B$

结束

示例4:

一个游戏：

CLS的清晰屏幕

定位5，38英尺到5，38英尺。

打印“游戏”显示

将16，34 '定位到16，34

打印“回车”显示

防御命令(Defense Order)

INKEY$=' ' '暂停时循环。

尺寸名称1美元，名称2美元，HP1，HP2，温度美元

CLS的清晰屏幕

将8 '定位到第8行。

打印“输入第一个玩家的名字”；输入玩家1的名字。

输入名称1美元

打印“输入第二名玩家的姓名”；输入玩家2的名字。

输入名称2美元

随机化计时器

HP1=INT(RND * 50) 50 '随机确定玩家1的HP。

HP2=INT(RND * 50) 50 '随机确定玩家2的HP。

Printstring $ (12，' ')name1 $ '的hp是' str $ (hp1 ')显示玩家1的HP。

打印字符串$ (12，' ')name 2 $ '的hp是' str $ (hp2 ' '显示玩家2的HP。

打印'按任意键继续'

防御命令(Defense Order)

INKEY$=' ' '暂停时循环。

DIM行，Text$，攻击，I

Text$='n '

Row=0

CLS

“DO”循环

打印

PRINT name 1 $ ' s HP:' STRING $(16-LEN(name 1 $)，' ')；

打印字符串$(INT(HP1/2)，2)

打印

打印姓名2 $ '的HP:' STRING $(16-LEN(姓名2 $)，' ')；

打印字符串$(INT(HP2/2)，2)'以上这几句是用图形来表示大功率(高Power)高压(高Pressure)高性能(高Performance)高聚物(高分子聚合物)

对于I=1到四

打印

'下一个'显示空行

行=第一行'回合数一

打印字符串$(11，' ')STR$(Row)' '

打印字符串$(12，' ')Name1$ '现在有惠普公司STR美元(HP1)

打印字符串$(12，' ')Name2$ '现在有惠普' STR$(HP2)'以上几句显示回合数和大功率(高Power)高压(高Pressure)高性能(高Performance)高聚物(高分子聚合物)数

防御命令(国防令)

INKEY$=' ' '时循环暂停

' Attack=INT(RND * 20)'随机决定攻击点数

Text$=STRING$(12，' ')Name1$

Text $=Text $ ' Attack ' name 2 $ ' ' STR $(Attack)'先想好要显示的文字

HP2=HP2 -攻击'用玩家2的大功率(高Power)高压(高Pressure)高性能(高Performance)高聚物(高分子聚合物)减去攻击点数

打印文本$ '显示文字

防御命令(国防令)

INKEY$=' ' '时循环暂停

' Attack=INT(RND * 20)'随机决定攻击点数

Text$=STRING$(12，' ')Name2$

Text $=Text $ ' Attack ' name 1 $ ' ' STR $(Attack)'先想好要显示的文字

HP1=HP1 -攻击'用玩家一的大功率(高Power)高压(高Pressure)高性能(高Performance)高聚物(高分子聚合物)减去攻击点数

打印文本$ '显示文字

如果HP1=0或HP2=0，则退出防御命令(Defense Order)如果玩家一或2的大功率(高Power)高压(高Pressure)高性能(高Performance)高聚物(高分子聚合物)小于等于0就退出循环

防御命令(国防令)

INKEY$=' ' '时循环暂停

CLS

环

如果HP1=0，则打印字符串$(12，' ')Name2$ ' win '

如果HP2=0，则打印字符串$(12，' ')Name1$ ' win '

如果HP1=0，HP2=0，则打印字符串$(12，' ')'双赢！'