QBASIC与BASIC与qbasic都不同？

哪里不同？

2025-03-04 00:53:48

推荐回答（4个）

回答1：

　　QBASIC是BASIC（Beginner's All-purpose Symbolic Instruction Code，初学者通用指令代码）语言的一个变种，由美国微软公司开发，1991年随MS-DOS 5.0推出。它不能被编译成独立的可执行文件，源代码在集成开发环境（IDE）中先被编译成中间代码，然后中间代码在IDE中被解释执行。它被设计用来代替GW-BASIC，并被集成在MS-DOS 5.0及其更高版本（包括Windows 95）中。QBASIC基于微软稍早推出的QuickBASIC 4.5，但去掉了后者的编译和连接部分。
　　Basic语言是计算机高级语言的一种，它简单、易学、好用，被广大计算机用户所青睐。Basic语言的表达式与数学中的表达式相似，语句与自然语言相仿，极容易被初学者掌握，而Basic语言的最新发展Visual Basic 6.0、7.0，其友好的可视化编程界面、强大的面向对象编程能力及其网上发行和网上查询的功能，不仅能使用户方便而轻松地编写出具有任何功能的应用程序，而且更好地适应了网络时代的到来。
　　微软在较新版本的Windows中不再集成QBASIC。不过Windows 98的用户可以在光盘的\TOOLS\OLDMSDOS目录中找到它，在Windows 95的光盘中，它存放在\OTHER\OLDMSDOS目录中。微软网站对它的技术支持只对MS-DOS的授权用户有效。
　　QBASIC拥有一个值得称道的集成开发环境和一个功能强大的集成调试器，这一切在那个时代让人耳目一新。直到今天，QBASIC依然是许多面向初学者的编程书籍的主题。
　　和Quick BASIC类似而又不同于微软其他BASIC的早期实现版本的是，QBASIC是一种结构化的编程语言。和GW-BASIC相比，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！
　　F5：运行程序（其功能等于run）及继续运行被中断的程序；
　　Ctrl+Break：中断正在运行的程序；
　　Shift+F5：从第一条语句开始重新运行程序；
　　F4：当程序中断运行时，查看运行结果屏幕，再按一次F4则切换回代码屏幕；
　　F1：获得帮助。
　　范例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$　　NEXT I
　　PRINT B$
　　END
　　上面的那些程序都太水了，我在此编了一个超长的画图程序:
　　DRAWTOOL.BAS
　　CLS
　　DO
　　SCREEN 1
　　SCREEN 0
　　PRINT TAB(16); "Draw tool"
　　PRINT STRING$(40, "*")
　　PRINT "Help:"
　　PRINT "Press highlighted letter."
　　FOR I = 1 TO 8
　　READ S$, S
　　GOTO PrintHLWord
　　PrintHLWordBack:
　　NEXT I
　　RESTORE
　　DATA "HorizontalBAR", 1, "UprightBAR", 1, "CrossBARs", 1, "BiasBAR1", 8
　　DATA "BiasBAR2", 8, "DiagonalBARs", 1, "DiffuseBARs", 2, "Exit", 1
　　ElseKey:
　　K$ = INPUT$(1)
　　SELECT CASE UCASE$(K$)
　　CASE "H"
　　GOTO HorizontalBAR
　　HorizontalBARBack:
　　CASE "U"
　　GOTO UprightBAR
　　UprightBARBack:
　　CASE "C"
　　GOTO CrossBARs
　　CrossBARsBack:
　　CASE "1"
　　GOTO BiasBAR1
　　BiasBAR1Back:
　　CASE "2"
　　GOTO BiasBAR2
　　BiasBAR2Back:
　　CASE "D"
　　GOTO DiagonalBARs
　　DiagonalBARsBack:
　　CASE "I"
　　GOTO DiffuseBARs
　　DiffuseBARsBack:
　　CASE "E"
　　END
　　CASE ELSE
　　GOTO ElseKey
　　END SELECT
　　LOOP
　　END
　　PrintHLWord:
　　IF S = 1 THEN
　　COLOR 15
　　PRINT LEFT$(S$, 1);
　　COLOR 7
　　PRINT MID$(S$, 2)
　　ELSE
　　COLOR 7
　　PRINT LEFT$(S$, S - 1);
　　COLOR 15
　　PRINT MID$(S$, S, 1);
　　COLOR 7
　　PRINT MID$(S$, S + 1)
　　END IF
　　GOTO PrintHLWordBack
　　HorizontalBAR:
　　SCREEN 1
　　FOR I = 1 TO 200
　　PSET (I, 100)
　　DO: LOOP WHILE INKEY$ = ""
　　NEXT I
　　SCREEN 0
　　GOTO HorizontalBARBack
　　UprightBAR:
　　SCREEN 1
　　FOR I = 1 TO 200
　　PSET (100, I)
　　DO: LOOP WHILE INKEY$ = ""
　　NEXT I
　　SCREEN 0
　　GOTO UprightBARBack
　　CrossBARs:
　　SCREEN 1
　　FOR I = 1 TO 200
　　PSET (I, 100)
　　PSET (100, I)
　　DO: LOOP WHILE INKEY$ = ""
　　NEXT I
　　SCREEN 0
　　GOTO CrossBARsBack
　　BiasBAR1:
　　SCREEN 1
　　FOR I = 1 TO 200
　　PSET (I, I)
　　DO: LOOP WHILE INKEY$ = ""
　　NEXT I
　　SCREEN 0
　　GOTO BiasBAR1Back
　　BiasBAR2:
　　SCREEN 1
　　FOR I = 1 TO 200
　　PSET (I, 200 - I)
　　DO: LOOP WHILE INKEY$ = ""
　　NEXT I
　　SCREEN 0
　　GOTO BiasBAR2Back
　　DiagonalBARs:
　　SCREEN 1
　　FOR I = 1 TO 200
　　PSET (I, I)
　　PSET (I, 200 - I)
　　DO: LOOP WHILE INKEY$ = ""
　　NEXT I
　　SCREEN 0
　　GOTO DiagonalBARsBack
　　DiffuseBARs:
　　SCREEN 1
　　FOR I = 1 TO 200
　　PSET (I, 100)
　　PSET (100, I)
　　PSET (I, I)
　　PSET (I, 200 - I)
　　DO: LOOP WHILE INKEY$ = ""
　　NEXT I
　　SCREEN 0
　　GOTO DiffuseBARsBack
　　路程图：
　　CLS
　　输入
　　计算
　　输出
　　END
　　QBASIC下载地址：
　　4.0版http://down.lihuasoft.net/irrwd/download/program/vb/qb40.zip
　　4.5版http://dlzisai.pchome.net/development/linetools/qb45.zip
　　4.0版的地址中有许多QB程序例子，比如SINEWAVE.BAS，可以画出正弦波。

回答2：

QBASIC和qbasic是一样的
qbasic是在basic的基础上形成的
qbasic保留了许多的basic语言
basic的功能没有qbasic多而已

回答3：

错
QBASIC是BASIC的一种

回答4：

basic就是qbasic

最新问答

上海哪有小香猪卖？要纯种的

锦鲤鱼突然改变水质鱼翻白要死咋办

gta4绑架任务到网吧然后怎么弄

找一本言情小说。以前在百度小说里看的。女主是刑警（忘了，反正身手

求助，刮痧以后长痘更凶猛了

身份证没磁补办多少钱

后脑勺长了个瘤子是什么

广州哪里有能把药材打成粉粉的药店阿，去过的说阿

北师大版八年级下册数学课本答案第15,16页第1,2,题

穿越到高达的小说，如果我满意重重有赏