vfp答案
更新时间:2024-01-13 07:41:01 阅读量: 教育文库 文档下载
填空
1. 在学生表中查找并输出指定学生的所有信息
INDEX ON 学号 TO IXH !FOUND() DISPLAY
2. 判断给定的正整数表达式的值是否为素数,并能反复判断
FOR I=2 TO X-1 I=X
IF UPPER(YN)=”Y”或者IF LOWER(YN)=”y” 3. 输入边长,如果能构成三角形,则计算三角形面积.
DO WHILE .T. LOOP
M=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/2
WAIT或者ACCEPT或者INPUT
6. 根据输入的数据,判断该数是否为偶数,可以反复判断.
DO WHILE UPPER(YN)=”Y”
N%2!=0或者 N/2!=INT(N/2) 或者 MOD(N,2)!=0 WAIT
7. 显示指定表中的全部字段名,并由用户输入显示表信息的条件,最后列表显示满足条件的记录.
USE(TBN) 或者 USE&TBN FCOUNT() For &EXPR
8. 接收从键盘输入的任意5个数,输入的数字可以是负数,但最多包括3位符号位.程序的功能是,,找出其中
最大的数和最小的数,最后显示出来. ZX=X
DO WHILE N>1 ZX>X
9. 显示输出学生表中每个班级男女生的奖学金总金额.
DO WHILE !EOF()
LEFT(学号,3)=CLASS 或者 SUBSTR(学号,1,3)=CLASS SKIP
10. 返回给定字符串表达式的倒置字符串.例如,输入字符串”ABCD”,倒置后输出的字符串为”DCBA”.
C=”” 或者 C=SPACE(0) Do While L>0 C+Q
11. 利用公式e的x次方=1+X+X2/2!+X3/3!+…+XN/N!,输入X和N,计算e的x次方的近似值.
S=1
FOR I=1 TO N S=S+A/B
12. 输入一个正整数M,判断并显示1~M中有哪些数可以分为两个相等的素数.(例如,M=10,有2个数符合,
即3+3=6和5+5=10。) ELSE J=2 TO I-1
IF J>I-1 或者 IF J=I
13. 本程序实现口令验证.输入次数在3次以内,给予重输的提示;超过3次,则进入死循环.
EXIT
IF I>=3 或者 IF I=3 I=I+1
14. 显示学生表中的获得奖学金的学生姓名和奖学金数额 DO WHILE !EOF() IF 奖学金>0 SKIP
15. 填空本程序显示学生表中1990年或以前出生的学生姓名和出生年月(日期型)。
LOCATE FOR YEAR(出生年月)<=1990 DO WHILE !EOF() CONTINUE
16. 计算一个十进制正整数N的各位数字之和(如输入:12378,则计算1+2+3+7+8。)
ELSE
DO WHILE M>0 M=INT(M/10)
17. 本程序实现从键盘中输入5个数,去掉一个最大数和一个最小数,然后求平均值。
Store N to A,B,S A 18.计算1!+3!+5!+??+N!,N由键盘输入 INPUT “N=” TO N S=S+T T=T*J 19设变量N 的输入值为5,字符A的ASCII码为65。 SPACE(N-I) 2*I-1 CHR(65+I-1) 20将表“学生.DBF”中指定学生(键盘输入)的奖学金加60,并显示该学生的记录。 LOCATE FOR 学号=M REPLACE 奖学金 WITH 奖学金+60 ENDIF 21下面程序统计指定学生的平均成绩及该成绩的档次 LOCATE FOR 学号=XH AVERAGE 成绩 TO PJCJ FOR 学号=XH OTHERWISE 22程序输入的结果如图所示(三角*********) H=5 SPACE(H-K) 2*K-1 23编程实现将日期转换成中文星期的字定义函数 N=DOW(D) OTHERWISE RETURE C 24百钱买百鸡。 FOR Y=0 TO 33 IF 5*X+3*Y+Z/3=100 ENDFOR 25输入一个自然数,判断是否为完数(若该数除本身之外的所有因子之和等于该数,则为完数。例如,1+2+3=6,6为完数;1+2+4=、8,8不是完数) S=0 或者 STORE 0 TO S MOD(M,N)=0 或者 INT(M/N)=M/N 或者 M%N=0 S=M 改错 1.求当1!+ 3!+ 5!+?+ N!的值不超过1020时的临界值及N的值。 DO WHILE S<=1E+20 T=T*I N=N+2 2.求X1 + X2 + X3 + X4 +?+ XN的值。N,X从键盘输入。 S=0 T=T*X ENDDO 3.用带参调用实现: M!/(M-N)!*N! DO JC WITH MJ MNJ=M-N X=T 4.输出3~M(M为正整数,从键盘输入)之间的素数和素数的个数。 IF MOD(X,N)=0 IF N=X K=K+1 5.统计显示“课程”表中所有不同学期考试课和考查课的总学分数。输出格式如下: DO WHILE XQ=学期 KS=KS+学分 SKIP 6.程序是显示输出给定行数的对称菱形图案。 ?SPACE(N-I) FOR J=1 TO 2*I-1 FOR K=1 TO 2*P-1 7.本程序显示下列的九九乘法表 ??STR(I,4) FOR J=1 TO I ENDDO 8.求3→200之间的素数。 FOR N=2 TO M-1 MOD(M,N)=0 IF N>=M 9.本程序用以判断输入的字符串是否是回文(回文是从左到右和从右到左读时都一样的一个字符串,不论大小写字母)。 I=LEN(ST) C=Q+C IF UPPER(ST)=UPPER(C) 10.本程序求S=K!+?+M!(M,K由键盘输入,且M>K),请输入S的值 DO SUB WITH A,I S=S+A DO WHILE L<=N 11.本程序输入一个一位数值(0~9),并把它转化为对应的中文大写数字(零~玖)。 DO WHILE .T. S=SUBSTR(X,2*N+1,2) IF UPPER(T)=”N” 12.对成绩.dbf(其中包含“学号”字段,并且以“学号”为关键字建立了索引标识“学号”)中学号相同的重复记录进行逻辑删除。 USE 成绩 ORDER 学号 DO WHILE 学号=XH SKIP 13.本程序是在屏幕上打印输出如图4-6所示图形。 DO WHILE C<9-2*K+1 ? ENDDO 14.将给定正整数的值分解因子,并输出各个质数因子(如24的质数因子有2,2,2和3)(如果一个质数是某个数的约数,那么这个质数是这个数的质数因子)。 INPUT “M=” TO M ELSE M=INT(M/I) 15.对任意一个正数值型数据(该数可有小数若干位,正数部分不超过12位)自动进行小数部分四舍五入取2位,并将其转换为中文大写金额. Y=ROUND(Y,2) D=SUBSTR(C1,2*P+1,2)+SUBSTR(C2,2*I-1,2)+D Y=INT(Y/10) 16.本程序输出一个对角线上元素为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=MOD(M,10) M=INT(M/10) EXIT 18.本程序比较从键盘输入的若干个数的大小,并输出其中的最大数和最小数. STORE M TO D,X DO WHILE UPPER(YN)!=’A’ AND UPPER(YN)!=’y’ IF UPPER(YN)=’N’ 或者 IF LOWER(YN)=’n’ 19.输入3个正数,判定是否构成一个三角形,如果构成一个三角形,则返回.T.,否则返回.F.,另外通过参数的引用将三角形的面积传回. ?TARER(@X1,X2,X3) PARAMETERS A,B,C IF A+B>C AND A+C>B AND B+C>A 20、成绩小于60的学号课程号成绩显示出来 GO TOP ?学号+SPACE(5)+课程号+SPACE(5)+STR(成绩,6) ?’当前日期’+DTOC(DATE()) 21、计算S=1+2+3+...+N的和 INPUT”N=”TO N DO WHILE I 22、输入学号,计算平均成绩,说明成绩档次 INPUT”输入学号=”TO XH AVERAGE 成绩 TO CJ FOR 学号=XH DC=SUBSTR(C,6*R+1,6) 23、指定表指定条件的任意查询功能 IF NOT FILE(FNAME+”.dbf”) ENDFOR LIST FOR &EXP 24、输入表名,若存在则打开并显示各字段名 IF NOT FILE(FNAME+”.dbf”) ?”此表中的字段有:”,ZDSM,”个” ??FIELDS(I) 25、屏幕上出现1—5的那个图形 DO WHILE C<=K ??C K=K+1 表单 1.设计标准化模拟考试表单。 (1)表单Form1的Init事件: Thisform.Optiongroup1.Value=0 (2)Optiongroup1的Click事件 IF This.Value=2 MessageBox(\答对了,真棒!\评判结果\) Else MessageBox(\答错了,再试!\评判结果\ ENDIF 2.编制一个表单完成表文件\学生.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.Refresh 3、编制一个表单完成学生成绩查询显示功能 Combl rowsoursetype 6, rowsourse 学生。姓名 (1)From1的Init事件 SET TALK OFF SELECT 学生 GO top thisform.combo1.SelectOnEntry= .T. thisform.command1.Default= .T. thisform.combo1.Value=学生.姓名 (2)Command1的Click事件 SELECT 学生 LOCATE FOR ALLTRIM(学号)=ALLTRIM(THISFORM.COMBO1.DISPLAYVALUE) IF FOUND() SELECT 成绩 AVERAGE 成绩 TO PJCJ FOR 学号=学生.学号 THISFORM.TEXT1.Value=PJCJ MASSAGE(\输入的姓名不存在!\错误信息\ ELSE ENDIF THISFORM.COMBO1.SetFocus THISFORM.Refresh (3)Command2的Click事件 SET TALK ON Thisform.Release 4、编一页面转换表单,要求表单上有一个包含3页的页框,每页依次一幅图画、一张表格、一个列表框。 (1)Form1的Init事件 Thisform.P=0 &&P是用户自定义的属性 (2)Timer1的Timer事件 Thisform.Pageframe1.Page1. Enabled=.F. Thisform.Pageframe1.Page2. Enabled=.F. Thisform.Pageframe1.Page3. Enabled=.F. Thisform.P=Thisform.P+1 IF Thisform.P>Thisform.Pageframe1.Pagecount Thisform.P=1 ENDIF Thisform.Pageframe1.Pages(Thisform.P).Enabled=.T. Thisform.Pageframe1.Activepage=Thisform.P Thisform.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 . Refresh 6.编制表文件完成自动只读浏览显示功能(表单内容将以2秒为间隔自动刷新) 表单FROM1的INIT事件 Thisform.Setall(“Readonly”,.T.”Textbox”) Thisform.Setall (“Readonly”,.T.,”Editbox”) Thisform Setall (“Readonly ”,.T.,”Checkbox”) 计时器TIMER1的timer事件 Skip IF EOF() Go TOP ENDIF Thisform.Refresh 7.设计一个表单,使表单中的信息行显示系统当前时间,并使该信息行在表单内左右缓慢平移。界面如图4-23和图4-24所示。要求:现实时间信息的字体大小为20号。信息先向右移动,且每0.1秒钟移动一个像素点。 (1) 表单Form1的Iint事件 This.caption=”信息移动态平行移动” Thisform.timer1.interval=100 (2)计时器TIMER1的TIMER事件 Thisform..label1.caption=TIME() IF Thisform .Label1.Left<=0 Thisform.D=.T. Endif If thisform.label1.left>=thisform.width-thisform.label1.width thisform.D=.F. Endif If thisform.D=.T. Thisform.label1.left=thisform.label1.left+1 Else Thisform.label1.left=thisform.label1.left-1 Endif 8.利用计时器空间设计一个模拟拍球动作的表单。具体界面如图4-25和4-26所示。球的起始位置在表单的顶行中部,表单执行后,秋自上而下落下并且球体逐渐变大,当球到达表单底部时自动弹回,并且球体又逐渐回缩变小,当球到达顶部时再次自动下落,如此往复弹跳,仿佛有人用手拍打球,知道关闭表单。 (1) 表单Form1的Init事件 Thisform.shape1.width=40 Thisform.shape1.height=40 Thisform.shape1.top=0 Thisform. t=1 Thisform.timer1.interval=100 (2).计时器Timer1的Timer事件 If thisform.shape1.top<=0 Thisform.T=1 Endif If thisform.shape1.top>= Thisform . Height- Thisform.shape1.height Thisform.T=0 Endif If thisform.T=1 Thisform.shape1.top= Thisform.shape1.top+1 Thisform.shape1.width= Thisform.shape1.width+1 Thisform.shape1.height= Thisform.shape1.height+1 Else Thisform.shape1.top= Thisform.shape1.top-1 Thisform.shape1.width= Thisform.shape1.width-1 Thisform.shape1.height= Thisform.shape1.height-1 Endif Thisform.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=0 IF Thisform.Check1.Value=1 S=S+580 ENDIF IF Thisform.Check2.Value=1 S=S+50 ENDIF IF Thisform.Check3.Value=1 S=S+280 ENDIF Thisform.Text1.Value=S Thisform.Refresh Command2的Click事件: Thisform.Release 11.计数器计数显示功能。初始显示为“00:00:00”。“计数”、“停止” 时钟设置interval 1000 表单-新建属性--添加S,H,M (1) Form thisform.timer1.Enabled=.F. thisform.S=0 thisform.H=0 thisform.M=0 thisform.text1.value=\(2) command1 thisform.timer1.Enabled=.T. thisform.S=0 THISFORM.H=0 thisform.M=0 thisform.text1.Value=\THISFORM.Refresh (3) command2 thisform.timer1.Enabled=.F. (4) timer thisform.S=thisform.S+1 IF thisform.S=60 thisform.S=0 THISFORM.M=thisform.M+1 IF thisform.M=60 THISFORM.M=0 THISFORM.H=THISFORM.H+1 ENDIF ENDIF HH=IIF(thisform.H>9,STR(thisform.H,2),\ MM=IIF(thisform.M>9,STR(thisform.M,2),\ SS=IIF(thisform.S>9,STR(thisform.S,2),\ thisform.text1.Value=HH+\THISFORM.Refresh 12、选项按钮5色调色板表单 AUTOSIZE 设置为 F,可拖动边框大小 T,调整字体大小 Form1的init事件 thisform.optiongroup1.Value=1 thisform.optiongroup1.BackColor=RGB(255,0,0) Optiongroup1的click事件 DO case CASE this.value=1 this.BackColor=RGB(255,0,0) this.BackColor=RGB(0,0,255) this.BackColor=RGB(0,255,0) this.BackColor=RGB(255,255,255) this.BackColor=RGB(0,0,0) CASE this.value=2 CASE this.value=3 CASE this.value=4 CASE this.value=5 ENDCASE THISFORM.Refresh 13、设计一个表单,当用户在文本框输入矩阵的维数后,按“显示”按钮则会在编辑框中输出对角线为0的N维矩阵,输入数据不合要求时显示提示信息。 (1)文本框text1的valid事件 IF VAL(this.Value)>9 OR VAL(this.Value)<1 =MESSAGEBOX(\输入错,请重新输入!\ RETURN .F. ELSE RETURN .T. ENDIF thisform.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) ENDFOR thisform.edit1.Value=Ch thisform.text1.SetFocus thisform.Refresh 14.设计一个完成口令判定功能的表单。 (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) (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.height else thisform.shape1.top=0 endif thisform.refresh (4)表单form1的init事件 thisform.timer1.enabled=.f. 16:运用文本框和计时器对象设计一个数字时钟表单,要求:文本框为隶书、30号字,表单的标题为“数字时钟”,每隔一秒刷新一次时间。 (1) 表单Form1的Init事件 Thisform.Caption=”数字时钟” Thisform.Text1.Fontname=”隶书” Thisform.Text1.Fontsize=30 Thisform.Timer1.Interval=1000 (2) 计时器的Timer1的Timer事件 Thisform.Text1.Value=LEFT(TIME(),2)+”时”+SUBSTR(TIME(),4,2)+”分”+RIGHT; (TIME(),2)+”秒” Thisform.Refresh 17:显示时钟和日期的表单,命令按钮及文本框的字体、颜色和大小设置为自己喜欢的形式。 (1)Form的init事件 thisform.text1.value=\thisform.timer1.Enabled=.F. (2)command1的click事件 thisform.timer1.Enabled=.T. thisform.text1.Value=TIME() thisform.Refresh (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+\年\月\日\thisform.Refresh (4)command2的click事件 thisform.Release (5)timer事件 thisform.text1.Value=TIME() thisform.Refresh 18.建立一个表单,通过每次单击“开始”按钮,都能实现表单的标签信息从顶行向下平移,移到底边即停止。标签高度为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.Top<=Thisform.Height-Thisform.Label1.Height Thisform.Label1.Top=Thisform.Label1.Top+1 ENDIF Thisform.Refresh 19.编制一个表单完成表文件“学生.dbf ”内容的学生奖学金查询显示功能。要求:1.当用户在下拉列表中选择班级后,按回车键或“确定”按钮时,表单将自动显示对应班级的奖学金总额;2.按“退出”按钮时,自动关闭表单。 (1)表单Form1的Init事件 SET TALK OFF SET SAFETY OFF INDEX ON LEFT(学生.学号,3) TO XH UNIQUE Thisform.Combo1.Displayvalue=Left(学生.学号,3) SCAN Thisform.Combo1.Additem(LEFT(学生.学号,3)) ENDSCAN SET INDEX TO (2)组合框Combo1的Valid事件 IF EMPTY(This.Displayvalue) RETURN .T. ENDIF LOCATE FOR LEFT(ALLTRIM(学生.学号),3)==ALLTRIM(This.Displayvalue) IF EOF() RETURN .F. ELSE RETURN .T. ENDIF (3)命令按钮Command1的Click事件 SUM奖学金 TO MJXJ FOR LEFT(ALLTRIM(学号),3)==ALLTRIM; (Thisform.Combo1.Displayvalue) Thisform.Text1.Value=MJXJ (4)命令按钮Command2的Click事件 Thisform.Release 20、编制一个表单完成表文件“学生”内容的制度浏览显示 (1)form1的init事件 Thisform.setall(“readonly”,.T.) Thisform.chk性别.enabled=.F. C= “首记录前 翻后 翻末记录退 出” For i=1 to thisform.commandgroup1.buttoncount Thisform.commandgroup.buttons(I).caption=substr(C,6*I-5,6) Endfor (2)commandgroup1的click事件 Do case Case this.value=1 Go top This.command1.enabled=.F. This.command2.enabled=.F. This.command3.enabled=.T. This.command4.enabled=.T. Case this.value=2 and not BOF() Skip-1 If BOF() This.command1.enabled=.F. This.command2.enabled=.F. Endif This.command3.enabled=.t. This.command4.enabled=.t. Case this.value=3 and not EOF() Skip If EOF() This.command3.enabled=.F. This.command4.enabled=.F. Endif This.command1.enabled=.t. This.command2.enabled=.t. Case this.value=4 Go buttom This.command1.enabled=.t. This.command2.enabled=.t. This.command3.enabled=.F. This.command4.enabled=.F. Case this.value=5 Thisform.release Endcase Thisform.refresh 21、输入任意自然数,判断是否为素数 (1)form1的init事件 Thisform.text1.selectonentry=.t. Thisform.text2.readonly=.t. Thisform.text1.value=3 Thisform.command1.default=.t. (2)command1的click事件 N=thisform.text1.value For I=2 to N-1 If N%I=0 Exit Endif Endfor If I>N Thisform.text2.value=”是素数!” Else Thisform.text2.value=”不是素数!” Endif Thisform.text1.setfocus Thisform.refresh (3)command的click事件 Thisform.release 22、有一个狐狸头 (1)form1的init事件 Thisform.f=0 Thisform.caption=”动画” (2)timer1的timer事件 If thisform.f=0 Thisform.image1.left=thisform.image1.left+1 If thisform.image1.left=thisform.width-thisform.image1.width Thisform.f=1 Endif Endif If thisform.f=1 Thisform.image1.left=thisform.image1.left-1 If thisform.image1.left=0 Thisform.f=0 Endif Endif 23. 学生学籍信息浏览,2秒自动刷新,到第三页后自动回到第一页 时钟 INTERVAL 2000 TIMER事件 DO case CASE thisform.pageframe1.ActivePage=1 thisform.pageframe1.ActivePage=2 thisform.pageframe1.ActivePage=3 thisform.pageframe1.ActivePage=1 CASE thisform.pageframe1.ActivePage=2 CASE thisform.pageframe1.ActivePage=3 ENDCASE thisform.Refresh 24根据学生表,课程表和成绩表,用SOL-SELECT语句实现以下查询。。学号前三位为“081” COMMAND1 的 CLICK SETECT 学生.学号,姓名,出生年月,课程名,成绩 FROM 学生,成绩,课程; WHERE 学生.学号=成绩.学号 AND 课程.课程号=成绩.课程号 AND YEAR(;出生年月)>=1990 COMMAND2 的 CLICK SETECT 学生.学号,姓名,课程名,成绩 FROM 学生,成绩,课程; WHERE 学生.学号=成绩.学号 AND 课程.课程号=成绩.课程号 AND 成绩>=60 COMMAND3 的 CLICK SETECT 学生.学号,姓名,课程名,成绩 FROM 学生,成绩,课程; WHERE 学生.学号=成绩.学号 AND 课程.课程号=成绩.课程号 AND LEFT(;学生.学号,3)=\COMMAND4 的 CLICK THISFORM.RELEASE 25学生表信息查询界面,只读方式 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(\THISFORM.CHECK1.READONLY=.T. LIST1 INTERACTIVECHANGE事件 THISFORM.SETALL(\THISFORM.REFRESH 1.设计一个统计车票总金额的表单,要求是:在给出的各种车票中选择你需要的, 3个复选框 “计算总额”按钮 default为T text1 readonly 为 T Command1的CLICK s=0 IF thisform.check1.value=1 s=s+580 ENDIF IF thisform.check2.value=1 s=s+50 ENDIF IF thisform.check3.value=1 s=s+280 ENDIF thisform.text1.value=s thisform.Refresh Command2的CLICK thisform.Release 2. 设计一个“职工销售额分档查询”表单 FORM1的INIT事件 SET SAFETY OFF SET DELETED ON SELECT 姓名,商品名称,数量*单价 as 金额 FROM 职工,销售,商品 WHERE 销售.职工号=职工.职工号; AND 销售.商品号=商品.商品号 INTO TABLE 商品销售 ORDER BY 销售.职工号 WITH thisform. grid1 .recordsourcetype=1 .recordsource=\商品销售\.readonly=.T. .visible=.F. .allowaddnew=.F. .deletemark=.F. FORM1的DESTROY事件 OPTIONGROUP1的INTERACTIVECHAN事件 DELETE ALL DO case CASE this.Value=1 RECALL ALL FOR 金额>=6000 CASE this.Value=2 RECALL ALL FOR 金额>=4000 AND 金额<6000 CASE this.Value=3 RECALL ALL FOR 金额>=2000 AND 金额<4000 CASE this.Value=4 RECALL ALL FOR 金额>=1000 AND 金额<2000 CASE this.Value=5 RECALL ALL FOR 金额<1000 ENDCASE GO TOP THISFORM.GRID1.Visible=.T. THISFORM.Refresh ENDWITH CLOSE ALL
正在阅读:
vfp答案01-13
《新视野英语2》09-18
2014年度环境保护工作计划03-09
小学数学三年级上册解决问题归类复习一10-14
2012年全国专利代理人资格考试(相关法律知识)试题及答案11-03
第7讲 金融市场07-18
机械原理西工大第七版习题册答案章07-18
- exercise2
- 铅锌矿详查地质设计 - 图文
- 厨余垃圾、餐厨垃圾堆肥系统设计方案
- 陈明珠开题报告
- 化工原理精选例题
- 政府形象宣传册营销案例
- 小学一至三年级语文阅读专项练习题
- 2014.民诉 期末考试 复习题
- 巅峰智业 - 做好顶层设计对建设城市的重要意义
- (三起)冀教版三年级英语上册Unit4 Lesson24练习题及答案
- 2017年实心轮胎现状及发展趋势分析(目录)
- 基于GIS的农用地定级技术研究定稿
- 2017-2022年中国医疗保健市场调查与市场前景预测报告(目录) - 图文
- 作业
- OFDM技术仿真(MATLAB代码) - 图文
- Android工程师笔试题及答案
- 生命密码联合密码
- 空间地上权若干法律问题探究
- 江苏学业水平测试《机械基础》模拟试题
- 选课走班实施方案
- 答案
- vfp
- `减速器1 - 图文
- 2008感动中国年度人物颁奖词
- 安徽建筑大学2017-2018学年第一学期
- 贵州省情复习题及试题参考答案(2014)
- 借调期间个人工作总结
- 全面正确履行政府职能
- 部编教材九年级下册语文期末复习之名著阅读专题
- 王允形象分析
- 物理化学试卷
- 2016-2021年汽车冷却水泵行业深度调查及发展前景研究报告
- 2016-2020年联苯双酯滴丸市场发展前景分析及供需格局研究预测报告
- 银行支行监察室半年工作总结
- 煤业公司各级各岗位人员职业病防治责任制
- 旋转液体物理特性的测量
- 速达5000常见问
- 工程热力学,课后习题答案
- 济南市前期物业服务合同示范文本120808终稿
- 电路测试题
- 《湘潭大学青年马克思主义者培养工程实施方案》
- 目标计划管理制度