VF程序设计编程题答案

第六章程序设计编程题(3)下面程序的运行结果是()[2008年4月选择题14]SETEXACTONS=ni+SPACE(2)IFs==niIFs=ni?oneELSE?twoENDIFELSEIFs=ni?threeELSE?fourENDIFENDIFRETURNA)oneB)twoC)threeD)four1.求园的面积（要求判断半径是否合理）CleaInpu‘r=’torIfr0S=3.14*r*r?sElse?’半径错误！’Endif2.求分段函数Y的值CleaInpu‘x=’toxIfx0Y=2*x+5ElseIfx=0Y=xElseY=abs(x)EndifEndif?y3.输入一个百分制成绩判断其等级（优/良/中/及格/不及格）CleaInpu‘cj=’tocjDocaseCasecj=90?’优’Casecj=80?’良’Casecj=70Y=2x＋5x0xx=0|x|x0?’中’Casecj=60?’及格’Orth?’不及格’Endcase4.输入若干个（个数不定）百分制成绩判断其等级（优/良/中/及格/不及格）CleaInpu‘请输入处理几个人的成绩：’tonFori=1tonInpu‘cj=’tocjDocaseCasecj=90?’优’Casecj=80?’良’Casecj=70?’中’Casecj=60?’及格’Orth?’不及格’Endcaseendfor5.求S＝1+2+3......+100CleaS=0Fori=1to100S=s+iEndfor?s6.求S＝1×2×3......×100Cleap=1Fori=1to100p=p*iEndfor?p7.求S＝1+3+5......+99CleaS=0Fori=1to99step2S=s+iEndfor?s8.求S＝1－2+3－4......－100CleaS=0Fori=1to100S=s+(-1)^(i+1)*iEndfor?s9.求S＝1+1/2+2/3+3/5......前10项之和CleaS=0A=1B=1Fori=1to10S=s+a/bT=aA=bB=t+bEndfor?s10.求S＝1！+2！+3！......+10！CleaS=0P=1Fori=1to10P=p*iS=s+pEndfor?s11.对学生表中所有入学成绩≥650分的学生免去贷款CleaUse学生Scanfor入学成绩=650.and.贷款否=.t.Repl贷款否with.f.EndscanUse12.输出图形CleaFori=1to4Forj=1toi??’*’Endfor?EndforCleaFori=1to4Forj=1to4-i??’’&&有一个空格EndforForj=1to2*i-1??’*’Endfor?EndforCleaFori=1to4Forj=1to4-i************************************************************************??’’&&有一个空格EndforForj=1toi??’*’Endfor?Endfor13.判断一个整数是否素数CleaInpu‘x=’toxFori=2tox-1Ifmod(x,i)0LoopElseExitEndifEndforIfix-1?x,’是素数’Else?x,’不是素数’Endif14.判断十个整数是否素数CleaForj=1to10Inpu‘x=’toxFori=2tox-1Ifmod(x,i)0LoopElseExitEndifEndforIfix-1?x,’是素数’Else?x,’不是素数’EndifEndfor15.找出两个数的大数和小数CleaInpu‘x=’toxInpu‘y’toyIfxy?x,’大’,y,’小’Else?y,’大’,x,’小’Endif16.找出三个数的最大数和最小数CleaInpu‘x=’toxInpu‘y’toyInpu‘z’tozIfxyt=xx=yy=tElseIfxzt=xx=zz=tendifendififyzt=yy=zz=tendif?x,’是最大数’,z,’是最小数’17.找出十个数的最大数和最小数CleaDimea(10)Fori=1to10Inputoa(i)EndforMax=a(1)Min=a(1)Fori=2to10Ifmaxa(i)Max=a(i)ElseIfmina(i)Min=a(i)EndifEndifEndfor?max,min18.找出2×3矩阵中的最大数和最小数cleadimea(2,3)fori=1to2forj=1to3input‘a(‘+str(I,2)+’,’+str(j,2)+’)=’toa(I,j)endforendformax=a(1,1)min=a(1,1)fori=1to2forj=1to3ifmaxa(I,j)max=a(I,j)elseifmina(I,j)min=a(I,j)endifendifendforendfor?’max=’,max,’min=’,min19.对三个整数从大到小排序ClearInput‘a=’toaInput‘b=’tobInput‘c=’tocIfabT=aA=bB=tElseIfact=aA=cc=tendifendifIfbcT=bA=cc=tendif?a,b,c20.对十个整数从大到小排序（用选择法和起泡法两种方法）选择法:ClearDimea(10)Fori=1to10Inputtoa(i)EndforFori=1to9Max=a(i)Num=iForj=i+1to10Ifmaxa(j)max=a(j)Num=jEndifEndforIfinumt=A(i)a(i)=a(num)a(num)=tEndifEndforFori=1to10??a(i),''Endfor起泡法：ClearDimea(10)Fori=1to10Inputtoa(i)EndforFori=1to9Forj=1to10-iIfa(j)a(j+1)t=A(j)a(j)=a(j+1)a(j+1)=tEndifendforEndforFori=1to10??a(i),''Endfor21.输出Fibonacci（斐波那契）数列的前十项ClearDimea(10)a(1)=1a(2)=1Fori=3to10a(i)=a(i-1)+a(i-2)EndforFori=1to10??A(i)Endfor22.输出杨辉三角的前十行ClearDimea(10,10)Fori=1to10A(I,1)=1A(I,i)=1EndforFori=3to10Forj=2toi-1A(I,j)=a(i-1,j)+a(i-1,j-1)EndforEndforFori=1to10Forj=1toi??A(I,j)Endfor?Endfor23.对2×3矩阵转置CleaDimea(2,3),b(3,2)fori=1to2forj=1to3inputtoa(I,j)endforendforfori=1to3forj=1to2b(I,j)=a(j,i)endforendforfori=1to3forj=1to2??b(I,j)Endfor?endfor24.求三位数中的所有水仙花数（即指一个三位数,其各位数字立方和等于该数本身）Cleaforx=100to999a=int(x/100)b=mod(int(x/10),10)c=mod(x,10)ifx==a*a*a+b*b*b+c*c*c?xEndifendfor25.求100以内的所有完数（即一个数恰好等于除它本身外的所有因子之和）Cleafori=3to100s=0forj=1toi-1ifmod(i,j)==0s=s+jendifendforifi==s?iendifendfor26.已知三角形的三边（从键盘输入），求其面积(S^2=p(p-a)(p-b)(p-c),p=(a+b+c)/2)Cleainput'a='toainput'b='tobinput'c='tocifa+bcanda+cbandb+cap=(a+b+c)/2s=sqrt(p*(p-a)*(p-b)*(p-c))?selse?'三边不能组成三角形'Endif27.求二元方程的根（分三种情况：两个不等实根，两个相等实根，无实根）cleainpu'a='toa&&a0inpu'b='tob&&b0inpu'c='toci=b*b-4*a*cifi0?方程无实根!elseifi==0r=(-b)/(2*a)?方程有两个相等实数根:,relsex1=(-b+sqrt(i))/(2*a)x2=(-b-sqrt(i))/(2*a)?方程有两个不相等实数根:,x1,x2endifendif28.输入任意一个五位整数，前后对应位置上的数据进行交换重新排列（即逆序排列）（例：25984→48952）cleadimea(5)inputoba(1)=int(b/10000)a(2)=mod(int(b/1000),10)a(3)=mod(int(b/100),10)a(4)=mod(int(b/10),10)a(5)=mod(b,10)fori=1toint(5/2)t=a(i)a(i)=a(6-i)a(6-i)=tendforc=a(1)*10000+a(2)*1000+a(3)*100+a(4)*10+a(5)?b,c29.找出一个3x3矩阵的“鞍点”，即该位置上的元素在该行上最大，在该列上最小（也有可能没有鞍点）cleadimea(3,3)flag=.t.fori=1to3forj=1to3input'a('+str(I,2)+','+str(j,2)+')='toa(i,j)endforendforfori=1to3max=a(i,1)col=1forj=2to3ifmaxa(i,j)max=a(i,j)col=jendifendformin=a(1,col)row=1fork=2to3ifmina(k,col)min=a(k,col)row=kendifendforifmax==min?a(row,col),'是鞍点，在',row,'行',col,'列'flag=.f.endifendforifflag==.t.?'无鞍点'endif30.求S(n)=a+aa+aaa+...+aaa....aaa(其中有n个a)之值，a是一个数字，n和a由键盘键入(例如：2+22+222+22222+22222，此时n=5)cleainpu'a='toainpu'n='tons=0t=afori=1tons=s+tt=a+t*10endfor?s1、属性表示对象的状态；方法描述对象行为的过程.2、域是指属性的取值范围.3、从两个关系中找出满足符合条件的元组或属性组成一个新的关系的操作称为联接.4、事件可以由系统引发，也可以由用户引发.5、关系模型是指用二维表的形式表示实体和实体间联系的数据模型.6、建立完整性的前提是先建立表之间的联系.7、关系数据库中每个关系的表示形式是二维表.8、用二维表数据来表示实体及实体之间联系的数据模型称为关系模型.9、任何一个数据库管理系统都是基于某种数据模型建立的。数据库管理系统支持的数据模型分为3种：关系模型、层次模型、网状模型.10、VisualFoxpro的程序设计方式有面向过程，面向对象两种.11、关系数据库的3种关系运算是选择，投影，联接.12、若关系中的某一属性组的值能惟一地标识一个元组，则称该属性组为关键字.13、项目管理器用于将一个应用程序文件的所有文件集合成一个有机的整体，形成一个扩展名为.pjx的项目文件.14、字符型常量也叫字符串，由可打印的字符或汉字构成。字符型常量必须用定界符括起来，定界符有3种，分别为单引号（’），双引号（”）,方括号（【】）.15、LEN（）函数的返回值为数值型数据.16、函数的一般形式为函数