VisualFxoPro程序
设计
领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计
题1．编写程序，从键盘输入一个日期，查询STUDENT
表
关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf
中该日期以后出生的学生信息并显示在浏览窗口中。usestudent&&运行前单击教学管理数据库input“请输入某日期:”torq*输入时有提示，或inputtorq输入时无提示，输{^1987-01-01}browsefor出生日期>rq2．有一函数：x（x<1)y=2x-1（1≤x＜10)3x-11（x≥10）编写程序，输入x，输出y的值。clearinput"Enterxplease!"toxifx<1y=xelseifx<10y=2*x-1elsey=3*x-11endifendif'x=',x,'y=',y3．编写程序，从键盘输入一个年份，判断它是否闰年。clearinput"Enteryearnumberplease!"toyify%4=0andy%100<>0ory%400=0y,"isaleapyear!"elsey,"isnotleapyear."Endif4．编写程序，输入一个百分制成绩，要求输出成绩等级“A”、“B”、“C”、“D”、“E”。90分以上为“A”，80～89分为“B”，70～79分为“C”，60～69分为“D”，60分以下为“E”。clearinput“请输入一百分制成绩”tocjdocasecasecj>=90”A”casecj>=80”B”casecj>=70”C”casecj>=60”D”otherwise”E”endcase5．编写程序，从键盘输入一个正整数M，输出M内（包括M）所有偶数。clearinputtomfori=0tomstep2str(i,5)Endfor6．编写程序，从键盘输入一个正整数M，计算M内（包括M）所有偶数之和。clearinputtoms=0fori=2tomstep2s=s+iEndfors7．编写程序，从键盘输入5个数，找出其中的最大数和最小数。clearinput"请输入第一个数"tomaxmin=maxfori=2to5"请输入第"+str(i,2)+"个数"inputtoaifa>maxmax=aendififa<minmin=aendifendfor'max=',max'min=',min8．利用数组编写程序，从键盘输入10个数，再按逆序输出。dimea(10)fori=1to10inputtoa(i)endforfori=10to1step-1a(i)endfor9．编写程序，逐条显示STUDENT表中的男生记录（显示一个记录后，由用户按任意键来显示下一个记录）。usestudentscanfor性别=”男”dispwaitendscanuse10．编写程序，自STUDENT表的最后一个记录开始向前逐个显示（显示一个记录后，由用户按任意键来显示上一个记录）。usestudentgobottdowhilenotbof()dispwaitskip-1enddouse11．先在STUDENT表中插入一个新字段：平均成绩（数值型,6,2）。然后编写程序，根据GRADE表统计每个学生的平均成绩，并填入新插入的字段中。select学号,avg(成绩)as平均成绩fromgradegroupby学号intotabletusetindexon学号totxhsele2usestudentindexon学号tosxhsetrelato学号intotreplall平均成绩witht->平均成绩12．写程序，输入一个三位自然数，判断该数是否为水仙花数。所谓水仙花数是指一个三位自然数，其各位数字立方和等于该数本身。例如，153是水仙花数，因为153＝13+53+33。inputtozrsgw=zrs%10sw=int(zrs/10)%10bw=int(zrs/100)ifbw**3+sw**3+gw**3=zrs”yes!”else”no.”Endif13．编写一个自定义函数，判断一个三位自然数是否为水仙花数，若是，返回逻辑真，否则，返回逻辑假。编写主程序，输入一个三位自然数，调用自定义函数判断该数是否为水仙花数。clearinputtonifsxh(n)”yes”else”no”endiffunctionsxhparazrsgw=zrs%10sw=int(zrs/10)%10bw=int(zrs/100)ifbw**3+sw**3+gw**3=zrsreturn.t.elsereturn.f.endifendfu14．编写程序，输入一个自然数，判断该数是否为素数。clearinputtozrssf=.t.fori=2tosqrt(zrs)ifzrs%i=0sf=.f.exitendifendforifsf=.t.”yes”else”no”Endif15．编写一个自定义函数，判断一个自然数是否为素数，返回一个逻辑值。编写主程序，调用自定义函数求100～200间的所有素数。fori=100to200ifprime(i)iendifendforfunctionprimeparazrssf=.t.forj=2tosqrt(zrs)ifzrs%j=0sf=.f.exitendifendforreturnsfendfunc16.九九乘法表（1）矩形样式ClearForI=1to10&&外循环I控制输出9行ForJ=1to9&&内循环J控制第I行输出9项str(I,1)+”×”+str(J,1)+”=”+str(I*J,2)&&输出I*J项”“EndforEndforReturn17.阶乘（1）求单个数阶乘（以5为例）ClearJ=1I=1Dowhilei<=5J=j*iI=i+1EnddojReturn（2）求阶乘和（求1到5阶乘的和）ClearS=0I=1J=1Dowhilei<=5J=j*iS=s+jI=i+1EnddosReturn
浙公网安备 33021202002483