QB程序修改题.doc

（二）程序修改题1、给定程序modi.bas其功能是：根据给定的x值，计算　　┌ x (x=5或10时)y = ┤ x*x (x0时)　　└ x#[+0.5#! (其它)但程序有错, 请改正之。注意: 不得增行或删行, 也不得更改程序的结构!CLSINPUT x=; xSELECT CASE x**********found********CASE 5 10y = x**********found*********CASE x 0y = x * xCASE ELSE**********found*********y = sqrt(x)END SELECTPRINT x=; x, y=; yEND参考答案：1、CASE 5 10改为case 5,10或case 10,5或case is=5,is=10或case is=10,is=52、CASE x 0改为case is 03、y = sqrt(x)改为y=sqr(x) 2、给定程序modi.bas其功能是: 将两个字符串a$和b$连接在一起, 然后计算连接串中英文单词的个数(注意: 各单词之间只有一个空格)。但程序有错, 请改正之。注意: 不得增行或删行, 也不得更改程序的结构!CLSa$ = I want to b$ = learn English**********found********c$=a$ b$n = 1: k = 1DOp = INSTR(k, c$, )IF p 0 THENn = n + 1*********found********k = pELSE**********found********EXIT FOREND IFLOOPPRINT n=; nEND参考答案：1、c$=a$ b$改为c$=a$+b$2、k = p改为k=p+1或k=1+p3、EXIT FOR改为exit do 3、给定程序modi.bas其功能是: 在屏幕5行7列的位置输出字符串Welcome to Beijing!; 画出以(150,150)为圆心坐标, 半径为50,起始位置为30度线,终止位置为45度线构成的一扇形封闭区域。要求圆周率取3.14, 以常量定义形式存入常量pi中。但程序有错, 请改正之。注意: 不得增行或删行, 也不得更改程序的结构!CLS**********found********DEF pi = 3.14SCREEN 1**********found********GOTO 5, 7PRINT Welcome to Beijing!**********found*********CIRCLE (150, 150), 50, , pi / 6, pi / 4END参考答案：1、DEF pi = 3.14改为CONST pi=3.142、GOTO 5, 7改为LOCATE 5,73、CIRCLE (150, 150), 50, , pi / 6, pi / 4改为CIRCLE (150,150),50,,-pi/6,-pi/4或CIRCLE (150,150),50,,-3.14/6,-3.14/44、给定程序modi.bas其功能是: 某单位制订生产计划, 未来五年的生产量年递增率为5%,从第六年起年递增率调整到8%, 试计算产量翻一番(基数的2倍)所需的最少年数。但程序有错, 请改正之。注意: 不得增行或删行, 也不得更改程序的结构!CLSs = 1: n = 0DOn = n + 1IF n 5 THEN**********found********s = s * (1 + .08) ^ (n - 5)ELSE**********found********s = s * (1 + .05) ^ nEND IFPRINT n; year(s), s**********found********IF s 2 THENEXIT DOEND IFLOOPPRINT n=; nEND参考答案：1、s = s * (1 + .08) ^ (n - 5)改为s=s*(1+.08) s=s*1.08或s=1.08*s s=(1+.08)*s2、s = s * (1 + .05) ^ n改为s=s*(1+.05) s=s*1.05或s=1.05*s s=(1+.05)*s3、IF s 2 THEN改为IF s=2 THEN 或IF s2 THEN或IF 2=s THEN或IF 2s THEN或IF (s=2) THEN或IF (s2) THEN或IF (2=s) T