- 软件下载
-
qbasic语言程序设计 编程软件 64位&32位
2022-07-12 16:56:22 ID:2b5fd04
qbasic语言程序设计 编程软件 64位&32位介绍
qbasic语言程序设计是微软开发的一个语言编程软件,有BASIC语言变种而来,小编带来的是其开发工具,虽然不能够编译成各种独立的可执行文件,但是源代码可以在集成开发魂晶中先被编译成中间代码,然后中间代码在IDE中被解释执行。qbasic被设计成用来替代GW-BASIC,并被集成在MS-DOS 5.0及其更高版本。
qbasic作为一种计算机高级语言,具有简单、医学、好用,被广大计算机用户所青睐,其中的表达式和数学中的表达式相似,语句也和自然语言相仿,极容易被初学者掌握和介绍,有好的可视化编辑界面加上强大的面向对象的编程能力及其网上发行和网上查询的功能,不仅能使用户方便轻松的编写出任何功能的应用程序,而且更好的适应了网络时代的到来。对于想要学习编程的用户或者想让孩子提前解除编程的家长,可以下载一个qbasic试试。
变量名长度:40个字符
增加了长整型、定长字符型变量
可定义数值常量、字符串常量
提供了新的选择结构
条件语句
IF <条件> THEN <语句组1> ELSE <语句组2>
多分支语句SELECT
改进了循环结构
增加以下两个循环语句:
【WHILE循环】
WHILE <条件>
<循环体>
WEND
【DO循环】
DO
WHILE <条件> <循环体>
LOOP
子程序和函数作为单独的模块
不需要行号
代码示例(赋值,求和运算,并显示结果)
LET A=10
LET B=20
LET C=A+B
PRINT C
在编写程序时为了节省时间,可以不用写LET;并且,PRINT在编写程序时直接用“?”代替。有一点非常重要,在参加竞赛时,程序第一行必须是CLS!
Ctrl+Break:中断正在运行的程序;
Shift+F5:从第一条语句开始重新运行程序;
F4:当程序中断运行时,查看运行结果屏幕,再按一次F4则切换回代码屏幕;
F1:获得帮助。
F2:切换主程序或SUB、FUNCTION。
F9:增加断点。
Alt+Enter:全屏。
Shift+F5:在程序终止时重新从头执行。
Ctrl+Insert:选定文字后复制到剪切板(Ctrl+C无效)
Shift+Insert:将剪贴板中的文字粘贴。(Ctrl+V无效)
范例1:
菜场上一公斤香菇是7.5元,编一个程序,从键盘上输入重量,计算机自动算出其总价
INPUT X
SUM=7.5*X
PRINT SUM
END
范例2:
卖西瓜,10千克以下每千克1.4元,10千克以上每千克0.7元,输入要买多少千克(必须为自然数),输出需要多少钱。
INPUT X
IF X<>FIX(X) THEN ? "NO":GOTO 1
IF X>10 THEN SUM=10*1.4+(X-10)*0.7 ELSE SUM=X*1.4
PRINT SUM
END
范例3:
输入10个字母,比较大小,输出最大的一个
DIM A$(10)
FOR I=1 TO 10
INPUT A$(I)
NEXT I
B$=A$(1)
FOR I=2 TO 10
IF B$<A$(I) THEN B$=A$(I)
NEXT I
PRINT B$
END
范例4:
一个游戏:
CLS '清屏
LOCATE 5, 38 '定位到5,38
PRINT "Game" '显示
LOCATE 16, 34 '定位到16,34
PRINT "Press Enter" '显示
DO
LOOP WHILE INKEY$ = "" '暂停
DIM Name1$, Name2$, HP1, HP2, Temp$
CLS '清屏
LOCATE 8 '定位至第8行
PRINT " Input 1st player's name"; '输入玩家1的名字
INPUT Name1$
PRINT " Input 2nd player's name"; '输入玩家2的名字
INPUT Name2$
RANDOMIZE TIMER
HP1 = INT(RND * 50) + 50 '随机决定玩家1的HP
HP2 = INT(RND * 50) + 50 '随机决定玩家2的HP
PRINT STRING$(12, " ") + Name1$ + "'s HP is " + STR$(HP1) '显示玩家1的HP
PRINT STRING$(12, " ") + Name2$ + "'s HP is " + STR$(HP2) '显示玩家2的HP
PRINT " Press any key to contiune"
DO
LOOP WHILE INKEY$ = "" '暂停
DIM Row, Text$, Attack, I
Text$ = "n"
Row = 0
CLS
DO '循环
PRINT
PRINT Name1$ + "'s HP:" + STRING$(16 - LEN(Name1$), " ");
PRINT STRING$(INT(HP1 / 2), 2)
PRINT
PRINT Name2$ + "'s HP:" + STRING$(16 - LEN(Name2$), " ");
PRINT STRING$(INT(HP2 / 2), 2) '以上这几句是用图形来表示HP
FOR I = 1 TO 4
PRINT
NEXT '显示空行
Row = Row + 1 '回合数+1
PRINT STRING$(11, " ") + STR$(Row) + "."
PRINT STRING$(12, " ") + Name1$ + " now has HP " + STR$(HP1)
PRINT STRING$(12, " ") + Name2$ + " now has HP " + STR$(HP2) '以上几句显示回合数和HP数
DO
LOOP WHILE INKEY$ = "" '暂停
Attack = INT(RND * 20) '随机决定攻击点数
Text$ = STRING$(12, " ") + Name1$
Text$ = Text$ + " attack " + Name2$ + " " + STR$(Attack) '先想好要显示的文字
HP2 = HP2 - Attack '用玩家2的HP减去攻击点数
PRINT Text$ '显示文字
DO
LOOP WHILE INKEY$ = "" '暂停
Attack = INT(RND * 20) '随机决定攻击点数
Text$ = STRING$(12, " ") + Name2$
Text$ = Text$ + " attack " + Name1$ + " " + STR$(Attack) '先想好要显示的文字
HP1 = HP1 - Attack '用玩家1的HP减去攻击点数
PRINT Text$ '显示文字
IF HP1 <= 0 OR HP2 <= 0 THEN EXIT DO 如果玩家1或2的HP小于等于0就退出循环
DO
LOOP WHILE INKEY$ = "" '暂停
CLS
LOOP
IF HP1 <= 0 THEN PRINT STRING$(12, " ") + Name2$ + " win"
IF HP2 <= 0 THEN PRINT STRING$(12, " ") + Name1$ + " win"
IF HP1 <= 0 AND HP2 <= 0 THEN PRINT STRING$(12, " ") + "Double win!"
qbasic作为一种计算机高级语言,具有简单、医学、好用,被广大计算机用户所青睐,其中的表达式和数学中的表达式相似,语句也和自然语言相仿,极容易被初学者掌握和介绍,有好的可视化编辑界面加上强大的面向对象的编程能力及其网上发行和网上查询的功能,不仅能使用户方便轻松的编写出任何功能的应用程序,而且更好的适应了网络时代的到来。对于想要学习编程的用户或者想让孩子提前解除编程的家长,可以下载一个qbasic试试。
qbasic使用说明
qbasic是32位的程序,不过小编也准备了64位的环境内容,用户根据自身系统选择使用。qbasic语法
扩充了变量和常量的类型变量名长度:40个字符
增加了长整型、定长字符型变量
可定义数值常量、字符串常量
提供了新的选择结构
条件语句
IF <条件> THEN <语句组1> ELSE <语句组2>
多分支语句SELECT
改进了循环结构
增加以下两个循环语句:
【WHILE循环】
WHILE <条件>
<循环体>
WEND
【DO循环】
DO
WHILE <条件> <循环体>
LOOP
子程序和函数作为单独的模块
不需要行号
代码示例(赋值,求和运算,并显示结果)
LET A=10
LET B=20
LET C=A+B
PRINT C
在编写程序时为了节省时间,可以不用写LET;并且,PRINT在编写程序时直接用“?”代替。有一点非常重要,在参加竞赛时,程序第一行必须是CLS!
qbasic快捷键
F5:运行程序及继续运行被中断的程序;Ctrl+Break:中断正在运行的程序;
Shift+F5:从第一条语句开始重新运行程序;
F4:当程序中断运行时,查看运行结果屏幕,再按一次F4则切换回代码屏幕;
F1:获得帮助。
F2:切换主程序或SUB、FUNCTION。
F9:增加断点。
Alt+Enter:全屏。
Shift+F5:在程序终止时重新从头执行。
Ctrl+Insert:选定文字后复制到剪切板(Ctrl+C无效)
Shift+Insert:将剪贴板中的文字粘贴。(Ctrl+V无效)
实例介绍
小编带来了一些有关于qbasic的实例,用户可以查看学习一下。范例1:
菜场上一公斤香菇是7.5元,编一个程序,从键盘上输入重量,计算机自动算出其总价
INPUT X
SUM=7.5*X
PRINT SUM
END
范例2:
卖西瓜,10千克以下每千克1.4元,10千克以上每千克0.7元,输入要买多少千克(必须为自然数),输出需要多少钱。
INPUT X
IF X<>FIX(X) THEN ? "NO":GOTO 1
IF X>10 THEN SUM=10*1.4+(X-10)*0.7 ELSE SUM=X*1.4
PRINT SUM
END
范例3:
输入10个字母,比较大小,输出最大的一个
DIM A$(10)
FOR I=1 TO 10
INPUT A$(I)
NEXT I
B$=A$(1)
FOR I=2 TO 10
IF B$<A$(I) THEN B$=A$(I)
NEXT I
PRINT B$
END
范例4:
一个游戏:
CLS '清屏
LOCATE 5, 38 '定位到5,38
PRINT "Game" '显示
LOCATE 16, 34 '定位到16,34
PRINT "Press Enter" '显示
DO
LOOP WHILE INKEY$ = "" '暂停
DIM Name1$, Name2$, HP1, HP2, Temp$
CLS '清屏
LOCATE 8 '定位至第8行
PRINT " Input 1st player's name"; '输入玩家1的名字
INPUT Name1$
PRINT " Input 2nd player's name"; '输入玩家2的名字
INPUT Name2$
RANDOMIZE TIMER
HP1 = INT(RND * 50) + 50 '随机决定玩家1的HP
HP2 = INT(RND * 50) + 50 '随机决定玩家2的HP
PRINT STRING$(12, " ") + Name1$ + "'s HP is " + STR$(HP1) '显示玩家1的HP
PRINT STRING$(12, " ") + Name2$ + "'s HP is " + STR$(HP2) '显示玩家2的HP
PRINT " Press any key to contiune"
DO
LOOP WHILE INKEY$ = "" '暂停
DIM Row, Text$, Attack, I
Text$ = "n"
Row = 0
CLS
DO '循环
PRINT Name1$ + "'s HP:" + STRING$(16 - LEN(Name1$), " ");
PRINT STRING$(INT(HP1 / 2), 2)
PRINT Name2$ + "'s HP:" + STRING$(16 - LEN(Name2$), " ");
PRINT STRING$(INT(HP2 / 2), 2) '以上这几句是用图形来表示HP
FOR I = 1 TO 4
NEXT '显示空行
Row = Row + 1 '回合数+1
PRINT STRING$(11, " ") + STR$(Row) + "."
PRINT STRING$(12, " ") + Name1$ + " now has HP " + STR$(HP1)
PRINT STRING$(12, " ") + Name2$ + " now has HP " + STR$(HP2) '以上几句显示回合数和HP数
DO
LOOP WHILE INKEY$ = "" '暂停
Attack = INT(RND * 20) '随机决定攻击点数
Text$ = STRING$(12, " ") + Name1$
Text$ = Text$ + " attack " + Name2$ + " " + STR$(Attack) '先想好要显示的文字
HP2 = HP2 - Attack '用玩家2的HP减去攻击点数
PRINT Text$ '显示文字
DO
LOOP WHILE INKEY$ = "" '暂停
Attack = INT(RND * 20) '随机决定攻击点数
Text$ = STRING$(12, " ") + Name2$
Text$ = Text$ + " attack " + Name1$ + " " + STR$(Attack) '先想好要显示的文字
HP1 = HP1 - Attack '用玩家1的HP减去攻击点数
PRINT Text$ '显示文字
IF HP1 <= 0 OR HP2 <= 0 THEN EXIT DO 如果玩家1或2的HP小于等于0就退出循环
DO
LOOP WHILE INKEY$ = "" '暂停
CLS
LOOP
IF HP1 <= 0 THEN PRINT STRING$(12, " ") + Name2$ + " win"
IF HP2 <= 0 THEN PRINT STRING$(12, " ") + Name1$ + " win"
IF HP1 <= 0 AND HP2 <= 0 THEN PRINT STRING$(12, " ") + "Double win!"
标签:
相关推荐
相关资讯
- 10-03NBA2KOL2经理模式怎么玩,nba2kol2经理模式有经验吗
- 10-03热血无赖存档位置在哪,热血无赖游戏存档目录在哪里
- 10-03《魔兽世界》怀旧服最强弓介绍,魔兽世界怀旧服猎人弓排行
- 10-03虐杀原形作弊码大全(虐杀原形作弊码)
- 10-03《魔兽世界》辛多雷金杖在哪里刷,《魔兽世界》辛多雷金杖在哪里刷啊
- 10-03问道手游金系怎么加点最好,问道手游金系怎么加点最好1到70
- 10-03大话西游手游拼图任务福泽天下图文攻略,大话西游手游拼图任务详细攻略,大话手游福泽天下技巧
- 10-03怪物猎人ol各类武器派生路线大全,怪猎世界武器派生图鉴
- 10-03《dota2》6.86版本更新全部内容详情解析,dota2 6.88版本
- 10-03QG打野Swift永猎双子千珏S6天赋符文出装一览,"p":true
- 站长推荐
- 热门排行
- 推荐资讯
-
- 04-06艾尔登法环新手开荒武器 艾尔登法环新手开荒武器推荐
- 04-14艾尔登法环月光大剑技能怎么放(艾尔登法环怎样才能发动祈祷技能)
- 04-16阴阳师凋零之梦阵容(阴阳师逐鹿之争怎么过)
- 04-23《樱花校园模拟器》爱情药水获取攻略 爱情药水在哪
- 05-16siemens(含破解激活补丁)64位汉化破解版(siemens西门子)
- 05-17苹果12如何使用搜狗输入法(苹果12怎么设置搜狗输入法)
- 06-07命运冠位指定南瓜攻略(命运冠位指定万圣节攻略)
- 06-17梦幻西游符石合成技巧(梦幻西游符石合成技巧)
- 06-18迷你世界怎么驯服豹子当坐骑(迷你世界怎么驯服豹子当坐骑)
- 06-19苹果itunes怎么用(苹果itunes怎么用)