内容发布更新时间 : 2024/11/6 5:04:26星期一 下面是文章的全部内容请认真阅读。
29、VFP基类分两类：容器类和控件类，请写出至少5个基类的名称。
容器类：(1)form：表单 (2)formset：表单级 (3)grid：表格 (4)page：页
(5)pageframe：页框 (6)commandgroup：命令按钮组 (7)optiongroup：选项按钮组
控件类：(1)timer:计时器 (2)textbox：文本框
(3)listbox：列表框 (4)editbox：编辑框 (5)label：标签
30、简述设计表单的原则。
在Visual FoxPro中进行表单设计时，多个控件的同一个属性可以同时设置，但是在设置前必须同时选中这些对象。
31、简述菜单设计的基本步骤。
(1)规划菜单系统 (2)设计菜单 (3)指定各菜单选项所要执行的任务 (4)保存菜单定义 (5)生成菜单程序 (6)运行菜单程序
32、请叙说数据库应用系统开发的一般步骤。
(1)需求分析 (2)数据库设计 (3)应用程序设计 (4)系统测试 (5)系统试运行 (6)系统运行与维护
1、使用循环结构计算出10！的值。
y=1
for n=1 to 10 y=n endfor
2、编程计算100以内的奇数和S=1+3+5+??+99。
Set talk off Clear N=100 S=0
For I=1 to N step 2 S=S+I Endfor
6
3、用循环语句求100以内偶数之和，并在屏幕上输出显示如下内容： 100以内偶数之和为：2550（变量的值）
Set talk off Clear N=100 S=0
For I=1 to N step 2 S=S+I Endfor
?N,”以内的偶数之和为”,S
4、用循环语句求100以内能被5或7整除的数之和。并在屏幕上显示如下内容： 100以内能被5或7整除的数之和为：789（计算得出）
Clear s=0
for I=1 to 100
if I%5=0 or I%7=0 s=s+I endif endfor
?”100以内能被5或7整除的数之和为：”，s
5、编程计算下列分段函数的值
?2x?1(x?0)?f(x)??4x(x?0)?7x?5(x?0)?Input”输入X的值：” to x Do case Case x<0 f=2*x-1 Case x=0 f=4*x otherwise f=7*x-5 endcase
?”f(‘’,x,‘’)=”,f
7
6、请为下列表单（如图1所示）中的“计算润年”按钮编程，具体要求如下： （1）根据文本框读入的年份计算出是否为润年？
（2）若××××年是润年，则在蓝色“标签”上显示“××××年是润年！”，否则，在蓝色“标签”中显示“××××年不是是润年！”(如图2所示)。
其中，表单中对象“标签”的Name属性：LabShow
“文本框”的Name属性：txtYear
图1 图2
提示：假如年份用year表示，判断year是否是闰年的方法是：year能够被400整除或year能够被4整除并且不能够被100整除。
(1)clear
input \请输入年份：\
if (int(x/4)=x/4 and int(x/100)<>x/100); or int(x/400)=x/400 ?x,\是闰年\else
?x,\不是闰年\endif
7、对于给定字符串“I am a student”，请编写程序将其反序显示出来。
CLEAR
STORE ’I am a student’ TO c p=SPACE(0)
FOR I=1 TO len(c) x=SUBSTR(c,I,1) p=X+p ENDFOR
?c+\的反序为\
8
8、编写程序，计算 S=1!+2!+3!+??+20!的值。
S=0
FOR I=1 TO 20 P=1
FOR J=1 TO I P=P*J NEXT J S=S+P NEXT I Endfor
9、随机生成10个两位整数，然后找出其中的最大数和最小数，并在屏幕上输出：
最大数：88（按实际输入的值而定） 最小数：44（按实际输入的值而定）
Clear
Input”请输入一个数：” to a Store a to max,min For i=2 to 10
Input”请输入一个数：” to a If maxa min=a endif endfor
?”最大值：”,max ?”最小值：”,min return
10、使用循环结构显示JS表中所有女教师的工号和姓名。
Clear Use js
Scan for XB=”女” ?JS.GH,JS.XM Endscan
9
11、找出100以内的所有素数。
Clear
For m=2 to 100 n=int(sqrt(m)) for i=2 to n
if mod(m,i)=0 exit endif endfor if i>n ??m Endif Endfor
12、一个数列，它的前3项依次为0、0、1，从第4项开始，以后每一项是它前三项之和，求这个数列的前20项。
clear
a=0:b=0:c=1 ?a,b,c
for i=4 to 20 x=a+b+c ??x
a=b:b=c:c=x next
13、找出100～900之间的所有“水仙花数”。
CLEAR
FOR i=100 TO 900
a=INT(i/100) b=INT((i-100*a)/10) c=i-INT(i/10)*10 IF i=a^3+b^3+c^3 ?i ENDIF ENDFOR
10