1、数据库 上机考试 整理资料2. 从键盘输入一个正数，让计算机判断该数是奇数还是偶数。input 请输入一个正数 to xd=x%2if d=0?该数是偶数else?该数是奇数endif3. 从键盘输入一个口令，判断是否和系统口令“SQL”相符。accept请输入口令 to xif x=sql?欢迎使用本系统else?密码错误endif4.输入两个数，把它们按从小到大的顺序输出。input 请输入一个数 to ainput 请输入另一个数 to bif ab?b,aelse ?a,bendif5. 从键盘输入三角形的三条边，计算该三角形的面积。input 请输入三角形的边 to ainput 请
2、输入三角形的边 to binput 请输入三角形的边 to cif a+bc and a+cb and b+car=(a+b+c)/2s=sqrt(r*(r-a)*(r-b)*(r-c)?s=+str(s,4)else?无这个三角形endif 6. 编一个程序，计算任意一元二次方程的根。要求用IF语句完成。input 输入一个数a= to a input 输入一个数b= to b input 输入一个数c= to cd=b2-4*a*cif d0?无实数根elsex1=(-b+sqrt(d)/(2*a)x2=(-b-sqrt(d)/(2*a)?x1=,substr(x1,4),x2=,subs
3、tr(x2,4)Endif7. 编一个程序，计算任意一元二次方程的根。要求用DO CASE语句完成。input 输入一个数a= to ainput 输入一个数b= to binput 输入一个数c= to cd=b2-4*a*cdo casecase dox1=(-b+sqrt(d)/(2*a)x2=(-b-sqrt(d)/(2*a)?x1=+substr(x1,4),x2=+substr(x2,4)case d=0?x2=x1=+substr(x2,4)endcase8. 从键盘输入一个09的数字，把它转换为对应的大写数字。input 输入一个0-9的数字 to xdo casecase x
4、=0?零case x=1?壹case x=2?贰case x=3?弎case x=4?肆case x=6?陆case x=7?柒case x=8?扒case x=9?玖endcase11. 编一个程序，输入两个数，输出值大的那个数。要求用IIF函数实现。input 输入一个数 to ainput 输入另一个数 to b?最大数是=, iif(ab,a,b)9. 从键盘输入一个值，判断它的类型。input请输入一个值 to xdo casecase type(x)=N?数值型case type(x)=C?字符型case type(x)=D?日期型case type(x)=L?逻辑性endcase
5、10. 输入考试分数，显示该分数对应的等级（优，良，及格和不及格）。input 数入考试分数 to ado casecase a=90?优case a=80?良case a=60?及格case abt=aa=bb=tendifif act=aa=cc=tendifif bct=bb=cc=tendif?c,b,a13. 编一个程序，计算1+2+3+100s=0n=1do while n=100s=s+nn=n+1enddo?1+2+3+4+5+.+100=+str(s,6,2)14. 编一个程序，计算10！s=1n=1do while n=10s=s*nn=n+1enddo?1*2*3*4*5
6、*.*10=+str(s,6,2)15. 编一个程序，计算1+3+5+99s=0n=1do while n=99s=s+nn=n+2enddo?1+3+5+.+99=+str(s,6,2)16. 编一个程序，计算1/1!+1/2!+1/3!+1/10!s=1n=1t=0do while n10-4t=t*nn=n+1s=s+1/tenddo?s=+str(s,6,4)18. 输入一个正整数，输出各位数之和。input 请输入一个数 to as=0do while a0p=a%10s=s+pa=int(a/10)enddo ?各位数之和=+str(s,8)17. 输入一个正整数，输出其最大数码。
7、例:数值1543，最大数码为5。D=0Input 请输入一个正数= to MDo while M0 P=M%10 If PD D=P Endif M=Int(M/10)Enddo? 最大数码=+Str(D,1)18 从键盘输入一个09的数字，把它转换为对应的大写数字。要求用substr函数实现。INPUT 请输入一个0-9的数字： TO NC=零壹贰叁肆伍陆柒捌玖?对应的大写数字为：+SUBSTR(C,2*N+1,2)19. 编一个程序，计算1!+3!+5!+11!S=0T=1FOR N=1 TO 11 T=T*N IF N%2!=0 S=S+T ENDIFENDFOR?1!+3!+5!+.+
8、11!=,SS=0FOR N=1 TO 11 STEP 2 T=1 FOR M=1 TO N T=T*M ENDFOR S=S+TENDFOR?1!+3!+5!+.+11!=,S20 通过字符串变量的操作，竖向显示:伟大祖国。横向显示:祖国伟大XY=伟大祖国 N=1DO WHILE N3?你无权使用本系统！endif8.从键盘输入一元二次方程的三个系数a,b,c，如果方程有实根，则计算并输出实根，否则输出“该方程无实根！”。然后在屏幕上输出“是否继续？Y-继续，N-结束：”，从键盘输入Y后继续求下一个方程的根，输入N则结束程序运行。Do while .t.input 请输入一个数： to ai
9、nput 请输入一个数： to binput 请输入一个数： to cp=b*b-4*a*cif p=0x1=(-b-sqrt(p)/(2*a)x2=(-b+sqrt(p)/(2*a)?x1=+str(x1,6,2)+x2=+str(x2,6,2)else?该方程无实根！endifwait 是否继续？Y-继续，N-结束 to YN if upper(YN)=Nexitendif enddo9. 编写一个自定义函数，计算给定三条边的三角形的面积。然后计算边长为3，4，5的三角形面积。? 三角形面积=,TriangleArea(3,4,5) else func TriangleArea retur
10、n 0para a,b,c endif if a+bc and a+cb and B+CA endfs=(a+b+c)/2area=sqrt(s*(s-a)*(s-b)*(s-c)return area P199第七题 在VISUAL FOXPRO主窗口显示输出九九表.SET TALK OFFCLEAFOR I=1 TO 9 FOR J=1 TO I ?STR(I,1)+*+STR(J,1)+=+STR(J*I,2)+ ENDFOR ?ENDFORSET TALK ONP199第八题 显示输出正整数M(从键盘输入)内的偶数及偶数和.SET TALK OFFCLEAINPUT M= TO MS=
11、0FOR I=1 TO M IF I%2=0 ?I S=S+I ENDIFENDFOR?SSET TALK ONP199第十题 求当1!+3!+5!+.+n!的值不超过1020时的临界值及n的值.SET TALK OFFCLEASTORE 1 TO T,S,NDO WHIL S0 p=mod(m,2) c=str(p,1)+c m=int(m/2) enddoelse c=11111endif? cset talk on【供选择的答案】1.当X输入为34时，输出值C为。 a.11111 b.100010 c.000010 d.1000012. 当X输入为23时，输出值C为。a.00010 b.
12、11111 c.10111 d.100003. 当X输入为23.6时，输出值C为。a.10001 b.10111 c.00010 d.111114. 当X输入为-23时，输出值C为。 a.空串 b.11111 c.00010 d.出错试题三、问答题阅读下列程序回答问题SET TALK OFFINPUT “请输入任意正整数A=” TO AINPUT “请输入任意正整数B=” TO BIF A0 p=mod(m,2) c=str(p,1)+c m=int(m/2) enddoelse c=11111endif? cset talk on【供选择的答案】1.当X输入为34时，输出值C为。 a.111
13、11 b.100010 c.000010 d.1000012. 当X输入为23时，输出值C为。a.00010 b.11111 c.10111 d.100003. 当X输入为23.6时，输出值C为。a.10001 b.10111 c.00010 d.111114. 当X输入为-23时，输出值C为。 a.空串 b.11111 c.00010 d.出错答案：1 b 2 c 3 d 4 a试题三、问答题阅读下列程序回答问题SET TALK OFFINPUT “请输入任意正整数A=” TO AINPUT “请输入任意正整数B=” TO BIF AB T=A A=B B=TENDIFC=0DO SP WI
14、TH A,B? “C=”,CRETURNPROC SPPARA X,YFOR N=X TO X*Y STEP X IF MOD(N,Y)=0 EXIT ENDIFENDFORC=NRETURNENDPROC【问题】当A和B的输入值分别为4和6时，C的输出结果为_当A和B的输入值分别为10和6时，C的输出结果为_本程序的功能是：_答案：当A和B的输入值分别为4和6时，C的输出结果为_12_当A和B的输入值分别为4和6时，C的输出结果为_30_本程序的功能是：求两个数的最小公倍数试题四、程序设计题（2题）现有若干张发票（发票张数不详），编程统计并输出这些发票的张数和总金额。（提示：用DO WHILE循环实现，每次输入一张发票的金额后，进行发票张数计数和金额累加。当输入0时，退出循环，输出统计结果）SET TALK OFFCLEARS=0N=0DO WHILE .T. INPUT “请输入发票金额：” TO Y IF Y=0 EXIT ENDIF S=S+Y N=N+1ENDDO? “发票的总金额：”，S? “发票的张数是：”，NSET TALK ON
