2012年3月计算机VB二级考试题.pdf

一.选择题1在 Visual FoxPro 中，用来建立程序文件的命令是_(A)_。AOPEN COMMAND文件名BMODIFY 文件名CMODIFY COMMAND文件名D以上答案都不对2在 Visual FoxPro 中，INPUT 命令用来 _(A)_。A暂停执行程序，将键盘输入的数据送入指定的内存变量后再继续执行B结束当前程序的执行，返回调用它的上一级程序C暂停执行程序，将键盘输入的字符串送入指定内存变量后继续执行D以上答案都不正确3在 Visual FoxPro 中，执行程序文件的命令是_(A)_。ADO 文件名BOPEN 文件名CMODIFY 文件名D以上答案都不对4在 Visual FoxPro 中，QUIT 命令用来 _(D)_。A终止运行程序B执行另外一个程序C结束当前程序的执行，返回调用它的上一级程序D退出应用程序5在 Visual FoxPro 中，程序文件的默认扩展名为_(B)_。A pgr B prg C cdx D dCX 6保存程序文件的快捷键为_(C)_。ACtrl 十 W BShin 十 w CCtrl 十 S DShift 十 S 7在“命令”窗口中输入DEBUG 命令的结果是_(A)_。A打开“调试器”窗口B判开“跟踪”窗口C打开“局部”窗口D打开“监视”窗口8在 Visual FoxPro 中，打开“调试器”窗口后，默认显示_(C)_ 三个子窗口。A跟踪、监视、调试输出B监视、局部、调试输出C调用堆栈、监视、局部D以上答案都不对9在 Visual FoxPro 中，包括 _(D)_ 程序结构。A顺序结构B选择结构C循环结构DA,B,C 二填空题1程序是 _。它被存放在称为_或_的文本文件中。（能够完成一定任务的命令的有序集合，程序文件，命令文件）2在 Visual FoxPro 中，程序结构是指_。（程序结构是指程序中命令或语句执行的流程结构。）3在 Visual FoxPro 中，程序调试是指_。（在发现程序有错误时，确定出现的位置并纠正错误）4在 Visual FoxPro 中，支持选择结构的语句有_。（条件语句，分支语句）三编程题1试编写一个程序，求一元二次方程ax2+bx+c0 的根。1根据一元二次方程的系a，b，c 的取值，有以下几种情况：(1)当 a0 时，有两个根设 delta b2-4ac 当 delta 0 时，方程有两个不同的实根当 delta 0 时，方程合两个相同的实根当 delta o 时，方程有两个不问的虚根(2)当 a=0 时，b0 时，有一个根(3)当 a=0 时，b0 时，方程无意义根据以上的分析画出流程图，如下所示：如 果 delta0 真 有 两 个 实 根如 果 delta=0 真 有 两 个 相 等 实 根假假 有 两 个 相 异 虚 根如果 b0 真 有 一 个 根方 程 无 意 义有了流程图，编写这个程序的思路就清晰了，编写程序如下：程序文件名：PA14PRG 功能：求一元二次方程的根SET TALK OFF CLEAR INPUT 请输入 a 的值:TO a INPUT 请输入 b 的值:TO b INPUT 请输入 c 的值:TO c IF a0&有两个根delta=b2-4*a*c re=-b/(2*a)IF delta0&有两个不同实根sb=SQRT(delta)/2*a?方程有两个实根:pl=Xl=+STR(re+sb,9,4)p2=X2=+STR(re-sb,9,4)?Pl?P2 ELSE IF delta=0&有两个相同实根?方程有两个相同的实根:?x1 x2=+STR(re,9,4)ELSE xb=SQRT(-delta)/(2*a)&仅有两个虚报?方程有两个虚根 p1=xl=+STR(re,7,3)+IIF(xb=1,STR(xb),7,3)+i p2=x2=+STR(re,7,3)+IIF(xb=1,STR(xb),7,3)+i?p1?p2 ENDIF ENDIF ENDIF IF a=0&仅有一个根ygz=-b/C?方程仅有一个根:?X=+STR(ygZ)ENDIF 2 我国古代数学家张丘建在“算经”里提出一个世界数学史上有名的百鸡问题：鸡翁一，值钱五，鸡母一，值钱三，鸡雏三，值钱一，百钱买百鸡，问鸡翁，母，雏各几何?【分析】设公鸡x 只，母鸡y 只，小鸡z 只，依题意可列出以下方程组：x+y+z=100 5x+3y+z/3=100 这是一个不定方程，无法直接求解。可用“穷举法”，将各种可能组合一一测试，然后将符合条件的组合输出即可。为了使编程思路更加清晰，画出如下流程图：编写程序如下：*程序文件名：PA16.PRG set talk off CLEAR K=2 FOR X=1 to 100 真 输出 X，Y，Z 如果 5*X+3*Y+Z/3=100 Z 100 XY Y从 1100 X从 1100 FOR Y=1 to 100 Z=100-X-Y IF 5*X+3*Y+Z/3=100?鸡翁：+STR(X,3)?鸡母：+STR(Y,3)?鸡雏：+STR(Z,3)K=K+1 ENDIF ENDFOR ENDFOR set talk on