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