浙江财经学院VFP上机考试答案完整版[1].doc

表单设计1. 设计标准化模拟考试表单。（1） 表单Form1的Init事件：Thisform.Optiongroup1.Value=0（2） Optiongroup1的Click事件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.Command2.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 OFFSELECT 1USE 学生SELECT 2USE 成绩(2)Command1的Click事件SELECT 1LOCATE ALL FOR ALLTRIM(姓名)=ALLTRIM（Thisform.Combo1.Displayvalue） IF !FOUND()MESSAGEBOX(“查无此人!”)ELSESELECT 2AVERAGE ALL FOR 学号=学生.学号 TO PJThisform.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.Thisform.P=Thisform.P+1IF Thisform.PThisform.Pageframe1.Pagecount Thisform.P=1ENDIFThisform.Pageframe1.Pages(Thisform.P).Enabled=.T.Thisform.Pageframe1.Activepage=Thisform.PThisform.Refresh 5.编制手工日历表单。（1） 表单FORM1的INIT事件 Thisform.Text1.Value=DATE( ) Thisform.Spinner1.Setfocus(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=100(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-1Endif8.利用计时器空间设计一个模拟拍球动作的表单。具体界面如图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”)11.编制一个表单完成计数器计数显示功能。初始显示为“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.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=0Thisform.f=0EndifEndif23题学生学籍信息浏览，2秒自动刷新，到第三页后自动回到第一页TIMER事件DOCASECASETHISFORM.PAGEFRAME1.ACTIVEPAGE=1THISFORM.PAGEFRAME1.ACTIVEPAGE=2CASETHISFORM.PAGEFRAME1.ACTIVEPAGE=2THISFORM.PAGEFRAME1.ACTIVEPAGE=3CASETHISFORM.PAGEFRAME1.ACTIVEPAGE=3THISFORM.PAGEFRAME1.ACTIVEPAGE=1ENDCASETHISFORM.REFRESH24题根据学生表，课程表和成绩表，用SOL-SELECT语句实现以下查询。学号前三位为“081”COMMAND1的CLICKSETECT学生.学号,姓名,出生年月,课程名,成绩FROM学生,成绩,课程;WHERE学生.学号=成绩.学号AND课程.课程号=成绩.课程号ANDYEAR(;出生年月)=1990COMMAND2的CLICKSETECT学生.学号,姓名,课程名,成绩FROM学生,成绩,课程;WHERE学生.学号=成绩.学号AND课程.课程号=成绩.课程号AND成绩=60COMMAND3的CLICKSETECT学生.学号,姓名,课程名,成绩FROM学生,成绩,课程;WHERE学生.学号=成绩.学号AND课程.课程号=成绩.课程号ANDLEFT(;学生.学号,3)=081COMMAND4的CLICKTHISFORM.RELEASE25题学生表信息查询界面，只读方式FORM1INIT事件THISFORM.LABEL1.CAPTION=请选择学生姓名THISFORM.LABEL2.CAPTION=学号THISFORM.LABEL3.CAPTION=姓名THISFORM.LABEL4.CAPTION=性别THISFORM.LABEL5.CAPTION=出生年月THISFORM.LABEL6.CAPTION=奖学金THISFORM.CHECK1.CAPTION=选中为男,否则为女THISFORM.CAPTION=学生表信息查询THISFORM.SETALL(READONLY,.T.,TEXTBOX)THISFORM.CHECK1.READONLY=.T.LIST1INTERACTIVECHANGE事件THISFORM.SETALL(VISIBLE,.T.)THISFORM.REFRESH程序改错1求当1！+ 3！+ 5！+ N！的值不超过1020时的临界值及N的值。DO WHILE S=M9.本程序用以判断输入的字符串是否是回文（回文是从左到右和从右到左读时都一样的一个字符串，不论大小写字母）。I=LEN(ST)C=Q+CIF UPPER(ST)=UPPER(C)11.本程序输入一个一位数值（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 C9-2*K+1?ENDDO16.本程序输出一个对角线上元素为0，其他元素为1的6*6阶方阵.输出时每个元素占2个字符,如图.DIMENSION A(6,6) 或者 DECLARE A(6,6)IF I=J OR I+J=7 或者 IF I=J OR I=7-J 或者 IF I=J OR J=7-I?STR(A(I,J),2)17.本程序实现:对输入的正整数,判别其中包含指定数码的个数(如2312132中包含数码1的个数为2).Y=M%10 或者 Y=MOD(M,10)M=INT(M/10)EXIT20、成绩小于60的学号课程号成绩显示出来GO TOP?学号+SPACE(5)+课程号+SPACE(5)+STR(成绩,6)?当前日期+DTOC(DATE()21、计算S=1+2+3+.+NINPUT”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的那个图形DO WHILE C=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. 根据输入的