QBASIC练习题(一VIP专享VIP免费

1 QBASIC 程序设计练习 姓名:_ _ _ _ _ _ _ _ 总分:_ _ _ _ _ _ _ 1. 写出下列程序的运行的结果 LET X=5 LET Y=3 LET S=(X+Y)/2 PRINT “S=”；S END 运行结果:_______ （4 分） 2. LET M＝3 LET N＝0 LET S＝M*N LET N＝2 PRINT S END 程序的运行结果是______。（4 分） 3. 完善程序。求半径为 2 的圆的面积。(π取 3.14,R 的平方不能写成 R*R) R=2 S=3.14*_______ PRINT S END （4 分） 4. a=1 b=2 c=3 a=b b=c c=a PRINT a;b;c END 程序运行结果是 2 3 _______（4 分） 5. 写出下列程序的运行的结果 2 LET X=999 LET X=ABS(X-1000) PRINT “SQR(X)”;“=”;SQR(X) END 运行的结果:_______ （4 分） 6. 求积 M=1*2*3*…*10 M=1 FOR A=1 TO 10 M=________ NEXT A PRINT "M="；M END （4 分） 7. LET A=1 LET B=69 C=A+B D=A*B PRINT “D=”; D END 程序的运行结果是：___________ （4 分） 8. 求：1+1/2+1/3+1/4+…+1/100的值 LET S＝0 FOR I＝1 TO 100 LET S＝S+________ NEXT I PRINT S END （4 分） 9. 写出下列程序的运行的结果 INPUT A,B,X LET A=A+X LET B=X-B LET S=A+B+X 3 PRINT S END ①输入 1，2，3 运行的结果:_______（4 分） 10. 写出下列程序的运行的结果 LET A=1 LET B=7 LET A=A+B LET B=A+B PRINT A,B END 运行的结果:8______（4 分） 11. 请设计一个判断某数是偶数的程序，要求若是偶数则打印出“YES”，否则直接打印出这个数的值。 INPUT X IF X/2=_______THEN PRINT "YES" ELSE PRINT X ENDIF END （4 分） 12. 写出下列程序的运行结果 INPUT X IF X<0 THEN LET Y=-X ELSE LET Y=X END IF PRINT “ABS(X)=”；Y END ①输入 99 结果为：_______ （4 分） 13. 写出下列程序的运行的结果 4 LET A=7 LET B=8 INPUT K$ IF K$=“+”THEN PRINT A+B ELSE PRINT A-B END IF END ①输入“-” 结果为：_______ （4 分） 14. 输入一个数，如果这个数不等于零，那么输出他的倒数，否则不显示。 INPUT X IF X______0 THEN Y=1/X PRINT Y END IF END （4 分） 15. 完善程序:对输入的任意二个数，输出其中的大数的绝对值。 INPUT A,B IF A>B THEN Y=_______ ELSE Y=ABS(...