就业数据资源平台
当前位置:首页 > Visual FoxPro
全国计算机等级考试二级VFP习题及答案:第七章1

  一、判断题:


  123456789101112


  ×√×√√×√√√√×√


  二、单选题:


  12345678910


  DCDCCABBBA


  三、程序控制结构


  根据题目要求,编写相应的程序。


  参考答案:


  1、求出下列表达式的值(x、y的值从键盘输入):


  程序代码:


  SET TALK Off


  CLEAR


  INPUT "X=" TO X


  INPUT "Y=" TO Y


  Z=(X*Y+EXP(X+Y))/((X/Y)^3*LOG10(ABS(X-Y)))


  ?"X=",X,"Y=",Y,"Z=",Z


  SET TALK ON


  2、给定一个年份(从键盘输入),判断它是否闰年。闰年的条件是:能被4整除但不能被100整除,或能被100整除且能被400整除。


  程序代码:


  SET TALK Off


  CLEAR


  INPUT "Year=" TO Year


  if (year%4=0 and year0!=0) or (year0=0 and year@0=0)


  ?year,"是闰年"


  else


  ?year,"不是闰年"


  endif


  SET TALK ON


  3、从键盘输入数据A(可以是C、D、N、L、Y和U型等),通过类型判断,输出其数据类型的汉字说明(如A的值为“OK!”,那么输出应为:OK!——字符型数据)。


  程序代码:


  SET TALK Off


  CLEAR


  INPUT "A=" TO a


  do case


  case type('a')="C"


  ?a,"——字符型数据"


  case type('a')="D"


  ?a,"——日期型数据"


  case type('a')="N"


  ?a,"——数值型数据"


  case type('a')="L"


  ?a,"——逻辑型数据"


  case type('a')="Y"


  ?a,"——货币型数据"


  case type('a')="U"


  ?a,"——未定义"


  endcase


  SET TALK ON


  4、从键盘输入A、B、C三个数值,将它们从小到大排列后输出。


  程序代码:


  SET TALK Off


  CLEAR


  INPUT "A=" TO A


  INPUT "B=" TO B


  INPUT "C=" TO C


  if b

  d=a


  a=b


  b=d


  endif


  if c

  d=a


  a=c


  c=d


  endif


  if c

  d=b


  b=c


  c=d


  endif


  ?a,b,c


  SET TALK ON


  5、从键盘输入一个数值(0~9),要求输出其对应的中文大写数字(零~玖)。


  程序代码:


  SET TALK Off


  CLEAR


  C="零壹贰叁肆伍陆柒捌玖"


  INPUT "N=" TO N


  ?N,"--->"+SUBSTR(C,2*N+1,2)


  SET TALK ON


  6、将前面的1到5题,加上循环,使之被调用执行一次,并可以重复对不同的输入值完成相同的操作。


  提示:只要在需要重复执行的语句序列外加上循环控制结构即可。下面以第2小题循环3次,第5小题循环任意次为例说明。


  (6.2)循环3次


  程序代码:


  SET TALK Off


  CLEAR


  FOR I=1 TO 3


  INPUT "Year=" TO Year


  if (year%4=0 and year0!=0) or (year0=0 and year@0=0)


  ?year,"是闰年"


  else


  ?year,"不是闰年"


  endif


  ENDFOR


  SET TALK ON


  (6.5)循环任意次


  程序代码:


  SET TALK Off


  CLEAR


  ?"PRESS ESC TO EXIT---"


  C="零壹贰叁肆伍陆柒捌玖"


  DO WHILE .T.


  INPUT "N=" TO N


  ?N,"--->"+SUBSTR(C,2*N+1,2)


  IF INKEY(0)=27


  EXIT


  ENDIF


  ENDDO


  SET TALK ON

就业数据资源平台