VFP题目及答案

1.在两个文本框中分别输入用户名和密码，点击“注册”按钮，出现三种情况：a)若至少一个文本框为空，者提示“用户名或密不能为空！”b)若输入的用户名的已经在后台的“用户”表中存在，则提示“此用户名已被占用，请重新输入！”c)排除上述两种情况，则出现“注册成功”信息，并把该新注册的用户名及密码写入后台的“用户”表中2.输入用户名和密码，点击“登录”按钮，可能出现的三种情况：a)该用户已在用户表中，而且密码也正确，则出现“您已成功登录本系统”的信息；b)若用户名已存在于后台的“用户”表中，则显示“密码错误”的信息c)若用户名不在用“户表”中，则显示“您尚未注册”的信息3.点击“退出”按钮，退出程序注册（command1）clickifallt(thisform.text1.value)==""orallt(thisform.text2.value)==""messagebox("用户名或密码不能为空！",17,"提示")elsesele用户locatefor用户名=allt(thisform.text1.value)iffound()messagebox("此用户名已被占用，请重新输入！",49,"提示")elseappendblankreplace用户名withalltrim(thisform.text1.value)replace密码withalltrim(thisform.text2.value)messagebox("注册成功",65,"恭喜！")thisform.text1.value=""thisform.text2.value=""endifendif登入（command2）clickifallt(thisform.text1.value)==""orallt(thisform.text2.value)==""messagebox("用户名或密码不能为空！",17,"提示")elseselect用户locateforallt(用户名)==allt(thisform.text1.value)iffound()ifallt(密码)==allt(thisform.text2.value)messagebox("您已成功登录本系统！",65,"恭喜")elsemessagebox("密码错误！",49,"提示")endifelsemessagebox("您尚未注册！",49,"提示")endifendif选择左边组合框中的课程号，右侧列表中显示该课程的全部成绩。Combo1interactivechangeselect课程locatefor课程号=this.valuethisform.refresh在左上角文本框中输入学号，点击“查找”按钮，右侧显示该学生的相关信息。若输入学号为空，则出现“学号不能为空”的提示；若所输入的学号不在学生表中，则显示“查无此人！”查找（command1）Clicksele学生ifallt(thisform.text1.value)==""messagebox("学号不能为空")thisform.text1.setfocuselselocatefor学号=allt(thisform.text1.value)ifnotfound()messagebox("查无此人！",17,"出错啦！")thisform.text1.value=""thisform.text1.setfocusendifendifthisform.refresh点击“转换”按钮，完成摄氏到华氏、华氏到摄氏、摄氏到摄氏、华氏到华氏的转换。转换（command1）Clickifallt(thisform.text1.value)==""returnelseifval(thisform.text1.value)=0returnelseifthisform.combo1.value=thisform.combo2.valuethisform.text2.value=thisform.text1.valueelseifthisform.combo1.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.valueifa=b+cmessagebox("答对了，真棒！",65,"congratulations")elsemessagebox("不对啊，再仔细想想！",17,"出错啦！")endif1.用户选择组合框中的学号，右侧文本框中显示相应的姓名；2.点击“确定”按钮，出现两个可能的情况：：c)若用户勾选了至少一个运动项目，则把学号、姓名及所报项目写入后台的“报名表”，且在界面的 表格 关于规范使用各类表格的通知入职表格免费下载关于主播时间做一个表格详细英语字母大小写表格下载简历表格模板下载 控件中显示报名结果d)若用户没有勾选任何运动项目，则不写表。3．点击“清空报名表”按钮，则清空后台“报名表”中的所有数据，并在界面的表格控件中反映出来。4.点击“退出”按钮，退出程序。确定（command）n=0ifthisform.combo1.value==""returnendifselect报名表ifthisform.check1.value=.t.n=1endififthisform.check2.value=.t.n=1endififthisform.check3.value=.t.n=1endififn=1appendblankreplace学号withthisform.combo1.value,姓名withthisform.txt姓名.valueifthisform.check1.value=.t.replace项目1withthisform.check1.captionendififthisform.check2.value=.t.replace项目2withthisform.check2.captionendififthisform.check3.value=.t.replace项目3withthisform.check3.captionendifendifthisform.refresh清空报名表select报名表zapthisform.refreshcombointeractivechangethisform.check1.value=.f.thisform.check2.value=.f.thisform.check3.value=.f.thisform.refresh1.点击“查找”按钮，可能出现的三种情况：a)若学号文本框为空，则出现“学号不能为空”的提示b)若在成绩表中找不到输入的学号，则出现“没有找到该学生的成绩”的提示c)若输入的学号在成绩表中找到，则右侧的表格控件显示该学生的所有成绩，并在下方的文本框中显示该学生所有课程的平均成绩。2.点击“退出”按钮，退出程序。查找ifallt(thisform.text1.value)==""messagebox("学号不能为空！")returnendifsele成绩locateforallt(学号)=allt(thisform.text1.value)iffound()sele*from成绩whereallt(学号)=allt(thisform.text1.value)intocursor个人成绩thisform.grid1.recordsourcetype=1thisform.grid1.recordsource="个人成绩"thisform.grid1.visible=.t.seleavg(成绩)as平均成绩from个人成绩intocursorpjcjselepjcjthisform.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.valueifx<yt=xx=yy=tendififx<zt=xx=zz=tendifify<zt=yy=zz=tendifthisform.text4.value=xthisform.text5.value=ythisform.text6.value=zthisform.refresh在程序文件prg中完成，要求运行时提示用户输入起止数字，然后显示找到的所有素数。并输出这些素数的平均值。input"开始："tostartinput"结束："toends=0countn=0forn=starttoendfori=2ton-1ifmod(n,i)=0thenexitendifnextifi>n-1?ns=s+ncountn=countn+1endifnext?s/countn在程序文件prg中完成，要求运行时提示用户输入图形总行数和图形然后打印一个指定行数指定图形的倒金字塔。input"层数："tomaccept"字符："tozffori=1tom?space(i)forj=1to2*m-2*i-1??zfnextnext实验9实验目的：利用所学函数、命令、程序的三种控制结构来解决实际问题。灵活运用数值和数学函数；灵活应用字符型函数；灵活应用数据表（库）。基础题1：从键盘输入n个评委的评分（n由键盘输入确定），去掉一个最高分，去掉一个最低分，然后对其他评委的评分求平均，作为选手的最后得分。以下是程序的一次运行结果：settalkoffclearinput"请输入评委人数："toninput"第1个评委的评分："toxmmax=xmmin=xs=xfori=2toninput"第"+alltrim(str(i))+"个评委的评分："toxifx>mmaxmmax=xendififx<mminmmin=xendifs=s+xendfors=(s-mmax-mmin)/(n-2)?alltrim(str(n))+"个评委给出的最高分为："+alltrim(str(mmax,5,1))??",最低分为："+alltrim(str(mmin,5,1))?"去掉最高分、最低分后，该选手得分："+alltrim(str(s,5,1))settalkon基础题2：编写一个自定义函数，求n!的末尾有几个连续的数码0，要求返回正整数。主程序中调用这个自定义函数。以下是程序的一次运行结果：settalkoffclearinput"x="tox?alltrim(str(x))+"!="+alltrim(str(fact(x)))+",末尾有"+alltrim(str(nfact(x)))+"个数码0"settalkonfunctionnfact&&计算n！的末尾0个数parameterns=fact(n)k=0dowhile.t.ifs%10=0k=k+1s=int(s/10)elseexitendifenddoreturnkendfuncfunctionfact&&计算n!parans=1fori=1tons=s*inextreturnsendfun基础题3：将一个数值型数据（可以有小数,也可以是负数）中位值最大的和最小的数码输出。如输入2937.751，则输出“最大数码为9，最小数码为1”。以下是程序的一次运行结果：settalkoffclearinput"x="toxx=abs(x)dowhileint(x)#xx=x*10enddommax=mod(x,10)mmin=mod(x,10)x=int(x/10)dowhilex>0r=x%10ifr>mmaxmmax=rendififr<mminmmin=rendifx=int(x/10)enddo?"最大数码为"+alltrim(str(mmax))+",最小数码为"+alltrim(str(mmin))settalkon实验8握过程和自定义函数的编写和调用 方法 快递客服问题件处理详细方法山木方法pdf计算方法pdf华与华方法下载八字理论方法下载 ；掌握参数传递的概念与规则。编写程序：由程序自动生成10个三位数，把这10个数从小到大排序后输出（提示：可利用随机函数生成10个三位数）下图为其中一次执行的结果：settalkoffcleardeclarea(10)?"原始数据："fori=1to10a(i)=int(rand()*900+100)??str(a(i),5)nextifori=1to9forj=i+1to10ifa(i)>a(j)t=a(i)a(i)=a(j)a(j)=tendifendforendfor?"排序以后："fori=1to10??str(a(i),5)nextsettalkon编写程序：用过程文件和参数传递，求：(m!+n!)/((m-n)!+m^n+m^m)的值。要求：为了保证用户输入的数据符合要求，程序必须保证m>n。下图是一次可能的执行结果：settalkoffclear?"请输入m、n,且m>n"input"m="tominput"n="tondowhilem<=n?"输入的数据不合要求！请输入m、n,且m>n"input"m="tominput"n="tonenddosm=mdojcwithsmsn=ndojcwithsnsmn=m-ndojcwithsmncmn=ndomcwithm,cmndomcwithm,m?(sm+sn)/(smn+cmn+m)settalkonprocjc&&计算x的阶乘paraxlocaltt=1fori=1toxt=t*iendforx=treturnprocmc&&计算x的y次方parax,ylocaltt=1fori=1toyt=t*xnexty=treturn编写程序，显示2~1000之间的正整数中所有的完数。完数的定义：一个正整数，若其所有不重复因子的累加和等于自身的值，则称这个数为完数。因子包括1，但不包括该数本身。要求：完数的判断用自定义函数完成执行结果：settalkoff?"2~1000之间的完数有："fori=2to1000ifwanshu(i)=.t.?iendifendforsettalkonfunctionwanshuparans=1fori=2ton-1ifn%i=0s=s+iendifendforifn=sreturn.t.elsereturn.f.endifendfunc4.点击“抽奖”按钮，界面上的抽奖者信息和得奖等次信息开始滚动显示，同时按钮的caption显示为“暂停”；5.点击“暂停”，滚动停止；并把得奖人的姓名和得奖具体内容写入相应的表中；6.点击“清空得奖数据”，把得奖信息全部删除。Command1（抽奖）clickifthis.caption="抽奖"this.caption="暂停"thisform.timer1.enabled=.t.thisform.timer2.enabled=.t.elsethis.caption="抽奖"thisform.timer1.enabled=.f.thisform.timer2.enabled=.f.select中奖appendblankreplace姓名withallt(thisform.text2.value)replace奖品withallt(thisform.text4.value)endifthisform.refreshCommand2（清空）clickselect中奖zapthisform.refreshCommand3（退出）clickthisform.releasetimer1timerselect抽奖者名单thisform.text1.value=学号thisform.text2.value=姓名skipifeof()gotopendifthisform.refreshtimer2timerselect奖品thisform.text3.value=得奖等次thisform.text4.value=奖品skipifeof()gotopendifthisform.refresh7.点击“写入生词表”，把英汉两个文本框中的内容写入后台的 单词 英语单词 下载七年级上册英语单词表下载英语单词表下载深圳小学英语单词表 下载高中英语单词 下载 表，同时界面上显示生词表中的单词总数；若英汉两个文本框中有内容空缺，则用messagebox提示相应信息。8.点击“退出”，退出程序。Command1（写入生词表）clickifallt(thisform.text1.value)==""orallt(thisform.text2.value)==""messagebox("请把中英文填写完整！",16,"出错啦！")thisform.text1.setfocuselseselect单词表appendblankreplace英withallt(thisform.text1.value)replace汉withallt(thisform.text2.value)thisform.text1.value=""thisform.text2.value=""thisform.text1.setfocusendifselect单词表thisform.text3.value=reccount()thisform.refresh选择左边组合框中的课程号，右侧列表中显示该课程的全部成绩。combointeractiveselect课程locatefor课程号=this.valuethisform.refresh