Basic，源远流长的编程语言
qbasic语句(basic语言常用语句)
qbasic语句(basic语言常用语句)
说起Basic，它是最古老的高级编程语言之一（1964年创建），在70年代得到很大的发展。那时候的个人计算机，Basic编程语言是必备的程序，像当时如日中天的苹果电脑很多机型就只配备了Basic编程语言，大名鼎 鼎的微软公司就是靠为苹果电脑，IBM电脑开发Basic程序起家的。随着DOS和Windows作系统的出现，电脑初学者不用先学习Basic了，但Basic作为一种编程语言仍然在高速发展。
作为新手入门最合适的语言，八有着辉煌的过去，当年比尔.盖茨还不是从BASIC起家的吗！但是后来BASIC一度因为它的结构混乱而不敌C语言之类结构化的语言低迷了一阵，自从结构化的Quick Basic推出特别是Visual Basic推出之后这种情况更是发生了巨大的变化，BASIC不光是一种初学者的语言也成了一种功能强大的Windows开发工具了。 我们可以很快的通过学basic走进编程的大门，也可以在熟练之后开发出强大的Windows应用程序 .
Basic语言的特点
语法简单，语句与常用英语相似，容易理解；
概念，基本语句较少，没有复杂的概念如指针等；
处理图像，音乐，字符串非常方便；
可以解释执行，调试程序非常方便；
不受硬件限制，编程不用了解内存，中断等。
几乎被淘汰了
一种很基本的语言 入门很简单
但是 性能与现在流行的语言没法比
建议 如果是编程入门可以学一下
不建议 作为发展方向
qbasic4.5的“TAB”和“PRINT USING”语句谁能具体的讲一下？
PRINTTAB语句：
TAB函数只能和PRINT语句联合起来使用，语法如下：
PRINT TAB(X);内容
意思是说先输出X个空格再输出内容。
比如：
FOR I=1 TO 20
PRINT TAB(I2);STRING(I,"")
NEXT I
结果：
PRINT USING语句：
按照要求的格式输出数据。
格式：
PRINT USING <格式>;<内容表列（用“；”分开）>
#：
每个#占一个数字的位置，比如
PRINT USING "####.####";32.768
结果是：
32.768
（前面有两个空格，后面有一个空格，
因为32占两个字的位置，768占一个字的位置）
^^^^：指数形式。
$$、、$ 它们分别显示一个$、一个和显示$.
&：显示整个字符串。
！：显示字符串的个字符
数组：
如果要使用许多个变量（如1000个），用简单变量不能起作用，可以用数组。
定义数组的办法：
DIM 数组名称（下标）
如定义一个A$(20)
就有
A$(1),A$(2),A$(3)......A$(20)
刚才是一维数组的表示法，二维数组表示法是：
数组名称（下标1，下标2）
如：
A$(20,10)
这样就有：
A$(1,1),A$(1,2),A$(1,3),......,A$(1,10)
A$(2,1),A$(2,2),A$(2,3),......,A$(2,10)A$(3,1),A$(3,2),A$(3,3),......,A$(3,10)
......
A$(20,1),A$(20,2),A$(20,3),......,A$(20,10)
子程序我没用过，不熟悉。
怎样在qbasic的音乐语句中，编程打出？
QBASIC中的PLAY语句和通用的发声语句SOUND用于产生简单的音乐，效果一般。
简单地讲解一下：
你在QBASIC中输入下面语句，就可以产生《友谊地久天长》的音乐，但速度可能与CPU的主频有关，效果也是一般。
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
而SOUND语句主要是根据不同的频率产生，格式是SOUND 频率，持续时间 。频率范围37-32767，持续时间是0-65535，如在QB中输入SOUND 440,18 可以产生一定频率和时长的声音。这两个指令产生的效果都一般，如果你要是制作音效较好的音乐，可以考虑使用比较成熟的《作曲》软件。
通过QB编程是无法制作出音效丰富的音乐的。希望能够帮助到你。
求QBASIC 高一几个算法语句
1、输入一个三位数 求各位数之和
CLS
DO
PRINT "please input a number(100 INPUT x LOOP UNTIL x >= 100 AND x <= 999 a$ = LEFT$(LTRIM$(STR$(x)), 1) b$ = RIGHT$(LTRIM$(STR$(x)), 1) c$ = MID$(LTRIM$(STR$(x)), 2, 1) x = VAL(a$) + VAL(b$) + VAL(c$) PRINT x END 2、输入三数，除去值取剩下两数的平均 CLS PRINT "please input three number" INPUT a(1), a(2), a(3) max = 0 FOR i = 1 TO 3 IF a(i) > max THEN max = a(i): b = i NEXT i a(b) = 0: b = 0 FOR i = 1 TO 3 b = a(i) + b NEXT i b = b / 2 PRINT b END 3、输出100的所有正约数，并计算满足条件的个数 CLS FOR i = 1 TO 100 IF 100 MOD i = 0 THEN PRINT i; : a = a + 1 NEXT i PRINT PRINT "The total", a END 1、输入一个三位数 求各位数之和 CLS DO PRINT "please input a number(100 INPUT x LOOP UNTIL x >= 100 AND x <= 999 a$ = LEFT$(LTRIM$(STR$(x)), 1) b$ = RIGHT$(LTRIM$(STR$(x)), 1) c$ = MID$(LTRIM$(STR$(x)), 2, 1) x = VAL(a$) + VAL(b$) + VAL(c$) PRINT x END 2、输入三数，除去值取剩下两数的平均 CLS PRINT "please input three number" INPUT a(1), a(2), a(3) max = 0 FOR i = 1 TO 3 IF a(i) > max THEN max = a(i): b = i NEXT i a(b) = 0: b = 0 FOR i = 1 TO 3 b = a(i) + b NEXT i b = b / 2 PRINT b END 3、输出100的所有正约数，并计算满足条件的个数 CLS FOR i = 1 TO 100 IF 100 MOD i = 0 THEN PRINT i; : a = a + 1 NEXT i PRINT PRINT "The total", a END 这种题小学生都会！ 1、输入一个三位数 求各位数之和 CLS INPUT A DO H=A MOD 10 S=S+H A=A 10 LOOP UNTIL A=0 PRINT S END 2、输入三数，除去值取剩下两数的平均 CLS DIM A(3) FOR I=1 TO 3 INPUT A(I) NEXT I FOR I=1 TO 3 IF A(I)>X THEN X=A(I) S=S+A(I) NEXT I S=S-X PRINT S/2 END 3、输出100的所有正约数，并计算满足条件的个数 CLS FOR I=1 TO SQR(100)-1 IF 100 MOD I=0 THEN PRINT I; S=S+1 END IF NEXT I PRINT SQR(100) PRINT S+SQR(100) END 以下程序已在qbasic环境中运行成功！！ 1, cls do input a$ loop until len(a$)=3 l=len(a$) s=0 for i=1 to l s=s+val(mid$(a$,i,1)) next i ? s end 2. cls input "a,b,c=",a,b,c if a>b then max=a else max=b if max ? (a+b+c-max)/2 end 3. cls s=0 for i=1 to sqr(100) if 100 mod i=0 then ? i;100/i; s=s+1 next i ? s end 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.718282 LOG （对数函数） 格式：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 IF CASE （条件语句） 格式： 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 命令字符串 功能: 用给定字符串表示的音乐演奏 当然可以啦 只不过要用文件读写（从一个文件输入数据，从另外一个文件输出） 按照你提出的问题，我可以写出这样一个程序 CLS 清屏幕语句 OPEN "input.in" FOR INPUT AS #1 打开文件input.in OPEN "input.out" FOR OUTPUT AS #2 将结果输出到input.out DIM N AS LONG 变量定义（所有变量要先定义后使用） INPUT #1,N 从input.in文件里读入n DIM A(1 TO N) AS LONG 定义a数组 FOR I=1 TO N 循环语句 INPUT #1,A(I) 从input.in文件中读入a（i）（i会和循环一起变） NEXT I 下一个i END 结束 文件读写：你可以再next i后面加上运算和打印（注：打印语句一定要打到文件里，此题打到input.out文件中，就要把原来的PRINT 变量/表达式 变成 PRINT #2，变量/表达式）在文件读写中把程序打到qbasic.exe里，保存，要养成随时保存的好习惯（加入 ：OPEN "input.in" FOR INPUT AS #1 和OPEN "input.out" FOR OUTPUT AS #2 为文件读写和其他方式的不同，引号里的文件名可以改，但后缀名本人建议不要改） 在qbasic里处理完这些之后，你在和qbasic.exe同一个目录下建立一个文本文档，将其重命名为.IN的文件（为你首先open的文件名，不包括后缀名，如本题为input.IN文件)要是你在重命名时看不到后缀名：.TXT的话，点开屏幕上一行的工具，文件夹选项，查看，（往下拉找到）隐藏已知文件的扩展名（点一下，将对勾去掉），应用，确定。（以逗号分隔步骤）这样就可以找到.txt这个后缀名了，将其改成.in文件。把这个文件用记事本打开在里头输入你要输的数据（这个程序就可以像你那样输了^_^）之后保存关闭。在打开你在qbasic里写的那个程序，按键盘上的F5，这时你要打印的数据已经进入到.OUT文件中（这个文件系统将自动建立到和qbasic一个的目录里。用记事本打开系统建立的这个文件之后，你会发现这个文件中输出的，就是原先在qbasic窗口里输出的一样。 ！这种方式一般是用在比赛当中的！ 文件读写也可以满足将数据输入在一行 ，中间用空格连开的题！ 我的希望对你有帮助! 和Next配对使用，For是循环开始，Next是循环结束。 For是一个循环语句，执行完循环内的语句后，就执行Next，之后就会返回For那一行再次循环，这时，循环变量会加一个步长，在没有标明步长的时候，步长默认为1，除非在循环后加Step，如：For a=1 to 10 step 2，这样的话a每次循环都会加2，次是1，第二次是3，第三次是5……直到循环变量超过终值。 如： For i=1 to 5 a=a+1 next i print a end 这里的i就是循环变量，5就是终值。当i超过5时，就会跳出循环。而“a=a+1”就是循环内的语句，将要被执行5次。 要与next配对使用。 例如，下面一段程序： dim a(3) for i=1 to 3 input a(i) next i for i=1 to 3 print a(i) next i end 格式为： for <循环控制变量>=<初值>to<种植>step<步长> <循环体> next <循环控制变量> 注：当步长为1时可以不写，见上面的程序。 for 变量= 初值（任意一个数）to 终值（任意一个数）step 步长（任意一个数）（如果初值大于终值，步长为负数） …… next（可以不写一开始for 后面的变量，但我建议要写） 版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容， 836084111@qq.com 举报，一经查实，本站将立刻删除。
