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

表单设计1.设计标准化模拟考试表单。（1）表单 Form1 的 Init 事件：Thisform.Optiongroup1.Value=0（2）Optiongroup1 的 Click 事件IF This.Value=2MessageBox(“答对了,真棒！“,0+48,“评判结果“）ElseMessageBox(“答错了,再试！“,0+32,“评判结果“)ENDIF2.编制一个表单完成表文件“学生.dbf“（1） 命令按钮 Command1 的 Click 事件GO TOPThisform.Command1.Enabled=.F.Thisform.Command2.Enabled=.F.Thisform.Command3.Enabled=.T.Thisform.Command4.Enabled=.T.Thisform.Refresh(2) Command2 的 Click 事件 SKIP -1IF BOF()Thisform.Command1.Enabled=.F.Thisform.Command2.Enabled=.F.ELSEThisform.Command3.Enabled=.T.Thisform.Command2.Enabled=.T.ENDIFThisform.Refresh(3）Command3 的 Click 事件SKIPIF EOF(）Thisform.Command3.Enabled=.F.Thisform.Command4.Enabled=.F.ELSEThisform.Command1.Enabled=.T.Thisform.Command2.Enabled=.T.ENDIFThisform.Refresh（3）Command4 的 Click 事件GO BOTTOMThisform.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 WHERE 学生.学号 =成绩.学号 AND 课程.课程号=成绩.课程号 AND YEAR(;出生年月)=1990COMMAND2 的 CLICKSETECT 学生.学号,姓名,课程名,成绩 FROM 学生,成绩,课程;WHERE 学生.学号 =成绩.学号 AND 课程.课程号=成绩.课程号 AND 成绩=60COMMAND3 的 CLICKSETECT 学生.学号,姓名,课程名,成绩 FROM 学生,成绩,课程;WHERE 学生.学号 =成绩.学号 AND 课程.课程号=成绩.课程号 AND LEFT(;学生.学号,3)=“081“COMMAND4 的 CLICKTHISFORM.RELEASE25 题 学生表信息查询界面，只读方式FORM1 INIT 事件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.LIST1 INTERACTIVECHANGE 事件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 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)1ZXX9. 显示输出学生表中每个班级男女生的奖学金总金额.DO SHILE !EOF()LEFT(学号,3)=CLASS 或者 SUBSTR(学号,1,3)=CLASSSKIP10. 返回给定字符串表达式的倒置字符串.例如,输入字符串”ABCD”,倒置后输出的字符串为”DCBA”.C=” 或者 C=SPACE(0)Do While L0C+Q11. 利用公式 e 的 x 次方=1+X+X2/2!+X3/3!+XN/N!,输入 X 和 N,计算 e 的 x 次方的近似值.S=1FOR I=1 TO NS=S+A/B14 本程序显示学生表中获得奖学金的学生姓名和奖学金数额DO WHILE !EOF() 或 DO WHILE .NOT.EOF()奖学金0SKIP15 本程序显示学生表中 1990 年或以前出生的学生姓名和出生年月FOR YEAR(出生年月 )0M=INT(M/10)17 本程序实现从键盘输入五个数，去掉一最大的数和最小的数，然后求平均值。Store N to A,B,SANS=S+N19 设变量 N 的输入值为 5，字符 A 的 ASCII 码为 65。SPACE(N-I)2*I-1CHR(65+I-1)20 将表“学生.bdf”指定学生（由键盘输入）的奖学金加 60.LOCATE FOR 学号=MREPLACE 奖学金 WITH 奖学金+60ENDIF21 统计制定学生的平均成绩及该成绩的的