VFP题目及答案.doc

1. 在两个文本框中分别输入用户名和密码，点击“注册”按钮，出现三种情况：a) 若至少一个文本框为空，者提示“用户名或密不能为空！”b) 若输入的用户名的已经在后台的“用户”表中存在，则提示“此用户名已被占用，请重新输入！”c) 排除上述两种情况，则出现“注册成功”信息，并把该新注册的用户名及密码写入后台的“用户”表中2. 输入用户名和密码，点击“登录”按钮，可能出现的三种情况：a) 该用户已在用户表中，而且密码也正确，则出现“您已成功登录本系统”的信息；b) 若用户名已存在于后台的“用户”表中，则显示“密码错误”的信息c) 若用户名不在用“户表”中，则显示“您尚未注册”的信息3. 点击“退出”按钮，退出程序注册（command1） clickif allt(thisform.text1.value)= or allt(thisform.text2.value)=messagebox(用户名或密码不能为空！,17,提示)elsesele 用户locate for 用户名=allt(thisform.text1.value)if found()messagebox(此用户名已被占用，请重新输入！,49,提示)elseappend blankreplace 用户名 with alltrim(thisform.text1.value)replace 密码 with alltrim(thisform.text2.value)messagebox(注册成功,65,恭喜！)thisform.text1.value=thisform.text2.value=endifendif登入（command2） clickif allt(thisform.text1.value)= or allt(thisform.text2.value)=messagebox(用户名或密码不能为空！,17,提示)elseselect 用户locate for allt(用户名)=allt(thisform.text1.value)if found()if allt(密码)=allt(thisform.text2.value)messagebox(您已成功登录本系统！,65,恭喜)elsemessagebox(密码错误！,49,提示)endifelsemessagebox(您尚未注册！,49,提示)endifendif选择左边组合框中的课程号，右侧列表中显示该课程的全部成绩。Combo1 interactivechangeselect 课程locate for 课程号=this.valuethisform.refresh在左上角文本框中输入学号，点击“查找”按钮，右侧显示该学生的相关信息。若输入学号为空，则出现“学号不能为空”的提示；若所输入的学号不在学生表中，则显示“查无此人！”查找（command1） Clicksele 学生if allt(thisform.text1.value)=messagebox(学号不能为空)thisform.text1.setfocuselselocate for 学号=allt(thisform.text1.value)if not found()messagebox(查无此人！,17,出错啦！)thisform.text1.value=thisform.text1.setfocusendifendifthisform.refresh点击“转换”按钮，完成摄氏到华氏、华氏到摄氏、摄氏到摄氏、华氏到华氏的转换。转换（command1） Clickif allt(thisform.text1.value)=returnelseif val(thisform.text1.value)=0returnelseif bo1.value=bo2.valuethisform.text2.value=thisform.text1.valueelseif bo1.value=摄氏thisform.text2.value=9/5*val(thisform.text1.value)+32elsethisform.text2.value=(val(thisform.text1.value)-32)*5/9endifendifendifendifthisform.refresh1 点击“出题”按钮，由程序随机产生两个两位数的正整数，分别填写在左侧的两个文本框中；2 用户输入上述两个数相加的结果，点击“答题”按钮，出现以下两种可能的情况：a) 若用户计算正确，则给出“答对了，真棒！”的提示b) 若用户给出的答案错误，则给出“不对啊，再仔细想想！”的提示。3 点击“退出”按钮，退出程序出题（command1） clickthisform.text1.value=int(rand()*90)+10thisform.text2.value=int(rand()*90)+10thisform.text3.value=thisform.refresh答题（command2） clicka=val(thisform.text3.value)b=thisform.text1.valuec=thisform.text2.valueif a=b+cmessagebox(答对了，真棒！,65,congratulations)elsemessagebox(不对啊，再仔细想想！,17,出错啦！)endif1.用户选择组合框中的学号，右侧文本框中显示相应的姓名；2.点击“确定”按钮，出现两个可能的情况：c) 若用户勾选了至少一个运动项目，则把学号、姓名及所报项目写入后台的“报名表”，且在界面的表格控件中显示报名结果d) 若用户没有勾选任何运动项目，则不写表。3点击“清空报名表”按钮，则清空后台“报名表”中的所有数据，并在界面的表格控件中反映出来。4.点击“退出”按钮，退出程序。确定（command）n=0if bo1.value=returnendifselect 报名表if thisform.check1.value=.t.n=1endifif thisform.check2.value=.t.n=1endifif thisform.check3.value=.t.n=1endifif n=1append blankreplace 学号 with bo1.value,姓名 with thisform.txt姓名.valueif thisform.check1.value=.t.replace 项目1 with thisform.check1.captionendifif thisform.check2.value=.t.replace 项目2 with thisform.check2.captionendifif thisform.check3.value=.t.replace 项目3 with thisform.check3.captionendifendifthisform.refresh清空报名表select 报名表zapthisform.refreshcombo interactivechangethisform.check1.value=.f.thisform.check2.value=.f.thisform.check3.value=.f.thisform.refresh1.点击“查找”按钮，可能出现的三种情况：a) 若学号文本框为空，则出现“学号不能为空”的提示b) 若在成绩表中找不到输入的学号，则出现“没有找到该学生的成绩”的提示c) 若输入的学号在成绩表中找到，则右侧的表格控件显示该学生的所有成绩，并在下方的文本框中显示该学生所有课程的平均成绩。2.点击“退出”按钮，退出程序。查找if allt(thisform.text1.value)=messagebox(学号不能为空！)returnendifsele 成绩locate for allt(学号)=allt(thisform.text1.value)if found()sele * from 成绩 where allt(学号)=allt(thisform.text1.value) into cursor 个人成绩thisform.grid1.recordsourcetype=1thisform.grid1.recordsource=个人成绩thisform.grid1.visible=.t.sele avg(成绩) as 平均成绩 from 个人成绩 into cursor pjcjsele pjcjthisform.text2.value=平均成绩elsemessagebox(没有找到该学生的成绩！)thisform.grid1.visible=.f.endifthisform.refresh1.点击“产生三个整数”按钮，由程序随机生成三个随机的整数，分别填写在三个文本框中：2.点击“排序输出”按钮，在下方的三个文本框中按从大到小的顺序分别输出上述三个数。3.点击“退出”按钮，退出程序。产生三个整数thisform.text1.value=int(rand()*1000)thisform.text2.value=int(rand()*1000)thisform.text3.value=int(rand()*1000)thisform.text4.value=thisform.text5.value=thisform.text6.value=thisform.refresh排序输出x=thisform.text1.valuey=thisform.text2.valuez=thisform.text3.valueif xyt=xx=yy=tendifif xzt=xx=zz=tendifif yn-1?ns=s+ncountn=countn+1 endifnext?s/countn在程序文件prg中完成，要求运行时提示用户输入图形总行数和图形然后打印一个指定行数指定图形的倒金字塔。input 层数： to maccept 字符： to zffor i=1 to m?space(i)for j=1 to 2*m-2*i-1?zfnextnext实验9实验目的：利用所学函数、命令、程序的三种控制结构来解决实际问题。灵活运用数值和数学函数；灵活应用字符型函数；灵活应用数据表（库）。基础题1：从键盘输入n个评委的评分（n由键盘输入确定），去掉一个最高分，去掉一个最低分，然后对其他评委的评分求平均，作为选手的最后得分。以下是程序的一次运行结果：set talk offclearinput 请输入评委人数： to ninput 第1个评委的评分： to xmmax=xmmin=xs=xfor i=2 to ninput 第+alltrim(str(i)+个评委的评分： to xif xmmaxmmax=xendifif x0r=x%10if rmmaxmmax=rendifif ra(j)t=a(i)a(i)=a(j)a(j)=tendifendforendfor?排序以后：for i=1 to 10?str(a(i),5)nextset talk on编写程序：用过程文件和参数传递，求：(m!+n!)/(m-n)!+mn+mm)的值。要求：为了保证用户输入的数据符合要求，程序必须保证mn。下图是一次可能的执行结果：set talk offclear?请输入m、n,且mninput m= to minput n= to ndo while mninput m= to minput n= to nenddosm=mdo jc with smsn=ndo jc with snsmn=m-ndo jc with smncmn=ndo mc with m,cmndo mc with m,m?(sm+sn)/(smn+cmn+m)set talk onproc jc &计算x的阶乘para xlocal tt=1for i=1 to xt=t*iendforx=treturn proc mc &计算x的y次方para x,ylocal tt=1for i=1 to yt=t*xnexty=treturn编写程序，显示21000之间的正整数中所有的完数。完数的定义：一个正整数，若其所有不重复因子的累加和等于自身的值，则称这个数为完数。因子包括1，但不包括该数本身。要求：完数的判断用自定义函数完成执行结果：set talk off?21000之间的完数有：for i=2 to 1000if wanshu(i)=.t.?iendifendforset talk onfunction wanshupara ns=1for i=2 to n-1if n%i=0s=s+iendifendforif n=sreturn .t.elsereturn .f.endifendfunc1. 点击“抽奖”按钮，界面上的抽奖者信息和得奖等次信息开始滚动显示，同时按钮的caption显示为“暂停”；2. 点击“暂停”，滚动停止；并把得奖人的姓名和得奖具体内容写入相应的表中；3. 点击“清空得奖数据”，把得奖信息全部删除。Command1（抽奖） clickif this.caption=抽奖this.caption=暂停thisform.timer1.enabled=.t.thisform.timer2.enabled=.t.elsethis.caption=抽奖 thisform.timer1.enabled=.f. thisform.timer2.enabled=.f. select 中奖append blank replace 姓名 with allt(thisform.text2.value) replace 奖品 with allt(thisform.text4.value)endifthisform.refreshCommand2（清空） clickselect 中奖zapthisform.refreshCommand3（退出） clickthisform.releasetimer1 timerselect 抽奖者名单thisform.text1.value=学号thisform.text2.value=姓名skipif eof()go topendifthisform.refresht