VFP程序设计题汇总

IF 英语成绩>=75

DISP

ENDIF

SKIP &&按默认值1向下移动记录指针

ENDDO

USE

SET TALK ON

方法二：

SET TALK OFF

CLEAR

USE 学生信息

locate for 英语成绩>=75

DO WHILE !EOF()

display

continue

ENDDO

USE

SET TALK ON

5.分别用DO循环和FOR循环求1+2+3+……+36的和值。

用DO循环的写法：

SET TALK OFF

CLEAR

S=0

N=1

DO WHILE N<=36

S=S+N

N=N+1

ENDDO

? " 1+2+3+……+36的值为：", S

SET TALK ON

用FOR循环的写法：

SET TALK OFF

CLEAR

S=0

FOR N=1 TO 36

S=S+N

ENDFOR

? " 1+2+3+……+36的和值：", S

SET TALK ON

6.用“SCAN…ENDSCAN循环结构”显示“学生信息.dbf”文件中“英语成绩”大于等于75的记录。

SET TALK OFF

CLEAR

USE 学生信息

SCAN FOR 英语成绩>=75

DISPLAY

ENDSCAN

USE

SET TALK ON

7.求当1！+3！+5！+…+n!的值不超过10的20次幂时的临界值及n的值。

SET TALK OFF

CLEAR

S=1 &&初始化存放累加和的变量S 为1

STORE 1 TO T,N &&初始化变量T，N的值为1

DO WHILE S<=1E+20

T=T*(N+1)*(N+2) &&从第二项开始，计算每一项阶乘。

S=S+T &&追加每一项阶乘

N=N+2 &&下一个奇数

ENDDO

?"S=",S-T &&最后一个S由于是多加了一个T后不满足条件，故减去。

?"N=",N-2 &&最后一个N由于是多加了一个2后不满足条件，故减去。

SET TALK ON

（5） 计时器（Timer1）的Timer 事件代码：if !eof() &&如果不到记录尾

skip &&跳到下一记录，频率由Timer 值决定。

Else &&如果已到记录尾 go top &&跳到第一条记录 endif

thisform.text1.value=alltrim(学号) &&显示学生

的学号

末记录按钮时，表单将自动显示相应记录的内容；当

翻至表头或表尾时，将自动设置相应按钮不可访问。

参见下面的表单设计及运行示意图。

表单设计界面

单击“选中”界面

色自动变换（与时间同步切换），Timer1的Interval 属性已在属性窗口中设置完成。

case this.value=3

https://www.wendangku.net/doc/6418684409.html,bel1.fontname="黑体case this.value=4

https://www.wendangku.net/doc/6418684409.html,bel1.fontname="仿宋endcase

表单设计界面表单运行界面