qbasic

不能用

要为锻炼自己的编程能力还可以一学,否则就不必了.因为毕竟没有什么软件是用它编的,它还是个解释性的语言.它要是编译语言也许还可以考虑

QBasic不是很难 看看书，不知你们考试的难度如何，如果是简单的话那就看看书，如果涉及到比较难的东西的话那就要看书加练习了，一定要理解编程的主要思想。FoxBasic就是数据库，这个更简单，说白了就是记忆，只要把里面的命令记述了，用起来是很容易的，不需要怎么动脑子。至于微机原理这个就有点困难了，我们也准备要学这个东西，这属于计算机硬件方面的知识，要有基础，不能仅仅靠看书，况且有的时候看书不一定能看懂，需要有人讲解。求采纳

是从你的主板蜂鸣器输出而不是音响。很多主板没有蜂鸣器。

CLS INPUT "How many?", cc IF cc MOD 2 = 0 THEN 333 dd = cc 2 + 1 CLS RANDOMIZE TIMER PRINT "1:ROCK", "2:SISSOR", "3:PAPER" DO UNTIL x = dd OR y = dd i = INT(RND * 3) SELECT CASE i CASE 0 a$ = "r" CASE 1 a$ = "s" CASE 2 a$ = "p" END SELECT DO UNTIL c$ = "1" OR c$ = "2" OR c$ = "3" c$ = INKEY$ LOOP SELECT CASE c$ CASE "1" b$ = "r" CASE "2" b$ = "s" CASE "3" b$ = "p" END SELECT c$ = "" IF a$ = b$ THEN PRINT "TIE", ELSEIF a$ = "r" AND b$ = "s" THEN PRINT "FAILED", : x = x + 1 ELSEIF a$ = "s" AND b$ = "p" THEN PRINT "FAILED", : x = x + 1 ELSEIF a$ = "p" AND b$ = "r" THEN PRINT "FAILED", : x = x + 1 ELSEIF (a$ = "r" AND b$ = "p") OR (a$ = "p" AND b$ = "s") OR (a$ = "s" AND b$ = "r") THEN PRINT "WIN", : y = y + 1 END IF IF a$ = "r" THEN a$ = "ROCK" ELSEIF a$ = "s" THEN a$ = "SISSOR" ELSE a$ = "PAPER" END IF IF b$ = "r" THEN b$ = "ROCK" ELSEIF b$ = "s" THEN b$ = "SISSOR" ELSE b$ = "PAPER" END IF PRINT "You:"; b$, PRINT "Com:"; a$ LOOP PRINT y; ":"; x IF x = dd THEN PRINT "You lose" ELSEIF y = dd THEN PRINT "You win" END IF PRINT TAB(30); :PRINT "Do you want to play again?" PRINT TAB(30); : PRINT "1:YES 3:NO" DO UNTIL g$ = "1" OR g$ = "3" g$ = INKEY$ IF g$ = "1" THEN g$ = "": x = 0: y = 0: GOTO 333 ELSEIF g$ = "3" THEN END END IF LOOP 回答者： xingyun789789 - 举人 四级 3-15 19:47

引号“”表示原样输出

clsinput"diyigeshu=";ainput"diergeshu=";binput"disangeshu=";c以上语句是输入三个数max=-999ifa>maxthenmax=aifb>maxthenmax=bifc>maxthenmax=c以上语句是找出最大数：先设最大数是max,设最大数的值为-999，当a,b,c中的任意一个比最大数大，就让最大数max等于它。print"zuidashu=";max以上语句输出最大数end

C解释程序

CLS DIM a(8) INPUT k FOR i = 1 TO k a(i) = i + 1 s = s + a(i) v = v + 1 IF s >= k THEN EXIT FOR NEXT i s = 0 FOR i = 1 TO v a(i) = i s = s + a(i) NEXT i x = ABS(s - k) i = v FOR j = 1 TO x a(i) = a(i) + 1 i = i - 1 NEXT j FOR i = 1 TO v PRINT a(i); NEXT i

包括

如果是优酷上的视频教程，你最好安装优酷客户端，安好后刷新一下页面，再单击下载按钮就可以启动客户端下载视频教程了。

for 变量= 初值（任意一个数）to 终值（任意一个数）step 步长（任意一个数）（如果初值大于终值，步长为负数）……next（可以不写一开始for 后面的变量，但我建议要写）

不是呀

basic啊， 人称5分钟语言我是说basic比较简单

最简单的换win7 32位操作系统

以下程序已在qbasic环境中运行成功！！1,clsdo input a$loop until len(a$)=3l=len(a$)s=0for i=1 to l s=s+val(mid$(a$,i,1))next i? send2.clsinput "a,b,c=",a,b,cif a>b then max=a else max=bif max<c then max=c? (a+b+c-max)/2end3.clss=0for i=1 to sqr(100) if 100 mod i=0 then ? i;100/i; s=s+1next i? send

凡事都要靠自己，不能那个老依靠别人，我有个网址，没事去走走！http://ent.daqi.com/bbsnew/01/42925.html

我们先可以设全部是兔，就有三十五乘四有140只脚，再求出多出的是140减94等于46只，这是多出的，再用4减2等于2是没只鸡多两只脚，再用46除于2等于23，这是兔的只数，在用35减23就是12只鸡。所以兔23只，鸡12只。

abs(3-5)*abs(sin(3.14))8*(5/3)/(10.2-5.4)-4.2*5(3*tan(3))*log(5*exp(1)^2)sin(2)/tan(4)*(1/tan(3))绝对值需要用一个函数abs(x)，结果是x的绝对值。sin(30)这里的30用的是角度单位，但是qb里用的是弧度单位（rad），需要换算，换算方法如下：1角度=pi/180弧度，2角度=pi*2/180弧度，（这里pi是圆周率，可以在编写程序时近似的赋值为3.141593）比如30角度=pi/6弧度

log:LOG(x)e:EXP(x)

LOG(X)以e为底X的对数

我想可能是应该把if放到for循环结构里。

先用勾股定理计算另一条边(b)的长度，然后再使用反正切函数ATN() b=sqr(c*c-a*a) atn(b/a) 51.75度左右 对于其他语言，直接用反余弦函数acos()就好

把输入的数排序后输出，可以用冒泡排序、选择排序等"输入FOR I=1 TO 10 INPUT A(I)NEXT I"选择排序FOR I=1 TO 9 FOR J=I+1 TO 10 IF A(I)<A(J) THEN SWAP A(I),A(J) NEXT JNEXT I"输出FOR I=1 TO 10 PRINT A(I);NEXT I

在cmd模式下可运行，但由于屏幕显示模式的限制，许多语句会出错，甚至不运行。32位xp、win7存在同样的问题。完美的解决办法，只有安装虚拟机了。比如微软的Virtual PC。可以到“虚拟机之家”查询相关信息。

you

rem是注释语句表示后面是注释语句，执行的时候不执行他。

1、把（*.txt）里的程序复制2、打开qb3、右击标题栏，选择粘贴就ok了

现在还有人学QBASIC真少见，QusetionSramoc ( K , M ) 表示用数字0、1、2…、K-1组成的自然数中能被M整除的最小数。给定 K、M，求Sramoc ( K,M )。例如 K=2，M=7的时候，Sramoc( 2 , 7 ) = 1001。输入文件（sramoc.in）第一行为两个整数K、M满足2<=K<=10、1<=M<=1000。输出文件（sramoc.out）：输出sramoc(K,M) 。输入样例：2 7输出样例：1001===========================把这个问题转换成进制问题，K代表进制由0到K-1组成的自然数等同于K进制的数比如0到2-1组成的自然数等同于2进制的各个数0,1, 10, 11, 100,101这样按K进制的递增进行。然后把K进制的数，看成10进制的数，得到10进制的值比如，1001，如果是2进制，值为9；如果看成10进制，值为一千零一========所以整个算法就是，K进制的数N，从1开始递增，每次加1，开始循环 把N转换成十进制数D，除7是否余0， 余0则为整数，终止循环，输出N

判定一个数N是否为整数常用表达式为：INT（N）=N或FIX（N）=N 上两式值为真时N是整数,为假时不是整数. 判定一个整数N是奇数常用有三种方法： 1）N MOD 2=1 （N除以2所剩的佘数为1） 2）INT（N/2）N/2 3）FIX(N/2)N/2

音标[kjubeisik]，即q单独念，basic单独念

都基于古老的BASIC语言语法。QBASIC是面向过程的编程环境，不是可视化的，现在几乎已经没人用了；而VB是面向对象的编程环境，是微软推出的一种可视化IDE。

几乎被淘汰了一种很基本的语言 入门很简单但是 性能与现在流行的语言没法比建议 如果是编程入门可以学一下不建议 作为发展方向

http://xiazai.zol.com.cn/detail/14/132311.shtml下载压缩文件后解压即可。

m=5print 3+mm=3+mprint m典型的

QBASIC是BASIC（Beginner"s All-purpose Symbolic Instruction Code，初学者通用指令代码）语言的一个变种，由美国微软公司开发，1991年随MS-DOS 5.0推出。不能被编译成独立的可执行文件，源代码在集成开发环境（IDE）中先被编译成中间代码，然后中间代码在IDE中被解释执行。QBASIC被设计用来代替GW-BASIC，并被集成在MS-DOS 5.0及其更高版本（包括Windows 95）中。QBASIC基于微软稍早推出的QuickBASIC 4.5，但去掉了后者的编译和连接部分。微软在较新版本的Windows中不再集成QBASIC。不过Windows 98的用户可以在光盘的TOOLSOLDMSDOS目录中找到QBASIC，在Windows 95的光盘中，QBASIC存放在OTHEROLDMSDOS目录中。目前QBASIC已经很少被使用了，取而代之的是可视化basic语言VB。

首先，我纠正一下你们两个人，QBAISC和C都是编程语言，不是“软件”。C语言诞生于美国的贝尔实验室，由丹尼斯·里奇（Dennis MacAlistair Ritchie）以肯·汤普森（Kenneth Lane Thompson）设计的B语言为基础发展而来，在它的主体设计完成后，汤普逊和里奇用它完全重写了UNIX，且随着UNIX的发展，c语言也得到了不断的完善。为了利于C语言的全面推广，许多专家学者和硬件厂商联合组成了C语言标准委员会，并在之后的1989年，诞生了第一个完备的C标准，简称“C89”，也就是“ANSI C”，截至2020年，最新的C语言标准为2018年6月发布的“C18”。QBASIC语言是Microsoft公司开发的，MS-DOS 5.0自带的一种计算机程序设计语言。它是由BASIC语言发展而来的一种模块化和结构化的BASIC语言版本，它不但继承了BASIC语言版本的易学、易用等特点，而且扩充了其功能，主要表现在：扩充了变量和常量的类型；提供了新的选择结构； 改进了循环结构；提供了作为单独模块的子程序和函数；不再需要行号； 具有良好的编辑环境；提供联机帮助；提供“分步执行”、“跟踪”等调试工具；采用先进的解释执行方式等几个方面。两者没有什么关系。

运行时！可以通过screen 语句来时现啊，默认是80*25的字符模式，可以通过screen 1就变成了40*12的模式，字大多了（个人感觉不好看呢）可以自己看帮助里的screen的详细说明楼上各位说的那个不行的，不是qb运行后的状态。因为qb是dos程序，所以又有一套屏幕规则。

功能：演奏由给定的字符串所表示的音乐 格式：PLAY [命令字符串] 说明：[命令字符串]是一种音乐语言单个字符命令组成，用以表示音符的音高、音长、速度及演奏方式等。 乐谱中的音符CDEFGAB(当1=C时相当于简符1234567)在BASIC中仍然是这7个字母，“#”(或“+”)号与“-”号分别表示乐谱中的升半音(#)和降半音(b)，字符“.”代表延长前面音符的一半时长(用来表示附点音符)，其他字符命今如下： 1、O命令 功能：用来设置要演奏的音符所在的八度，即音阶。 格式：On 说明：命令中n的取值为0-6。比如．使计算机在演奏完音阶3的CD之后，再演奏一个高八度的C，即音阶4中的c调，可以用PLAY “O3CDO4C”来实现。普通中音是指音阶3中的音符。 2、L命令 功能；用来设置要演奏的每个音符的长度(亦称音符的时值)。 格式：Ln 说明：n的取值1-64，L1表示以全音符，L2表示半音符，L4表示四分音符，L8表示八分音符…… 一个音符的时值也可以直接写在该音符后面，而不用L命令。如L8A与A8等效，C4E4D4A4等效于L4CEDA，而L4CDEFC2AB2则表示音符后面不带数字的按L设定的四分音符演奏，后面带数字的G2和B2按数字指定的音值演奏，显然用L命令更简洁方便。 3、P命令 功能：表示休止符的长度 格式：Pn 说明：n的取值1-64，P1表示全休止符．P2表示半休止符，P4表示四分休止符…… 4、T命令 功能；用来设置演奏的节拍速度。 格式：Tn 说明：n为每分钟演奏四分音符的数量，取值32-255，缺省是T120 注意：除了T命令外还可以用以下三个命令来控制演奏的速度： (1)MN(音乐标准)：它使每个音符以L设定的音值的7/8来演奏，使得两两音符之间有短暂的停顿。 (2)ML(音乐连奏)；使演奏时两两音符间不停顿，每个音符将演奏足L规定的音长。 (3)Ms(音乐断音)：使每个音符更短一些，以L给出的音值的3/4来演奏，以此来延长音符间的停顿。 另外．QB演奏音乐时有两种方式供选择：前台音乐和背景音乐。由MF和MB来确定。当“命令字符串”中出现MF时，表示在前台插放音乐．即QB要等到执行完PLAY语句后才能继续往下执行程序，在播放音乐时不能做其它的事情。而出现MB时，则表示在后台播放音乐，QB可以将最多32个音符或休止符保存在缓冲区，然后继续执行下面程序，而无需等待把这些音符全部演奏完。这样，MB允许QB在演奏的同时做一些其它的事情，如运算、绘图等等。 现在，在了解了PLAY语句使用方法的基础上我们编制一个简单的程序，来演奏《友谊地久天长》的片断，其相应的简谱如下： 我们把这段乐曲分四部分，每部分单独用一字符串表示，为使两部分间有短暂停顿，在每一部分的末端都用MN演奏。乐曲中连线处用ML连贯演奏。 A$="O2MNG O3C.C16CE D.C16DE C.C16EG MNA4." B$="A G.E16EC D.C16DE C.O2A16AG O3MNC4." C$="A MLG.E16EC D.C16MNDA MLG.E16EG MNA4." D$="O4C O3G.E16EC D.C16DE C.O2A16AG O3C4." PLAY "T60 L8"+A$+B$+C$+D$ END 为清晰起见，程序中各小节的音乐编码之间以空格分开，这样编码与乐谱之间的对应关系一目了然。

dim n=0 ,i=0,j=0 , mySwitch=0input "请输入数的个数(n<=30000)" ndim myArray(n)for s=1 to ninput"请输入要排序的数" myArray(n)nextfor i=0 to n for j=i to n if myArray(i)>myArray(j) then mySwitch=myArray(i) myArray(j)==mySwitch endif nextprint"排序为" myArraynext老长时间没玩过了，试吧，算法没有错，忘了怎样定义了

运算精度不同造成的，这种例子挺多的，还有水仙花数时也有这样的现象。

区别大了，从语法，应用都不一样

QBASIC的几个问题 悬赏分：30 - 离问题结束还有 14 天 23 小时 1、完善下列程序，使其能求出从键盘输入的任意一个非负数的算术平方根。INPUT XIF X>=0 THENLET S= sqr (s)PRINT SELSEPRINT X;"没有实根"ENDIFEND3、写出下列程序运行结果。LET A=36LET B=4LET C=SQR(A)+BPRINT CEND运行结果: 104、完善下列程序，使其能求出12+10+8+……+2之和。 LET S=0 FOR I=12 TO 2 STEP -2 LET S= S+I NEXT I PRINT S END7、写出下列程序运行结果。LET A=9.6LET B=2LET B= INT(A/3)PRINT BEND运行结果: 38、完善下列程序，使其能求出1+2+3+……+20之和。 LET S=0 FOR I=1 TO 20 LET S= S + I NEXT I PRINT S END11、写出下列程序运行结果。LET A=3.2LET B=4.6LET C=INT(A+B)PRINT CEND运行结果: 712、完善下列程序，使其能求出10+8+6+……+2之和。 LET S=0 FOR I=10 TO 2 STEP -2 LET S= s+I NEXT I PRINT S END13、完善下列程序，使其能求出1+1.1+1.2+1.3+……+100之和。LET S=0FOR I= 1 TO 100 STEP 0.1LET S=S+INEXT IPRINT SEND16、求N+(N-1)+(N-2)+……+3+2+1，完善下面的程序LET S=0INPUT NFOR I=N TO 1 STEP -1LET S= S+INEXT IPRINT SEND17、写出下列程序运行结果。S=0FOR X=1 TO 5LET S=S+1NEXT XPRINT SEND运行结果: 5 18. 写出下列程序运行结果。S=0FOR X=10 TO 2 STEP -4LET S=S+XNEXT XPRINT S/XEND运行结果: -919、完善下列程序，该程序的功能是：从键盘上任意输入的两个数,求最大数。INPUT A , BIF A>B THEN MAX= AELSEMAX=BENDIFPRINT “MAX=” ; MAXEND20、完善下列程序，该程序的功能是：从键盘输入一个数，如果这个数不等于零，那么输出它的倒数，否则不显示。INPUT XIF X<>0 THENLET Y= 1/XPRINT YEND IFEND 第三题中SQR是求平方根！不可能是负数的！第四题的确是 -2 我少打了负号！第七题INT是求整函数！意思是A/3之后等于3.2 再用INT对其取整！十七题是对S进行累加！FOR 循环几次就累加几次！十八题是让一个变量S对X进行取数相加！X等于多少！S就将其累加！例如X进行FOR 循环之后依次是10 6 2 S就将这三个数相加！最后一个S/X 要注意X的值并不是2 而应该是 负二因为当FOR进行了三次递减之后，X是2，在程序看来并没有破出循环条件！所以最后还进行了一次减法，但进行最后一次递减之后循环条件破出了！所以下面就没有再执行！运行依次是：10+6+2 / -2

楼上正解。估计会的人基本上都已经忘记完了。

QBASIC有四类运算符，分别是算术运算符、字符运算符、关系运算符和逻辑运算符,没有C中的逻辑位移运算符。QBASIC因为没有二进制数据类型，所以就没有位移运算。不过可以用其它方法来做：左移一位乘2，右移一位整除2例：Upper8 = X And &HFF00 "去掉低八位 Lower8 = X And &HFF "去掉高八位 Upper8 = Upper8 / 256 "等于右移8位

qbasic小学组的基本语句及语法1、输入语句：INPUT “提示内容” ；变量1，变量2，变量3 …规则：（1）输入的值是具体的常量；（2）提示内容必须加双引号；（3）可以给多个变量赋值，中间用“，”隔开。例：求学生数学、语文、英语三门课的平均成绩。2、输出语句：PRINT “提示内容” ；表达式规则：（1）提示内容必须加双引号；（2）可以一次完成输出多个表达式的功能。阅读以下程序，理解屏幕输出语句的格式：屏幕输出如下：3、赋值语句：变量 = 表达式规则：（1）赋值号左边只能是变量名字，右边可以是一个常量，变量或含变量的运算式；（2）赋值号的左右两边不能对换；（3）表达式最终结果是个数值．赋值语句先计算出表达式的结果，然后把这个结果赋给“=”左边的变量；（4）在一个赋值语句中只能对一个变量赋值；（5）对于同一个变量可以多次赋值。例：程序1输出的结果是______； 程序2输出的结果是________。4、条件语句：例：输入x的值，计算函数 的函数值。5、循环语句：直到型循环结构和当型循环结构，如下：例：输入n的值，计算1+2+3+…+n的值。6、其它语句：清屏语句：CLS 屏幕语句：SCREEN 12音乐语句：PLAY “C D E F G A B” 结束语句：END

可以装个DOSbox软件，然后在Dosbox窗口里运行。或者用VMwork虚拟机安装个DOS操作系统。最简单的是用windows的CMD命令来执行。以上三种方法各有优缺点：CMD命令方式操作简单，但消耗资源大，而且兼容性差，VMwork虚拟机方式兼容性最好，因为它本来就虚拟了一个安装DOS的PC机，跟真正的实际PC机一模一样，如果编程是与硬件高度相关，采用这种方式最好，缺点是占用CPU资源太大，几乎100%。DosBox兼顾了以上两种方式的优点，占用CPU资源少而且兼容性也很好（大多数知名的DOS游戏可以很顺畅的运行），并且可以调整运行速度，高度推荐！！！

rnd函数公式 int(rnd*(b-a+1))+a b 大数,A 小数

定义C语言是一种计算机程序设计语言。它既有高级语言的特点，又具有汇编语言的特点。它可以作为系统设计语言，编写工作系统应用程序，也可以作为应用程序设计语言，编写不依赖计算机硬件的应用程序。因此，它的应用范围广泛。 C语言对操作系统和系统使用程序以及需要对硬件进行操作的场合，用C语言明显优于其它解释型高级语言，有一些大型应用软件也是用C语言编写的。 C语言具有绘图能力强，可移植性，并具备很强的数据处理能力，因此适于编写系统软件，三维，二维图形和动画。它是数值计算的高级语言。 常用的C语言IDE（集成开发环境）有Microsoft Visual C++，Borland C++，Watcom C++ ,Borland C++ ，Borland C++ Builder,Borland C++ 3.1 for DOS,Watcom C++ 11.0 for DOS,GNU DJGPP C++ ，Lccwin32 C Compiler 3.1,Microsoft C,High C,Turbo C等等..QB即Quick Basic语言.QBasic语言是Quick Basic语言的子集，它只有解释执行功能。属DOS平台下的编程语言，其精髓是当前VB及VB.NET编程语言的基础，只能说QBASIC编的程序不能在WIDOWS平台上运行。DOS发展到后期,出现了Quick Basic语言,它将BASICA,LINK以及DEBUG等软件合并在一起,在同一环境下对用户的源程序自动进行处理--编辑,进行语法检查,编译连接,执行,调试等,最终生成在DOS下的可执行EXE文件.Quick Basic兼容以往的Basic,大多以往Basica开发的源程序不作修改就可在Quick Basic环境下运行或编译.但要注意必须是Basica下以ASCII码存盘的源文件. Visual Basic是可视化Basic编程语言,有4.0,5.0和6.0,发展到现在有.NET BASIC,其中Visual Basic 6.0是应用最广泛的初学者编程语言,它基本兼容大多数BASIC下的源代码或稍加改动就能应用于Visual Basic的代码内,Visual Basic是编译型语言,所生成的EXE文件能在具有VB同版本运行库文件的WINDOWS环境下运行. 学好QBASIC语言对学好VB或C语言都有帮助，就象古汉语现在不用，但古汉语是学习现代汉语的基础一样。

QBASIC是第三代BASIC语言，Visual Basic是第四代。相比之下，最明显的区别是VB是可视化语言（Visual 就是“可视的”的意思）。窗体上的控件（文本框、按钮、复选框等）一般地直接“画”就可以了。同时，VB是面向对象的。现在人用QBASIC一般是为了进行计算（鲁教版高中数学要学QBASIC，很多工程师也要学），而不是为了做软件。

LET （赋值语句）格式：[LET] 变量=表达式功能：先计算右边表达式，然后将结果赋给左边的变量SWAP （变量值交换语句）格式：SWAP 变量1，变量2功能：将变量1和变量2的值进行交换PRING （显示或输出语句）格式：PRING [表达式表][，|；]功能：将指定的数据显示在屏幕上LPRING （打印语句）格式：LPRINT [表达式表][，|；]功能：将指定的数据用打印机打印出来REM （注释语句）格式1：REM 注释内容格式2：" 注释内容功能：在程序中加以解释来说明该程序段的作用END （结束语句）格式：END功能：结束一个程序CLS （清屏语句）格式：CLS功能：清除屏幕上显示的信息PRING USING （自选显示格式语句）格式：PRING USING 〈“格式字符串”〉；〈表达式表〉 [；]功能：根据格式字符串规定的格式，将表达式表中的数据显示在屏幕上LPRINT USING （自选打印格式语句）格式：LPRINT USING 〈“格式字符串”〉；〈表达式表〉[；]功能：根据格式字符串规定的格式，将表达式表中的数据打印在打印机纸上STOP （暂停语句）格式：STOP功能：暂停程序的执行SLEEP （定时暂停语句）格式：SLEEP [数值表达式]功能：暂停执行程序，时间为数值表达式所指定的数值（以秒为单位）INPUT （键盘输入语句）格式：INPUT [；][“注释内容”][；|，]变量[，变量]功能：通过键盘给INPUT语句中的各个变量依次提供数据LINE INPUT （行输入语句）格式：LINE INPUT [；][“注释内容”；]字符串变量功能：将键盘上输入的字符串（最长为255个）赋给字符串变量READ/DATA（读数/置数语句）格式：READ 变量 [，变量]… … … DATA 常量 [，常量]…功能：READ语句将DATA语句中提供的数据依次赋给指定的变量RESTORE （恢复数据区语句）格式：RESTORE [行号|行标号]功能：从指定的DATA语句行中读入常量数值函数SIN （正弦函数）格式：SIN （X）功能：求X的正弦函数值COS （余弦函数）格式：COS（X）功能：求X的余弦函数值TAN （正切函数）格式：TAN（X）功能：求X的正切函数值ATN （反正切函数）格式：ATN（X）功能：求X的反正切函数值SQR （平方要函数）格式：SQR（X）功能：求X的算术平方根值，其中X必须大于或等于零EXP （指数函数）格式：EXP（X）功能：求以e为底的X次幂，e=2.718282LOG （对数函数）格式：LOG（X）功能：求以e为底的自然数值，即In x 的值SGN （符号函数）格式：SGN（X）功能：求自变量X的符号ABS （绝对值函数）格式：ABS（X）功能：求自变量X的绝对值，即|X|INT （取整函数）格式：INT（X）功能：取不大于X值的最大整数FIX （截取整数函数）格式：FIX（X）功能：把一个带有小数的数去掉小数部分，不进行舍入，直接截取整数部分。自变量X可以是任意数值表达式CINT （转为整数函数）格式：CINT（X）功能：把一个带有小数的数转换成整数，对小数部分四舍五入CLNG （转为长整数函数）格式：CLNG（X）功能：把自变量X转变为长整数CSNG （单精度函数）格式：CSNG（X）功能：把数值X转变为单精度数，其中自变量X是一个数值表达式，使用该函数它将被转换成单精度数CDBL （双精度函数）格式：CDBL（X）功能：把数值X转变为双精度数，自变量X可以是任意数值表达式RND （随机函数）格式：RND（X）功能：产生一个0与1之间的随机数TIMER （？函数）格式：TIMER功能：从午夜开始计算秒数ASCII （ASCII码函数）格式：ASC（X$）功能：返回字符串 X$ 第一个字符的ASCII代码VAL （字符串转数值函数）格式：VAL（X$）功能：将字符串 X$ 转换成数值LEN （测长函数）格式：LEN（X$）功能：测量字符串的长度，即字符串的字符个数INSTR （子字符串检索函数）格式：INSTR（[N，] X$，Y$）功能：返回字符串 Y$ 在字符串 X$ 中第一次出现的位置屏幕显示格式中常用的三个函数TAB （？函数）格式：TAB（X）功能：在指定位置X上显示或打印所需要的信息SPC （？函数）格式：SPC（X）功能：空X个空格SPACE$ （？函数）格式：SPACE$（N）功能：返回一个字符串，该字符串由N个空格组成输入函数INKEY$ （？函数）格式：INKEY$功能：从键盘上读一个字符INPUT$ （？函数）格式：INPUT$ （N[，[#] 文件号]）功能：返回从键盘或指定文件中读出的N个字符组成的字符串CSRLIN （光标行座标函数）格式：CSRLIN功能：返回当前光标行座标位置POS （光标列座标函数）格式：POS（N）功能：返回当前光标列座标位置UBOUND；LBOUND （测试下标上、下界函数）格式：UBOUND（数组[，维]） LBOUND（数组[，维]）功能：返回一个已定义数组中指定维的上、下界FRE （测试空字节函数）格式：FRE（X）功能：返回空闲内存节数GOTO格式：GOTO 行标识符功能：改变程序的执行顺序，无条件地转去执行GOTO后面所指的行标识符去执行ON/GOOT格式：ON 表达式 GOTO 行标识符表功能:先计算ON后面的表达式的值,再根据计算结果,将程序转移到GOTO所指行标识符表中的某个行标识符去执行关系运算= （等于）> （大于）>=（大于或等于）< （小于）<=（小于或等于）<>（不等于）AND（与）OR （或）NOT（非）表： A B | NOT A | NOT B | A AND B | A OR B 1 1 | 0 | 0 | 1 | 1 1 0 | 0 | 1 | 0 | 1 0 1 | 1 | 0 | 0 | 1 0 0 | 1 | 1 | 0 | 0逻辑运行顺序： NOT—AND—OR （）—算术—关系—逻辑IF （条件语句）单行 IF 条件语句格式：IF 条件 THEN 语句序列1 [ELSE 语句序列2]功能：首先计算条件的值，如果为真则执行THEN后的语句序列1，否则执行ELSE后面的语句序列2块结构 IF 条件语句格式：IF 条件1 THEN [语句块1] [ELSEIF 条件2 THEN [语句块2] …… [ELSE [语句块n]] END IFCASE （条件语句）格式： SELECT CASE 测试表达式 CASE 表达式表1 [语句块1] [CASE 表达式表2 [语句块2]] …… [CASE ELSE [语句块N]] END SELECT功能：根据表达式的值，从多个语句块中选择符合条件的一个语句块执行FOR/NEXT（循环语句）格式：FOR A=E1 TO E2 STEP E3 循环体 NEXT A说明: FOR 语句为循环说明语句,它说明了循环的次数FOR TO STEP 为语句定义符 A--循环控制变量,可以用任一简单变量表示 E1--循环控制变量的初值 E2--循环控制变量的终值 E3--循环控制变量的增值,也称步长 NEXT 语句为循环终端语句,它与FOR语句必须成对出现 NEXT语句中的循环控制变量必须与FOR语句中的一致 循环体由一条或多条语句构成,是被重复执行的部分WHILE/WEND (循环语句)格式: WHILE <条件> 循环体 WEND说明: WHILE是循环的起始语句又称说明语句,它的作用是给出循环条件 WEND是循环的终止语句. <条件>代表一个逻辑条件,它可以是一个关系表达式也可以是一个逻辑表达式,还可以是一个变量或常数DO/LOOP (循环语句)格式1: DO[(WHILE 或 UNTIL)条件] 循环体 [EXIT DO] LOOP格式2: DO 循环体 [EXIT DO] LOOP[(WHILE 或 UNTIL)条件]说明: 如果条件永远成DO-LOOP循环可能陷入"死循环"这时可用EXIT DO 来退出循环 DO循环可以嵌套,其规则与FOR-NEXT循环相同字符串函数CHR$ (字符函数)格式:CHR$ (N)功能:将ASCII码值N转换成它所表示的字符MID$ (取中间字符串函数)格式:MID$ (A$, N [,M])功能:从字符串A$中,第N个字符起,取出M个字符STRING$格式1:STRING$(N, X)功能: 产生N个ASCII码X所对应的字符.通常用在无法从键盘按输入的字符格式2:STRING$(N, X$)功能: 产生N个字符串X$中的第一个字符OCT$ (十进制转八进制函数)格式:OCT$ (X)功能:将十进制数值转换成八进制字符串STR$ (数值转换成字符串函数)格式:STR$ (X)功能:将数值数据转换成字符串数据LTRIM$ (删除字符串左边空格函数)格式:LTRIM$ (X$)功能:删除字符串X$左边的空格RTRIM$ (删除字符串右边空格函数)格式:RTRIM$ (X$)功能:删除字符串数据X$右边的空格LCASE$ (小写函数)格式:LCASE$ (A$)功能:将A$中所有大写字母改成小写UCASE$ (大写函数)格式:UCASE$(A$)功能:将A$中所有小写字母改成大写TRIM$ (两头截空函数)格式:TRIM$ (A$)功能:截去字符串A$的头尾所有空格LEFT$ (左取函数)格式:LEFT$(A$,N)功能:得到字符串A$最左边的N个字符RIGHT$ (右取函数)格式:RIGHT$(A$,N)功能:得到字符串A$最右边的N个字符HEX$(十进制数转换十六进制字符串)格式:HEX$(N)功能:将十进制数N转换成十六进制字符串MKI$ (把整数转换为字符串)IKL$ (把长整数转换为字符串)MKS$ (把单精度数转换为字符串)DATE$/TIME$ (取得系统的日期/时间)GOSUB/RETURN (调用子程序语句和返回语句)GOSUB (调用子程序)格式: GOSUB<标号1>功能:用于转移到子程序的入口语句去执行RETURN (子程序返回语句)格式:RETURN [<标号2>]功能:用于子程序执行完毕从子程序返回,作为子程序的结束语句DEF FN (用户自定义函数)格式1: DEF FN <函数名>[(参数表)]=<表达式>格式2: DEF FN <函数名>[(参数表)] 语句块 FN <函数名>=<表达式> END DEF功能: 定义一个用户自己的函数SUB (过程定义)格式: SUB 过程名[(参数表)][STATIC] 语句序列 END SUB功能: 定义一个SUB过程FUNCTION (过程定义)格式: FUNCTION 过程名[(参数表)][STATIC] 语句序列 过程名=表达式 END FUNCTION功能: 定义FUNCTION函数过程DECLARE (过程说明语句)格式: DECLARE [RUNCTION/SUB] 过程名[(参数表)]功能: 对被调用的过程进行说明,对传递的自变量进行检查DIM SHARED / COMMON SHARED (定义全局变量)格试: DIM SHARED 变量名表 / COMMON SHARED 变量名表功能: 将变量名表中的变量定义为全局变量STATIC (定义局部变量)格式: STATIC 变量表功能: 在DEF FN 函数、FUNCTION 或 SUB 过程中把变量定义为局部变量SHARED (共享变量)格式: SHARED 变量[AS类型][,变量[AS类型]…功能: 使主程序与某个过程共享变量DIM (数组定义)格式: DIM[SHARED] 变量 [(下标)][AS类型][,变量[(下标)][AS类型]]…功能:说明变量或数组并分配存储空间REDIM (改变分配给数组的空间)格式: REDIM[SHARED] 变量 (下标)[AS类型][,变量(下标[AS类型]……功能: 改变分配给动态数组的空间OPTION BASE (?)格式: OPTION BASE n功能: 指定数组下标的缺省下界OPEN (打开或建立文件)格式1: OPEN 文件说明[FOR 方式1] AS [#] 文件号 [LEN=记录长度]格式2: OPEN 方式2,[#] 文件号,文件说明[,记录长度]说明: 1.在格式1中,"方式1"指定文件的输入/输出有以下几种方式: OUTPUT 指定顺序输出方式 INPUT 指定顺序输入方式 APPEND 指定顺序添加方式 RANDOM 指定随机存取方式,也是缺省方式 2.格式2中的"方式2"指的是以下几种字符 O 指定顺序输出方式 I 指定顺序输入方式 R 指定随机读/写方式 A 指定顺序添加方式CLOSE (结束文件的读/写操作)格式:CLOSE [[#] 文件号 [, [#] 文件号 ]……]功能: 结束文件的读/写操作FREEFILE格式:FREEFILE功能:产生一个尚未使用的最小文件号LOC格式:LOC(N)功能: 返回文件号为N的指定文件的当前位置LOF格式:LOF(N)功能: 返回文件长度PRINT#格式:PRINT# 文件号,[USING 格式字符串;] 表达式[{,|;}]功能: 把数据写入顺序文件中WRITE#格式:WRITE# 文件号,表达式表功能: 把数据写入顺序文件中INPUT#格式:INPUT# 文件号,变量名功能:从顺序文件中读出数据,并把读出的数据赋给相应的程序变量LINE INPUT#格式: LINE INPUT# 文件号,字符串变量功能: 从顺序文件中读取一整行的数据,并赋给其后的字符串变量EOF格式: EOF(文件号)功能:检查文件是否已读完CLS格式:CLS[0|1|2]功能:清除部分或全部屏幕信息说明: CLS 0 清除整个屏幕,系统缺省值 CLS 1 如果利用VIEW语句设置过图形视见区,则清除该区,否则清除整个画面 CLS 2 清除文本视见区,但屏幕的最底行仍保持不变WIDTH格式: 1. WIDTH 宽度 2. WIDTH LPRINT 宽度功能: 语句格式1的功能是改变屏幕显示行的宽度,2的功能是改变打印机输出行的宽度SCREEN格式: SCREEN [模式][,颜色][,当前页][,可见页]功能: 设置屏幕显示方式PSET格式:PSET [STEP](X,Y)[,颜色号]功能:在指定的坐标位置上,以指定的颜色画一个点PRESET格式: PRESET [STEP](X,Y)[,颜色号]功能:在屏幕的指定位置(X,Y)上画一个点LINE格式: LINE[[STEP](X1,Y1)]-[STEP](X2,Y2)[,[颜色号],[,B[F]][,类型符]功能:在屏幕上画线段或矩形框CIRCLE格式: CIRCLE[STEP](X,Y)半径[,颜色][,起始角][,终止角][,纵横比]功能: 以(X,Y)为圆心,用给定的半径画圆 椭圆或圆弧DRAW格式: DRAW 字符串功能: 按语句中的字符串,逐步描绘出图形COLOR格式: 1. COLOR [前景色][,背景色][,边框色] 2. COLOR [背景色][,调色板]PAINT格式: PAINT [STEP](X,Y)[,颜色号][,边框色]功能:给一个封闭的图形,涂上指定的颜色和边框色VIEW格式: VIEW [[SCREEN](X1,Y1)-(X2,Y2)[,[颜色号][,边框色]]]功能:定义输出图形的屏幕尺寸VIEW PRINT格式: VIEW PRINT [顶行 TO 底行]功能: 在屏幕上定义一个文本输出区域WINDOW格式: WINDOW[[SCREEN](X1,Y1)-(X2,Y2)功能:定义当前视见区的逻辑尺寸GET格式: GET [STEP](X1,Y1)-[STEP](X2,Y2),数组名[(下标)]功能:把屏幕上指定区域的图形映象存放到"数组"中PUT格式: PUT[STEP](X,Y),数组名[(下标)][,显示方式]功能: 将GET语句所存入数组中的图形映象在屏幕所指定的区域重新显示出来BEEP格式: BEEP功能: 使电脑喇叭发出"嘟"的一声SOUND格式: SOUND 频率,音长功能: 使喇叭发出一定频率延时的声音PLAY格式: PLAY 命令字符串功能: 用给定字符串表示的音乐演奏

过时了，

/"kju: "beisik/

需要安装中文支持

QBasic与Quick BASIC都是微软在DOS平台下推出的BASIC编程软件，这两者很像，但有一些区别。相同点：语法完全的一样的，两者的源代码可以通用。不同点：QBasic是解释执行的，只能在QBasic的IDE环境下运行。Quick BASIC可以将源代码编译成exe文件，脱离Quick BASIC IDE环境直接在DOS下运行。

语法和Quick BASIC类似而又不同于微软其他BASIC的早期实现版本的是，QBASIC是一种结构化的编程语言。和GW-BASIC相比，QBASIC的主要改进是： 扩充了变量和常量的类型 变量名长度：40个字符 增加了长整型、定长字符型变量 可定义数值常量、字符串常量 提供了新的选择结构 条件语句 IF <条件> THEN <语句组1> ELSE <语句组2> END IF 多分支语句SELECT 改进了循环结构 增加以下两个循环语句: WHILE循环 WHILE <条件> <循环体> WEND DO循环 DO WHILE <条件> <循环体> LOOP 子程序和函数作为单独的模块 不需要行号 代码示例（赋值,求和运算,并显示结果）let A=10 let B=20 let C=A+B Print C 快捷键Ctrl+Break：中断正在运行的程序；F5：继续运行被中断的程序；Shift+F5：从第一条语句开始重新运行程序；F4：当程序中断运行时，查看运行结果屏幕，再按一次F4则切换回代码屏幕；F1：获得帮助 课件和视频可能找不到，对不起

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：获得帮助。 　　F2：切换主程序或SUB、FUNCTION。 编辑本段|回到顶部范例 范例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

QBASIC提供了标准函数。一个标准函数就是一段程序，它具有一种特定的功能。 我们在使用时只需写出它的名字(即函数名)和参数就可以直接调用。 QBASIC提供的标准函数包括：算术函数和字符串函数等。这些函数功能齐全、 用途广泛。这里主要介绍算术函数，有关字符串函数将以后章节中介绍。算术函数， 指调用函数后返回一个数值，本节主要介绍取整函数与随机函数。 取整函数随机函数1. 取整函数函数格式：INT(X)功能：产生一个不大于X的最大整数。其中，X可以是常数、变量或表达式。使用取整函数可以解决很多数学问题。(1)取一个数的整数部分例如：X=5.3: Y=5.5: Z=-6.1X=INT(X): Y=INT(Y): Z=INT(Z)PRINT X,Y,ZEND执行后屏幕上显示： 5 5 -7(2)四舍五入取整函数本身没有四舍五入的功能，但将其稍加变化就可以实现四舍五入。四舍五入的通式为：INT(X+0.5)。例1 将下面的数字保留整数部分，小数部分四舍五入。1.36 2.5 4.1 0.48FOR I=1 TO 4READ XPRINT X,INT(X+0.5)NEXT IDATA 1.36,2.5,4.1,0.48END执行后屏幕上显示：1.36 1 2.5 3 4.1 4 0.48 0(3)保留N位小数将X保留N位小数，可以先将X乘以10N,取整后再除以10N。通式为INT(X*10^N)/ 10^N。例2 将3.14159保留三位小数且最后一位小数四舍五入。X=3.14159Y=INT(X*1000+0.5)/1000PRINT X,YEND执行后屏幕上显示：3.14159 3.142(4)判断整除要判断一个整数X能否被另外一个整数Y整除，只需判断X/Y=INT(X/Y)，条件满足则为整除。例如：CLSINPUT X,YIF X/Y=INT(X/Y) THEN PRINT "能整除"ELSE PRINT "不能整除";END执行后屏幕上显示：? 30, 5 能整除? 30, 7 不能整除如果将除数改为2，则可以判断一个数的奇偶性。(5)分离数字要对一个三位数X分离数字，可以采用如下方法：百位数字B=INT(X/100)十位数字S=INT((X-B*100)/10)个位数字G=X-B*100-S*10例3 求100～999之间的所有水仙花数，并统计个数。水仙花数是指一个三位数，其中各位数字的立方和就等于该数本身。REM 求水仙花数N=0FOR X=100 TO 999B=INT(X/100)S=INT((X-B*100)/10)G=X-B*100-S*10IF X=B*B*B+S*S*S+G*G*G THEN N=N+1: PRINT X,NEXT XPRINT "N="; NEND执行后屏幕上显示： 153 370 371 471 N=4 2. 随机函数什么是随机数？我们可以这样理解：每次从若干个可能的数中抽出一个，抽出哪一个，事先不能确定，这样抽出的数叫做随机数。函数格式：RND(X)功能：产生一个0～1之间的随机数。其中，X可以是任意的数值，也可以忽略不写。在具体的程序中，无论RND(1)、RND(100)、RND(562)，RND产生随机数的效果是相同的，一般写成RND就可以了。为了能产生真正的随机数(即每次执行程序产生的数各不相同)，需要在程序的开头加上语句RANDOMIZE TIMER。使用随机函数还可以产生某一个区域中的随机数：A～B(不包括A和B)(B-A)*RND+A A～B(包括A和B)(B-A+1)*RND+A例4 算术练习程序。利用随机函数产生10道不同的两位数加法题，要求回答， 每答对一道题加10分，最后给出总得分。分析：先产生两个两位的随机整数，并显示在屏幕上。输入答案后判断结果是否正确，如果正确则加10分。如此重复10次即可。RANDOMIZE TIMERCLS : S=0FOR I=1 TO 10A=INT(90*RND)+10B=INT(90*RND)+10PRINT A; "+"; B; "=";INPUT CIF C=A+B THEN S=S+10 NEXT I PRINT "你的得分是："; SEND使用随机函数还可以模拟一些自然现象，得到统计数据。例5 模拟抛硬币试验。求硬币落地以后正面向上或反面向上的次数。 分析：产生一个随机整数，如果这个数是奇数，则将正面向上次数加1，否则将反面向上的次数加1。如此重复N次即可。RANDOMIZE TIMERCLSINPUT "N=";NFOR I = 1 TO NX = INT(RND * 100)IF X / 2 = INT(X / 2) THEN A = A + 1: GOTO 5B = B + 15 NEXT IPRINT "正面次数=";A, "反面次数=";BEND执行后屏幕上显示： N=? 100 正面次数=49 反面次数=51 N=? 1000 正面次数=505 反面次数=495 N=? 10000 正面次数=4975 反面次数=5025 从上面的结果我们可以看到，抛硬币的次数越多，正、反面的概率就越接近。

QBASIC的中文含义解释如下：QBASIC中的Q是Quick（快速）的缩写，微软曾经推出过Quck BASIC，这是一个可以编译成.exe文件的版本。QBASIC可以理解成去掉了编译功能的Qucik BASIC的简化版。BASIC 是英文：Beginners" All-purpose Symbolic Instruction Code 的缩写。意思就是：初学者通用符号指令代码”，其原意是一种设计给初学者使用的程序设计语言。

QBASIC是BASIC（Beginner"sAll-purposeSymbolicInstructionCode，初学者通用指令代码）语言的一个变种，由美国微软公司开发，1991年随MS-DOS5.0推出

yum

嗯，基础知识应该一样，不过到编程的时候就不一样了

用得我上数学课都用这个没问题.....