VFP上机答案(修改)

1. 在学生表中查找并输出指定学生的所有信息INDEX ON 学号 TO IXH!FOUND()DISPLAY2. 判断给定的正整数表达式的值是否为素数,并能反复判断.FOR I=2 TO X-1I=X-1IF UPPER(YN)=”Y”或者IF LOWER(YN)=”y”3. 输入边长,如果能构成三角形,则计算三角形面积.DO WHILE .T.LOOPM=SQRT(U*(U-X)*(U-Y)*(U-Z)4. 在屏幕上显示输出一个九九乘法表.X=1?STR(X,1)+”*”+STR(Y,1)+”=”+STR(X*Y,2)+” ”?5. 根据输入的数据,计算不大于该数的所有奇数累加和.UPPER(YN)=”Y”INT(X/2)X/2WAIT或者ACCEPT或者INPUT6. 根据输入的数据,判断该数是否为偶数,可以反复判断.DO WHILE UPPER(YN)=”Y”N%2!=0或者 N/2!=INT(N/2) 或者 MOD(N,2)!=0WAIT7. 显示指定表中的全部字段名,并由用户输入显示表信息的条件,最后列表显示满足条件的记录.USE(TBN) 或者 USE&TBNFCOUNT()For &EXPR8. 接收从键盘输入的任意5个数,输入的数字可以是负数,但最多包括3位符号位.程序的功能是,找出其中最大的数和最小的数,最后显示出来.ZX=XDO WHILE N1ZXX9. 显示输出学生表中每个班级男女生的奖学金总金额.DO WHILE !EOF()LEFT(学号,3)=CLASS 或者 SUBSTR(学号,1,3)=CLASSSKIP10. 返回给定字符串表达式的倒置字符串.例如,输入字符串”ABCD”,倒置后输出的字符串为”DCBA”.C=” ” 或者 C=SPACE(0)Do While 0I-1 或者 IF J=I14 本程序显示学生表中获得奖学金的学生姓名和奖学金数额DO WHILE !EOF() 或 DO WHILE .NOT.EOF()奖学金0SKIP15 本程序显示学生表中1990年或者以前出生的学生姓名和出生年月（日期型）FOR YEAR(出生年月)=1990 或者 FOR 出生年月0M=INT(M/10)17 本程序实现从键盘中输入5个数，去掉一个最大数和一个最小数，然后求平均值 Store N to A,B,SANS=S+N18 计算1！+3！+5！+N!由键盘输入INPUT “N=” TO NS=S+TT=T*J19设变量N的输入值为5，字符A的ASCII码为65.程序运行结果如图所示SPACE(N-I)2*I-1CHR(65+I-1)20 将表“学生.dbf”中指定学生（由键盘输入）的奖学金加60，并显示该学生的记录LOCATE FOR 学号=MREPLACE 奖学金 WITH 奖学金+60ENDIF21 下面程序统计指定学生的平均成绩及该成绩的档次LOCATE FOR 学号=XHAVERAGE 成绩 TO PJCJ FOR 学号=XHOTHERWISE22 程序输出的结果如图所示H=5SPACE(H-K)2*K-124本程序实现“百钱买百鸡”的计算Y=0 TO 335*X+3*Y+Z/3=100ENDFOR25输入一个自然数，判断该数是否为完数S=0 或者 STORE 0 TO SMOD(M,N)=0 或者 INT(M/N)=M/N 或者 M%N=0S=M程序改错题1求当1！+ 3！+ 5！+ N！的值不超过1020时的临界值及N的值。DO WHILE SK)，请输入S的值DO SUB WITH A,IS=S+ADO WHILE L=N11.本程序输入一个一位数值（09），并把它转化为对应的中文大写数字（零玖）。DO WHILE .T.S=SUBSTR(X,2*N+1,2)IF UPPER(T)=”N”12.对成绩.dbf（其中包含“学号”字段，并且以“学号”为关键字建立了索引标识“学号”）中学号相同的重复记录进行逻辑删除。USE 成绩 ORDER 学号DO WHILE 学号=XHSKIP13.本程序是在屏幕上打印输出如图4-6所示图形。DO WHILE CC AND A+CB AND B+CA20、成绩小于60的学号课程号成绩显示出来GO TOP?学号+SPACE(5)+课程号+SPACE(5)+STR(成绩,6)?当前日期+DTOC(DATE()21、计算S=1+2+3+.+N的和INPUT”N=”TO NDO WHILE IN?”1+2+3+N=”,S22、输入学号，计算平均成绩，说明成绩档次INPUT”输入学号=”TO XHAVERAGE 成绩 TO CJ FOR 学号=XHDC=SUBSTR(C,6*R+1,6)23、指定表指定条件的任意查询功能IF NOT FILE(FNAME+”.dbf”)ENDFORLIST FOR &EXP24、输入表名，若存在则打开并显示各字段名IF NOT FILE(FNAME+”.dbf”)?”此表中的字段有:”,ZDSM,”个”?FIELDS(I)25、屏幕上出现15的那个图形11 2 31 2 3 4 1 2 3 4 5DO WHILE C=K?CK=K+1表单设计题1. 设计标准化模拟考试表单。（1） 表单Form1的Init事件：Thisform.Optiongroup1.Value=0（2） 选项按钮组Optiongroup1的InterActiveChange事件IF This.Value=2 MessageBox(答对了,真棒！,0+48,评判结果） Else MessageBox(答错了,再试！,0+32,评判结果) ENDIF2. 编制一个表单完成表文件学生.dbf（1） 命令按钮Command1的Click事件GO TOP Thisform.Command1.Enabled=.F. Thisform.Command2.Enabled=.F. Thisform.Command3.Enabled=.T. Thisform.Command4.Enabled=.T. Thisform.Refresh (2) Command2的Click事件 SKIP -1 IF BOF() Thisform.Command1.Enabled=.F. Thisform.Command2.Enabled=.F. ELSE Thisform.Command3.Enabled=.T. Thisform.Command4.Enabled=.T. ENDIF Thisform.Refresh (3）Command3的Click事件SKIP IF EOF(） Thisform.Command3.Enabled=.F. Thisform.Command4.Enabled=.F. ELSE Thisform.Command1.Enabled=.T. Thisform.Command2.Enabled=.T. ENDIF Thisform.Refresh（3） Command4 的Click事件GO BOTTOM Thisform.Command3.Enabled=.F. Thisform.Command4.Enabled=.F. Thisform.Command1.Enabled=.T. Thisform.Command2.Enabled=.T. Thisform.Refresh3、编制一个表单完成学生成绩查询显示功能(1)From1的Init事件SET TALK OFF(2)Command1的Click事件SELECT 1LOCATE ALL FOR ALLTRIM(姓名)=ALLTRIM（Thisform.Combo1.Displayvalue） IF !FOUND()MESSAGEBOX(“查无此人!”)ELSESELECT 成绩AVERAGE 成绩 TO PJ FOR 学号=学生.学号Thisform.Text1.Value=PJENDIFThisform.Refresh（3）Command2的Click事件Thisform.Release4、编一页面转换表单，要求表单上有一个包含3页的页框，每页依次一幅图画、一张表格、一个列表框。Form1的Init事件Thisform.P=0 &P是用户自定义的属性Timer1的Timer事件Thisform.Pageframe1.Page1. Enabled=.F.Thisform.Pageframe1.Page2. Enabled=.F.Thisform.Pageframe1.Page3. Enabled=.F.P=Thisform.Pageframe1.ActivepageIF P=Thisform.Pageframe1.Pagecount P=1ELSEP=1+1EndifThisform. Pageframe1.Pages(P).Enabled=.T.Thisform. Pageframe1.Activepage =PThisform.Refresh 5.编制手工日历表单。（1） 表单FORM1的INIT事件 Thisform.Text1.Value=DATE( ) Thisform.Spinner1.Setfocus Thisform.text1.dataformat=14(2)微调Spinner1的UpClick事件 Thisform.Text1.Value=Thisform.Text1.Value+1 Thisform.Refresh(3)微调Spinner1的DownClick事件 Thisform .Text1.Value=Thisform.Text1.Value-1 Thisform . Refresh6.编制表文件完成自动只读浏览显示功能（表单内容将以2秒为间隔自动刷新）表单FROM1的INIT事件Thisform.Setall(“Readonly”,.T.”Textbox”)Thisform.Setall (“Readonly”,.T.,”Editbox”)Thisform Setall (“Readonly ”,.T.,”Checkbox”)计时器TIMER1的timer事件SkipIF EOF()Go TOPENDIFThisform.Refresh7.设计一个表单，使表单中的信息行显示系统当前时间，并使该信息行在表单内左右缓慢平移。界面如图4-23和图4-24所示。要求：现实时间信息的字体大小为20号。信息先向右移动，且每0.1秒钟移动一个像素点。（1） 表单Form1的Iint事件 This.caption=”信息移动态平行移动”Terval=100Thsform.label1.caption=time()Thisform.label1.left=0Thisform.D=.T.(2)计时器TIMER1的TIMER事件Thisform.label1.caption=TIME() IF Thisform .Label1.Left=thisform.width-thisform.label1.widththisform.D=.F.EndifIf thisform.D=.T. Thisform.label1.left=thisform.label1.left+1Else Thisform.label1.left=thisform.label1.left-1EndifThisform.refresh8.利用计时器空间设计一个模拟拍球动作的表单。具体界面如图4-25和4-26所示。球的起始位置在表单的顶行中部，表单执行后，秋自上而下落下并且球体逐渐变大，当球到达表单底部时自动弹回，并且球体又逐渐回缩变小，当球到达顶部时再次自动下落，如此往复弹跳，仿佛有人用手拍打球，知道关闭表单。（1）表单Form1的Init事件Thisform.shape1.width=40Thisform.shape1.height=40Thisform.shape1.top=0Thisform.t=1Terval=100(2).计时器Timer1的Timer事件 If thisform.shape1.top= Thisform . Height- Thisform.shape1.heightThisform.T=0Endif If thisform.T=1Thisform.shape1.top= Thisform.shape1.top+1Thisform.shape1.width= Thisform.shape1.width+1Thisform.shape1.height= Thisform.shape1.height+1ElseThisform.shape1.top= Thisform.shape1.top-1Thisform.shape1.width= Thisform.shape1.width-1Thisform.shape1.height= Thisform.shape1.height-1EndifThisform.refresh 9.设计一个3表关联查询表单表单FORM1的INIT的事件Thisform.setall(“Readonly”,.T.,”Grid”)Thisform.setall(“Allowaddnew”,.F.,”Grid”)Thisform.setall(“Deletemark”,.F.,”Grid”)10. 设计一个统计车票总金额的表单。设置“计算总额”命令按钮，即“计算总额”Default为.T. 设置Text1 ReadOnly为.T.Command1的Click事件：S=0IF Thisform.Check1.Value=1S=S+580ENDIFIF Thisform.Check2.Value=1S=S+50ENDIFIF Thisform.Check3.Value=1S=S+280ENDIFThisform.Text1.Value=SThisform.RefreshCommand2的Click事件：Thisform.Release11.编制一个表单完成计数器计数显示功能。初始显示为“00：00：00”。“计数”、“停止”添加自定义属性H,M,SForm1的Init事件:STORE 0 This.H,This.M,This.SThisform.Text1.Value=”00:00:00”Thisform.Timer1.Enabled=.F.Thisform.Refresh命令按钮Command1的Click事件：Thisform.Timer1.Enabled=.T.STORE 0 Thisform.H,Thisform.M,Thisform.SThisform.Text1.Value=”00:00:00”命令按钮Command2的Click事件：Thisform.Timer1.Enabled=.F.计数器Timer1的Timer事件：Thisform.S=Thisform.S+1IF Thisform.S=60Thisform.S=0Thisform.M=Thisform.M+1IF Thisform.M=60Thisform.M=0Thisform.H=Thisform.H+1ENDIFENDIFHH=IIF(Thisform.H9,STR(Thisform.H,2),”0”+STR(Thisform.H,1)MM=IIF(Thisform.M9,STR(Thisform.M,2),”0”+STR(Thisform.M,1)SS=IIF(Thisform.S9,STR(Thisform.S,2),”0”+STR(Thisform.S,1)Thisform.Text1.Value=HH+”:”+MM+”:”+SSThisform.Refresh12、用单项按钮设计5色调色板表单（1）表单form1的init事件 Thisform.optiongroup1.value=1 Thisform.optiongroup1.backcolor=RGB(255,0,0,)(2)选项按钮组optiongroup1的click事件DO CASE CASE this.Value=1this.BackColor=RGB(255,0,0)CASE this.Value=2this.BackColor=RGB(0,0,255)CASE this.Value=3this.BackColor=RGB(0,255,0)CASE this.Value=4this.BackColor=RGB(255,255,255)CASE this.value=5this.BackColor=RGB(0,0,0)ENDCASEthisform.Refresh13、设计一个表单，当用户在文本框输入矩阵的维数后，按“显示”按钮则会在编辑框中输出对角线为0的N维矩阵，输入数据不合要求时显示提示信息。（1）文本框text1的valid事件 IF VAL(this.Value)9 OR VAL(this.Value)1 =MESSAGEBOX(输入错，请重新输入！) RETURN .F.ELSE RETURN .T.ENDIFthisform.Refresh（2）命令按钮command1的click事件 N=VAL(ALLTRIM(thisform.text1.Value)DIMENSION A(N,N)CH=FOR I=1 TO N FOR J=1 TO N IF I=J OR I+J=N+1 A(I,J)=0 ELSE A(I,J)=1 ENDIF CH=CH+STR(A(I,J),2) ENDFOR CH=CH+CHR(13)ENDFORthisform.edit1.Value=Chthisform.text1.SetFocusthisform.Refresh第14题设计一个完成口令判定功能的表单，界面如图4-37图4-40所示。具体要求如下：1.用户从键盘输入口令时，表单的显示控件以”*“代替具体内容；2。系统的口令存放在表文件学生.dbf的姓名字段中，要求完全匹配；3。输入口令后，按回车键或按“确定”按钮，将自动显示信息框（MESSAGEBOX），提示“正确！”或“错误”；4。按“退出”按钮自动关闭菜单（1）表单FORM1的init事件 USE 学生 Thisform.text1.passwordchar=* This.Caption=口令验证窗（2）文框Text1.Valid事件 locate for alltrim(this.value)=alltrim(姓名) if found() messagebox(正确!) return .f. else messagebox(错误!) return .f. endif thisfor.refresh(3)命令按钮command1的click事件 thisform.text1.valid(4)命令按钮command2的clicl事件 use thisform.release第15题设计一个圆球跳动表单。要求：球的宽和高为40像素，球的填充颜色为RGB(128,64,0），表单的标题为“圆球跳动”，球每隔0.5秒在表单的上下边之间跳动。按“确定”按钮，球跳动；按“停止”按钮，球停止。设计界面和运行界面如图4-41和图4-42所示（1）命令按钮command1的click事件 thisform.timer1.enabled=.t.（2）命令按钮command2的click事件 thisform.timer1.enabled=.f. (3)计时器timer1的timer事件if thisform.shape1.top=0 thisform.shape1.top=thisform.height-thisform.shape1.heightelse thisform.shape1.top=0endifthisform.refresh(4)表单form1的init事件thisform.timer1.enabled=.f.16：运用文本框和计时器对象设计一个数字时钟表单，要求：文本框为隶书、30号字，表单的标题为“数字时钟”，每隔一秒刷新一次时间。（1） 表单Form1的Init事件Thisform.Caption=”数字时钟”Thisform.Text1.Fontname=”隶书”Thisform.Text1.Fontsize=30Thisform.Timer1.Interval=1000(2) 计时器的Timer1的Timer事件Thisform.Text1.Value=LEFT(TIME(),2)+”时”+SUBSTR(TIME(),4,2)+”分”+RIGHT;(TIME(),2)+”秒”Thisform.Refresh17：编制一个显示时钟和日期的表单，命令按钮及文本框的字体、颜色和大小设置为自己喜欢的形式。（1） 表单的Form1的Init事件 Thisform.Text1.Value=”00:00:00” Thisform.Timer1.Enabled=.F.(2) 命令按钮Command1的Click事件Thisform.Timer1.Enabled=.T.(3) 命令按扭Command2的Click事件Thisform.Timer1.Enabled=.F.Y=ALLTRIM(STR(YEAR(DATE()M=ALLTRIM(STR(MONTH(DATE()D=ALLTRIM(STR(DAY(DATE()Thisform.Text1.Value=Y+”年”+M+”月”+D+”日”+CHR(13)+CDOW(DATE()Thisform.Refresh（4） 命令按钮Command3的Click事件 Thisform.Refresh(5) 计时器Timer1的Timer事件Thisform.Text1.Value=TIME()Thisform.Refresh18.建立一个表单，通过每次单击“开始”按钮，都能实现表单的标签信息从顶行向下平移，移到底边即停止。标签高度为30像素，字体颜色为蓝色。（1）命令按钮Form1的Init事件Thisform.Timer1.Enabled=.F.(2)命令按钮Command1的Click事件Thisform.Timer1.Enabled=.T.Thisform.Label1.Top=0（3）命令按钮Command2的Click事件Thisform.Release(4).计时器Timer的Timer事件IF Thisform.Label1.TopN Thisform.text2.value=”是素数！”Else Thisform.text2.value=”不是素数！”EndifThisform.text1.setfocusThisform.refresh(3)command的click事件Thisform.release22、有一个狐狸头(1)form1的init事件Thisform.f=0Thisform.caption=”动画”（2）timer1的timer事件If thisform.f=0 Thisform.image1.left=thisform.image1.left+1If thisform.image1.left=thisform.width-thisform.image1.width Thisform.f=1EndifEndifIf thisform.f=1 Thisform.image1.left=thisform.image1.left-1If thisform.image1.left=0Thi