有如下程序:
term=1
FOR j=1 TO 5
term=term*j+term
NEXT j
PRINT term
END
运行后的输出是______。
解析:该程序循环体共循环五次,第一次term=1*1+1=2;第二次term=2*
2+2=6;第三次term=6*3+6=24;第四次term=24*4+24=120;第五次term=120*5
+120=720。因此应输出720。
13、有如下程序:
DECLARE SUB ab(x,y)
a=90:b=36
CALL ab(a,b)
END
SUB ab(x,y)
IF y=0 THEN
PRINT x
ELSE
CALL ab(y,x MOD y)
END IF
END SUB
运行后输出的值是______。
解析:主程序以地址传递方式调用子程序ab,由于参数Y的值为36,不为0,则递归调用ab,实际参数的值分别为36、18,Y仍不为0,需继续调用ab,此时实际参数的值为x=18、y=0,程序打印出X,退出子程序。因此输出结果为18。
14、有如下程序:
a$="1234567"
FOR m=1 TO 4
PRINT TAB(5-m);______
NEXT m
END
运行后的输出结果如下:
4
345
23456
1234567
但程序不完整请在______处补充使之完整。
解析:从输出结果看,显然是要在FOR循环中,从a$中取出若干个字符打印出来,同时,每次取出的个数分别为1、3、5、7,可用2*m-1表 示;而每次取出的起始位置依次为4、3、2、1,可用5-m表示,在QBASIC语言中,可用MID$函数从一个字符串中取出若干个字符,因此空格处应填:MID$(a$,5-m,2*m-1)
15、有如下程序计算从1到10的平方和并输出结果:
sum=___1___