下载文档第一篇：VFP题库--属性设置题
1、本题素材为考生文件夹下的sz01.scx文件，请完成以下操作：
（1）将表单form1的标题栏设为“我的表单”，表单设为最大化模式；windowstate
2（2）将label1的字体大小设为24，字的颜色为rgb(255,0,0)；
（3）将label2的字体大小设为18，背景颜色为(212,68,128)；
（4）在该表单上添加一个命令按钮组，其中有两个按钮，标题分别为“确定”和“取消”。
2、本题素材为考生文件夹下的sz02.scx文件，请完成以下操作：
（1）将表单form1的标题栏设为“学生管理”；
（2）将label1的字体大小设为22，背景颜色为（215,100,100）；
（3）将label2的标题设为“202_年6月”，字体大小设为16，标签大小可自动调整； Autosize.T.自动调整大小label2的标题； caption属性设为202_年6月
（4）在该表单上添加一个列表框，列表框中添加的项目为“北京”、“上海”、“南京”。在生成器中-手工输入数据-列
thisform.list1.additem(“北京”)
thisform.list1.additem(“上海”)
thisform.list1.additem(“南京”)
3、本题素材文件是考生文件夹中的sz03.scx，完成以下操作：
（1）设置文本框Text1显示的值为“江西科技师范学院”，只读；readonly.T.（2）将Command1的标题设置为“查询”，字号为14；
（3）设置属性使得Command2运行时不可见；visible.F.不可见
4、打开考生文件夹下的表单文件sz04.scx，按以下要求进行设置并保存。
(1)设置表单的标题为“移动字幕”，表单的背景色为“蓝色(0,255,0)”；backcolor
(2)设置标签label1的字号为“24”、斜体，标签的大小能够自动调整；fontsizeFontitalic.F.Autosize.T.自动调整大小
(3)设置按钮command2为不可用；enabled.F.(4)在表单上添加一个计时器控件Timer1，设置Timer1的时间间隔属性为0.2秒。200毫秒
5、本题素材文件是考生文件夹中的sz05.scx，该表单实现的功能是逐条显示表sz05_xs.dbf中的记录，请完成以下设置：
（1）将Label1的字号设为16，斜体，红色；Fontitalic.F.Forecolor(225,0,0)
（2）在表单上建立三个文本框分别显示表sz05_xs.dbf中的学号、姓名和奖学金。
该表单运行效果如下图所示：
7、本题素材为考生文件夹下的sz07.scx文件，请完成以下操作：
（1）将label1的字体大小设为18，背景颜色为（255,128,0）；
（2）添加一个标签控件，设置其标题为“202_年6月”，可自动调整标签控件的大小；thisform.label2.caption.autosize =.T.（3）在该表单上添加一个命令按钮，设置其名称为“cmdok”，不响应事件（即运行时按钮显示为灰色的）。Namecmdok(thisform.command1.enabled=.f.)该表单运行效果如下图所示：命令1：
8、本题素材文件是考生文件夹中的sz08.scx，完成以下操作：
（1）将Command1的标题设置为：计算，字号为14；
（2）设置属性使得Command2不可见（即运行时不显示）； visible.F.不可见
（3）在表单上添加一个文本框，设置文本框的宽度为200，高度为40，数据类型为数值型。生成器将数据类型转换为数值型文本框的Value值设为0该表单运行效果如下图所示：
9、打开考生文件夹下的表单文件sz09.scx，按以下要求进行设置并保存。
(1)设置表单的标题为“移动”，设置属性使得该表单运行时自动处于最大化状态； windowstate
2(2)设置标签label1的字体为“黑体”，字的颜色为红色(255,0,0)；
(3)在表单上添加一个计时器控件Timer1，设置Timer1的时间间隔属性为0.2秒，不响应事件。200毫秒enabled.F.设置完成后效果如下图，运行时表单会最大化。
10、本题素材文件是考生文件夹中的sz10.scx，另有一个表文件xs4_10.dbf，包括学号、姓名、奖学金三个字段。
完成以下设置：
（1）将Label1（学生情况）的字体设为“隶书”，背景色为“浅蓝(128,128,255)”；
（2）将表xs4_10添加到该表单的数据环境中；
（3）在表单上添加两个文本框，分别用于显示表中的“姓名”和“奖学金”字段。该表单运行效果如下图所示：
11、本题素材文件是考生文件夹中的sz11.scx，完成以下操作：
（1）设置label1的文字颜色为红色（255,0,0），背景透明；backstyle
（2）将Command1的标题设置为“计算”，字号为14；
（3）设置属性使得Command2不可见（即运行时不显示）；
thisform.command2.visible=.F.（4）在表单上添加一个编辑框，设置编辑框的宽度为200，高度为100。该表单运行效果如下图所示：
12、本题素材文件是考生文件夹中的sz12.scx，请完成以下设置：
（1）将表单设为初次显示时自动居中；autocenter.T.（2）将Label1的字体设为“隶书”，加粗，加下划线；thisform.label1.fontname =“隶书”fontboldfontunderline
（3）将表sz12_1.dbf添加到该表单的数据环境中；
（4）在表单上建立三个文本框分别显示表sz12_1.dbf中的编号、姓名和工资现状。
该表单运行效果如下图所示：
13、本题素材文件是考生文件夹中的sz13.scx，完成以下操作：
（1）设置标签label1显示的文本为“请选择要浏览的表”，字号18，该标签能够自动调整大小；autosize
（2）将Command1的名称设为“cmdok”，标题设为“确定”，字号为16；
Namecmdokcaption确定
（3）在该表单上添加一个选项按钮组，其中有三个选项，分别是“读者”、“作者”、“图书”。
14、设计一表单，可以通过一文本框对列表框进行项目的添加、删除操作，其界面如图7-40所示。
（1）选择控件
在表单上添加一个列表框控件Listl，一个文本框控件Text1和两个按钮控件command1、command2。
（2）属性设置
Forml的Caption属性设为“课程管理”。
Command1的Caption属性设为“添加”。
Command1的Caption属性设为“删除”。
（3）编写代码
窗体Forml的Init代码如下：
thisform.list1.AddItem(“计算机文化基础”)
thisform.list1.AddItem(“大学英语”)
thisform.list1.AddItem(“高等数学”)
按钮Command1的Click代码如下：
kecheng=thisform.text1.Value
thisform.list1.additem(kecheng)
thisform.text1.Value=""
按钮Command2的Click代码如下：
thisform.list1.RemoveItem(thisform.list1.ListIndex)
第二篇：VFP程序题
VFP程序题 第一套题
一、运行结果题
1、以下程序运行结果是
SET TALK OFF
CLEAR
A = 5
B = 12
C = 18 IF MAX(A , B)< C
? MAX(A, B)
ELSE IF MIN(A , B)< C
? C
ELSE
? MIN(A , B)
ENDIF
ENDIF SET TALK ON
RETURN
2、以下程序运行结果是
SET TALK OFF CLEAR USE STCJ
DO WHILE ,NOT, EOF()
REPLACE 总分 WITH 高数 + 计算机 + 英语 SKIP
ENDDO GO BOTTOM
? 学号，总分
USE
RETURN
3、以下程序运行结果是
SET TALK OFF
SET HEADINGS OFF SELECT 2 USE STCJ
INDEX ON 编号
TO GZ21
REPLACE ALL 总分
WITH 高数 + 计算机 + 英语 SELECT 1 USE STDA
SET RELATION TO 编号
INTO B DISPLAY FIELDS 姓名，B.总分
FOR 四级通过
OFF CLOSE ALL RETURN
4、以下程序运行结果是
SET TALK OFF SET SAFETY OFF USE STDA INDEX ON 民族
TO XBSY TOTAL ON 民族
TO GZHZ USE GZHZ COUNT TO N ? N
SET SAFETY ON SET
TALK
ON RETURN
5、以下程序运行结果是
SET TALK OFF SET DELETED ON USE STDA DELETE FOR 性别 = “ 男 ” COUNT TO A SET DELETED OFF COUNT TO B DELETE ALL PACK COUNT TO C ? A , B , C SET TALK ON RETURN
6、以下程序运行结果是
SET TALK OFF USE STDA
INDEX ON 奖学金
TO GZSY SKIP 2
? 姓名，奖学金 USE
SET TALK ON RETURN
7、以下程序运行结果是
SET TALK OFF
SET PROCEDURN TO SP S = 0
DO SP1 WITH 5 , S ? S
SET TPROCEDURE
TO RETURN * SP PRG PROCEDURE
PARAMETERS X , Y N = 1 Y = 1
DO WHILE N < X
Y = Y + N
N = N + 1
ENDDO
RETURN
8、以下程序运行结果是
SET TALK OFF DIMENSION X(2 ,2)X = 5 FOR I = 1 TO 2 FOR J = 1 TO 2 IF I = J
X(I , J)ENDIF ?? X(I , J)ENDFOR ENDFOR SET TALK ON RETURN
二、完善程序
1、下列程序计算机 S =1！+ 2！+3！+4！+5！中，填空完成程序。
S = 0 FOR N = 1
TO 5
FOR I = 1 TO N
P = P * I
ENDFOR
ENDFOR
? “SUN =” , S
2、用下列程序找出所有的水仙花数，所谓水仙花数，是指这样一
个三位数，其各位数字的立方和等于该数本身，如 153 = 1^3 +5^3 +3^3，对以下程序填空完成该功能。FOR N = 100 TO 999
A = INT(N / 100)
B =
C = N – INT(N / 10)* 10 IF N = A^3 +B^3 +C^3
? N
ENDIF
ENDFOR
RETURN
3、将新表 DB2.DBF 文件中学号重复的记录删掉（只保留一个）SET TALK OFF SET SAFETY
OFF
USE STDA
COPY TO DB2 USE DB2
INDEX ON 学号
TO XH DO WHILE.NOT.EOF()XH = 学号 SKIP
DELETE ENDIF ENDDO
CLEAR ALL
4、显示STDA.DBF 文件中男同学的记录
SET
TALK
OFF
SET
HEADING
OFF
USE
STDA
DO
WHILE
.NOT.EOF()
IF
ENDIF
DISPLAY
WAIT
ENDDO
USE
SET
TALK ON
RETURN
5、将STDA.DBF 表中未通过英语四级考试学生的将赏金取消，通过者奖学金加50元，并显示姓名和奖学金额。SET TALK OFF
CLEAR USE STDA DO WHILE.NOT.EOF()IF.NOT.四级通过
REPLACE 奖学
WITH 0
ELSE
? 姓名，奖学金
ENDIF
SKIP
ENDDO
USE
SET TALK ON
RETURN
6、按学号查询成绩
SET TALK OFF CLEAR SELECT 1 USE STDA
INDEX ON 学号 TO IXH SELECT 2 USE STCJ
INDEX ON 学号 TO ICJ
ACCEPT “请输入查询学号：” TO XH SEEK
XH IF
FOUND()
DISPLAY
学号，A->姓名，总分
ELSE
? “ 查无此人！”
ENDIF
USE RETURN
7、请阅读下列判断一个自然数是否为质数的程序，并将程序填写完整。
SET
TALK
OFF
INPUT
“ 请输入一个大于1 的自然数：”
TO N
K = 0
J = 2
DO
WHILE
J < N IF MOD(N , J)
J = J +1
LOOP
ELSE
K = 1
EXIT
ENDIF
ENDDO
IF
K = 0
?
+ “ 素数”
ENDIF
? “ 再见！” SET TALK ON
RETURN
8、修改数据表文件 STDA.DBF 中指定同学的四级通过情况。SET TALK OFF USE STDA
INDEX TO ISY
DO
WHILE.T.CLEAR
ACCEPT “ 输入待学生的姓名” TO XM SEEK XM
IF
FOUND()
@ 10 , 10 SAY “ 修改” + XM + “ 的四级通过情况：” GET 四级通过
WAIT
“ 继续修改？（Y / N）”
TO N IF
ENDIF ENDDO USE RETURN
9、将数据表文件STDA.DBF 中的第三条记录与第四条记录的内容互换，并显示第三条记录。
SET
TALK
OFF
CLEAR
USE
STDA
GO
SCATTER
TO
A
GO
SCATTER
TO
B
GO
GATHER
FROM
B
DISPLAY
GO
USE
SET
TALK
ON
RETURN
10、如下程序根据键入的学号使用SQL SELECT 语句显示学生的学号、姓名和平均成绩。请在下划线处填写适当的内容，使程序能正确的运行。
DO
WHILE.T.CLEAR
ACCEPT
“请输入学号：” TO KEYNO
SELECT
STDA.学号，姓名，（高数 +计算机 +英语）/3 AS平均成绩;FROM STDA.STCJ WHERE
WAIT
“如果退出，请按【Y】键！”
TO KEY
IF
UPPER(KEY)= “ Y”
ENDIF ENDDO USE RETURN
三、程序改错题
1、在STDA.DBF 中，查询某人英语四级通过情况，若通过了，则授予学位，否则不授予学位。(1)SET
TALK OFF(2)USE
STDA
(3)ACCEPT “请输入姓名：”
TO XM(4)SEEK
FOR 姓名 = XM(5)IF
EOF()
(6)? “查无此人！”(7)RETURN(8)ENDIF
(9)IF
英语四级通过
(10)?姓名 + “英语四级通过，授予学位”(11)ELSE
(12)?姓名 + “英语四级没通过，不授予学位”(13)ENDIF(14)USE
(15)SET
TALK
ON(16)RETURN 错误的行是 改为：
2、显示 STCJ.DBF 中总分不低于190分的所有学生的姓名和总分字段的值。
(1)
SET
TALK OFF
(2)
SET
HEAD
OFF
(3)
USE
STCJ
(4)
DO
WHILE
RECNO()< = RECCOUNT()
(5)
REPL
总分
WITH
高数 +计算机 +英语
(6)
IF
总分> = 190
(7)
DISP
学号，总分 OFF
(8)
ENDIF
(9)
LOOP
(10)
ENDDO
(11)
RETURN 错误的行是： 改为：
3、在STDA.DBF 中，快速查询性别为“男”，“09/12/92”出生的人
(1)
SET
TALK OFF
(2)
USE
STDA
(3)
INDEX
ON 性别 +入学时间
TO LKL
(4)
SEEK “男” + “09/12/92”
(5)
IF
.NOT.EOF()
(6)
DISPLAY
(7)
ELSE
(8)
? “查无此人！”
(9)
ENDIF
(10)
USE
(11)
SET
TALK ON
(12)
RETURN 错误的行是： 改为：
4、求出 STCJ 表中总成绩的最大值和最小值。(1)
SET
TALK
OFF
(2)
USE
STCJ
(3)
DO
WHILE
.NOT.EOF()
(4)
REPLACE
总分
WITH 高数 +计算机+英语
(5)
SKIP
(6)
ENDDO
(7)
GO
TOP
(8)
STORE
总分
TO MAX , MIN
(9)
DO
WHILE
.NOT.EOF()
(10)
IF MAX >总分
(11)
MAX = 总分
(12)
ENDIF
(13)
IF MIN <总分
(14)
MIN = 总分
(15)
ENDIF
(16)
SKIP
(17)
ENDDO
(18)
? “最高分：” ,MAX ,”最低分：” , MIN
(19)SET
TALK
ON
(20)RETURN 错误的行是： 改为：
第九套题
一、完善程序题
1、将“职工”表中的数据按工资降序排列后生成新表，程序如下：
CLOSE
ALL
SET
TALK
OFF CLEAR USE 职工
TO 职工1 ON
工资/D USE 职工1 DISPLAY ALL USE
RETURN
2、在“职工”表中查找且显示“孙大鹏”的信息，程序如下：
SET TALK OFF CLEAR USE 职工 LOCATE
IF
FOUND()DISPLAY ENDIF USE
3、显示“职工”表中女职工的工资和，程序如下：
SET
TALK
OFF CLEAR SELECT
FROM 职工 RETURN
1、设计一个查询表单BD.SCX,其界面如图所示，其中文本框控件
名为TEXT1，表格控件名为GRID1。当在其中输入职工姓名并单击“查询”按钮时，将下边的表格内显示该职工的信息。“查询”按钮的Click 事件代码应如下：
THISFORM.GRID1.RECORDSOURCETYPE=4
THISFORM.GRID1.FRCORDSOURCE=”SELECT
* FORM 职工
WHERE
姓名
= = ”
5、将“职工”表中第6条记录的“出生日期”改为“12/12/1972”,程序如下：
SET TALK OFF CLEAR USE 职工 SKIP 5
出生日期
WITH {^1972/12/12} DISPLAY USE
RETURN
第三篇：textAppearance的属性设置
android:textAppearance=“?android:attr/textAppearanceSmall”
android:textAppearance=“?android:attr/textAppearanceMedium”
android:textAppearance=“?android:attr/textAppearanceLarge”
android:textAppearance=“?android:attr/textAppearanceLarge”
TextView属性详解
android:autoLink设置是否当文本为URL链接/email/电话号码/map时，文本显示为可点击的链接。可选值(none/web /email/phone/map/all)
android:autoText如果设置，将自动执行输入值的拼写纠正。此处无效果，在显示输入法并输入的时候起作用。
android:bufferType指定getText()方式取得的文本类别。选项editable 类似于StringBuilder可追加字符，也就是说getText后可调用append方法设置文本内容。spannable 则可在给定的字符区域使用样式，参见这里
1、这里2。
android:capitalize设置英文字母大写类型。此处无效果，需要弹出输入法才能看得到，参见EditView此属性说明。
android:cursorVisible设定光标为显示/隐藏，默认显示。
android:digits设置允许输入哪些字符。如“1234567890.+-*/%()”
android:drawableBottom在text的下方输出一个drawable，如图片。如果指定一个颜色的话会把text的背景设为该颜色，并且同时和background使用时覆盖后者。
android:drawableLeft在text的左边输出一个drawable，如图片。
android:drawablePadding设置text与drawable(图片)的间隔，与drawableLeft、drawableRight、drawableTop、drawableBottom一起使用，可设置为负数，单独使用没有效果。
android:drawableRight在text的右边输出一个drawable。
android:drawableTop在text的正上方输出一个drawable。
android:editable设置是否可编辑。
android:editorExtras设置文本的额外的输入数据。
android:ellipsize设置当文字过长时,该控件该如何显示。有如下值设置：”start”—?省略号显示在开头;”end” ——省略号显示在结尾;”middle”—-省略号显示在中间;”marquee” ——以跑马灯的方式显示(动画横向移动)
android:freezesText设置保存文本的内容以及光标的位置。
android:gravity设置文本位置，如设置成“center”，文本将居中显示。
android:hintText为空时显示的文字提示信息，可通过textColorHint设置提示信息的颜色。此属性在 EditView中使用，但是这里也可以用。
android:imeOptions附加功能，设置右下角IME动作与编辑框相关的动作，如actionDone右下角将显示一个“完成”，而不设置默认是一个回车符号。这个在EditView中再详细说明，此处无用。
android:imeActionId设置IME动作ID。
android:imeActionLabel设置IME动作标签。
android:includeFontPadding设置文本是否包含顶部和底部额外空白，默认为true。android:inputMethod为文本指定输入法，需要完全限定名(完整的包名)。例如：
com.google.android.inputmethod.pinyin，但是这里报错找不到。
android:inputType设置文本的类型，用于帮助输入法显示合适的键盘类型。在EditView中再详细说明，这里无效果。
android:linksClickable设置链接是否点击连接，即使设置了autoLink。
android:marqueeRepeatLimit在ellipsize指定marquee的情况下，设置重复滚动的次数，当设置为 marquee_forever时表示无限次。
android:ems设置TextView的宽度为N个字符的宽度。这里测试为一个汉字字符宽度 android:maxEms设置TextView的宽度为最长为N个字符的宽度。与ems同时使用时覆盖ems选项。
android:minEms设置TextView的宽度为最短为N个字符的宽度。与ems同时使用时覆盖ems选项。
android:maxLength限制显示的文本长度，超出部分不显示。
android:lines设置文本的行数，设置两行就显示两行，即使第二行没有数据。
android:maxLines设置文本的最大显示行数，与width或者layout_width结合使用，超出部分自动换行，超出行数将不显示。
android:minLines设置文本的最小行数，与lines类似。
android:lineSpacingExtra设置行间距。
android:lineSpacingMultiplier设置行间距的倍数。如”1.2”
android:numeric如果被设置，该TextView有一个数字输入法。此处无用，设置后唯一效果是TextView有点击效果，此属性在EdtiView将详细说明。
android:password以小点”.”显示文本
android:phoneNumber设置为电话号码的输入方式。
android:privateImeOptions设置输入法选项，此处无用，在EditText将进一步讨论。android:scrollHorizontally设置文本超出TextView的宽度的情况下，是否出现横拉条。android:selectAllOnFocus如果文本是可选择的，让他获取焦点而不是将光标移动为文本的开始位置或者末尾位置。TextView中设置后无效果。
android:shadowColor指定文本阴影的颜色，需要与shadowRadius一起使用。android:shadowDx设置阴影横向坐标开始位置。
android:shadowDy设置阴影纵向坐标开始位置。
android:shadowRadius设置阴影的半径。设置为0.1就变成字体的颜色了，一般设置为3.0的效果比较好。
android:singleLine设置单行显示。如果和layout_width一起使用，当文本不能全部显示时，后面用“…”来表示。如android:text=”test_ singleLine “
android:singleLine=”true“ android:layout_width=”20dp"将只显示“t…”。如果不设置singleLine或者设置为false，文本将自动换行
android:text设置显示文本.android:textAppearance设置文字外观。如 “?android:attr/textAppearanceLargeInverse”这里引用的是系统自带的一个外观，?表示系统是否有这种外观，否则使用默认的外观。可设置的值如下：
textAppearanceButton/textAppearanceInverse/textAppearanceLarge/textAppearanceLargeInverse/textAppearanceMedium/textAppearanceMediumInverse/textAppearanceSmall/textAppearanceSmallInverse
android:textColor设置文本颜色
android:textColorHighlight被选中文字的底色，默认为蓝色
android:textColorHint设置提示信息文字的颜色，默认为灰色。与hint一起使用。android:textColorLink文字链接的颜色.android:textScaleX设置文字之间间隔，默认为1.0f。
android:textSize设置文字大小，推荐度量单位”sp”，如”15sp”
android:textStyle设置字形[bold(粗体)0, italic(斜体)1, bolditalic(又粗又斜)2] 可以设置一个或多个，用“|”隔开
android:typeface设置文本字体，必须是以下常量值之一：normal 0, sans 1, serif 2, monospace(等宽字体)3]
android:height设置文本区域的高度，支持度量单位：px(像素)/dp/sp/in/mm(毫米)android:maxHeight设置文本区域的最大高度
android:minHeight设置文本区域的最小高度
android:width设置文本区域的宽度，支持度量单位：px(像素)/dp/sp/in/mm(毫米)，与layout_width 的区别看这里。
android:maxWidth设置文本区域的最大宽度
android:minWidth设置文本区域的最小宽度
第四篇：vfp程序题总结
五．程序题 在Text1中输入一个3位自然数，分解求和的结果存入Text2中
x= thisform.text1.value a=int【1 】
b=int 【 2】
c=【 3】
s=【 4】
thisform.text2.value=【5 】
x/100(x-a*100)/10 x-a*100-b*10 a+b+c s 2 文本框Text1中输入的值与文本框Text2中输入的值交换
a= thisform.text1.value b= thisform.text2.value d=【1 】
【2 】
【3 】=d thisform.text1.value=【4 】
thisform.text2.value=【 5】
a a=b b a b 3 已知任意一个三角形的三条边为a、b、c，求其面积。
a=thisform.text1.value b=【 1】
c=【 2】
p=(a+b+c)/【3 】
s=【 4】(p*(p-a)*(p-b)*(p-c))thisform.text4.value=【5 】
thisform.text2.value thisform.text3.value 2 sqrt s 4 判断一个学生的计算机考试成绩x属于哪个分数段之间（0-59，60-69，70-79，80-89，90-100）Command1_click事件代码如下：
x= thisform.text1.value store 0 to h5,h6,h7,h8,h9 do case case x>=0 and x<=59 h5=h5+1 case 【1 】 and x<=69 h6=h6+1 case x>=70 and x<=79 【 2】
case 【3 】 and x<=89 h8=h8+1 case x>=90 and 【 4】
h9=h9+1 【 5】
thisform.label1.caption=str(h5)+ str(h6)+str(h7)+str(h8)+str(h9)x>=60 h7=h7+1 x>=80 x<=100 endcase 5 假设表单与第二题中的表文件zgqk.dbf 建立了数据环境，在其中按姓名查找职工情况，找到后将其情况在表单上显示，否则在信息框中显示“查无此人”。试完成下面程序。
【 1】 zgqk xm=thisform.text1.value locate for【2 】
if 【 3】eof()thisform.【4 】
else 【5 】(“查无此人”)Endif use xm=姓名 not refresh messagebox 6 求s=1/1^2+1/2^2+„+1/n^2 【 1】
n=thisform.text1.【2 】
FOR i=1 TO 【3 】
s=s+【4 】
next THISFORM.Label3.Caption=【5 】
s=0 value n 1/i^2 str(s)7 计算1+3+5+„„99，并将结果存入文本框Text1中，请填空
【 1】
FOR N=1 TO 【 2】 step 【 3】
s=s+n end【4 】
【5 】
s=0 99 2 for thisform.text1.value=str(s)8 计算1+3+5+„„99，并将结果存入文本框Text1中，请填空
【 1】
FOR N=1 TO 【 2】
if 【 3】(n/2)<> n/2 s=s+n endif end【 4】
【5 】 s=0 99 int for thisform.text1.value=str(s)9 计算2+4+6+„„100，并将结果存入文本框Text1中，请填空
【1 】
FOR N=2 TO 【2 】step 1 if int(n/2)=【 3】
s=s+n 【4 】
endfor 【 5】
s=0 100 n/2 endif thisform.text1.value=str(s)10 求所有的3位正整数除以99的商和余数，并输出。
for i= 【1 】to 【2 】
a= 【 3】
b=【4 】
?【5 】
Endfor 100 999 int(i/99)i%99 a, b 11 求1！+2！+3！+4！+5！。
S=0 For i=1 to【1 】
t=【2 】
for k=1 to 【 3】
t=t*【4 】
endfor s=s+【 5】
endfor 5 1 I k t 12 计算1+2+3+„„100，并将结果存入文本框Text1中，请填空
【 1】
FOR N=1 TO【 2】step 【 3】
s=s+n 【 4】for 【5 】
s=0 100 1 end thisform.text1.value=str(s)13 统计1至100之间能被7整除的数的个数并求其和，结果用信息框（对话框）输出。Command1_click事件代码如下：
k=0 s=0 for i=1 to 100 if 【1 】(I,7)=0 k=k+【 2】
s=s+【3 】
endif endfor a=messagebox(【 4】+【 5】)mod 1 I str(k)str(s)14 在文本框Text1中输入一个字符串，统计其中数字字符的个数，结果存入文本框Text2中。Command1_click事件代码如下： k=0 x=allt(thisform.text1.value)n=【1 】
for i=1 to 【 2】
if subs(x,i,1)>”0” and【3 】
【 4】
endif endfor thisform.text2.value=【 5】
len(x)n subs(x,i,1)>”9” k=k+1 str(k)15.s=求1！+2！+3！+...+20!【1 】
for n=1 to 20 t=1 for m=1 to 【 2】
t=t*【3 】
endfor 【 4】
endfor THISFORM.Text1.Value=【 5】
s=0 n m s=s+t s 16.找出202_至2100之间所有闰年的年份
FOR i=【 1】 TO 【2 】
if i%4=0 AND i%100!=0 OR i%【3 】
? 【4 】
endif 【5 】
202_ 2100 400=0 I ENDFOR 17.设计一个求t=n!的自定义函数
【 1】f(x)t=【 2】
FOR j = 1 to 【3】 t=t*【4 】 endfor return 【 5】
function[###]func 1 x j t 18.求 Fibonacci 数列(1,1,2,3,5„)的前n(n>3)项,并输出
input “n=” to n 【 1】 a(n)a(1)=1 a(2)=1 ? a(1),a(2)for i=3 to 【 2】
a(i)=【 3】+【 4】
?? a(i-1),a(i-2)end【 5】
dime n a(i-1)a(i-2)for 19.输出zgqk.dbf的基本工资大于600的记录
【 1】zgqk do while not 【 2】
if 【 3】
【 4】
endif 【5 】
enddo use eof()基本工资>600 disp[###]display skip 1.在Text1中输入一个3位自然数，分解求和的结果存入Text2中 2.文本框Text1中输入的值与文本框Text2中输入的值交换 3.已知任意一个三角形的三条边为a、b、c，求其面积。
4.判断一个学生的计算机考试成绩x属于哪个分数段之间（0-59，60-69，70-79，80-89，90-100）287 5.求s=1/1^2+1/2^2+„+1/n^2 6.计算1+3+5+„„99，并将结果存入文本框Text1中，7.计算1+3+5+„„99，并将结果存入文本框Text1中 8.计算2+4+6+„„100，并将结果存入文本框Text1中，9.求所有的3位正整数除以99的商和余数，并输出。
10.编写程序计算：s=1+1/2!+1/3!+„+1/n!,说明：在表单中有一个文本框控件：Text1,用来接收n的值，有一个标签控件：Label1，用来显示S的值，试编写表单的单击事件，实现计算与显示功能，只要求写出事件的主要代码，事件过程的起始语句和结束语句可略去。11.编写程序计算：S=1X2＋2X3＋„＋NX(N+1)。0
12.编写程序计算多项式：1^1+2^2+3^3+„+10^10 0
13.编写程序在表单上显示出：1～15之间的偶数 0
14.编写程序在表单上显示出：5/6+4/5+3/4+2/3+1/2 15.假设表单与第二题中的表文件zgqk.dbf 建立了数据环境，在其中按姓名查找职工情况，找到后将其情况在表单上显示，否则在信息框中显示“查无此人”
第五篇：奖项设置与属性说明
202_中国农业信息化峰会暨农业网站百强颁奖盛典
202_中国农业信息化峰会暨全国农业网站百强评选
奖项设置与属性说明
为了推动农业信息化的发展进程，专家团深入农业信息化的细分领域，对农业网站、农业信息化产品、农业信息化解决方案、农业信息化领先地区等进行了全面的研究分析与提炼，目的是为行业树立标杆，能有效的引导行业的健康发展，为农业信息化的普及起到推动作用。
【奖项设置】
202_全国农业网站百强奖项
1、综合类网站十强
2、政府类网站五十强
3、科教文化类十强
4、农副产品网站十强
5、畜牧类网站二十强
6、园艺类网站十强
7、农资类网站十强
8、企业类网站十强
202_全国农业网站百强单项奖1、202_中国最具投资价值农业网站2、202_中国最具创新农业网站3、202_中国最具潜力农业网站4、202_中国最具成长农业网站5、202_中国最具社会责任农业网站
202_中国农业信息化奖项1、202_中国“农村信息化杰出贡献单位”
2、202_中国“农业信息化十大人物”
3、202_中国“农业网站十大领军人物”
4、202_中国“农业信息化领先地区”
5、202_中国“农业信息化最佳解决方案”
网站类别属性说明
一、百强奖项
综合类网站
农业综合类网站主要为涉农人群提供有关三农综合性互联网信息信息服务的平台，让网民及时了解三农动态及综合的一站式服务。主要包括：以三农信息为主的新闻、资讯、传媒网站等。
政府类网站
农业政府网站是我国各级政府机关履行职能、面向社会提供服务的官方网站，是政府机关实现政务信息公开、服务企业和社会公众、互动交流的重要平台。主要包括：各地各级农业信息网、各地气象类网站等。
科教文化类网站
科教文化类网站为我国三农领域及时提供，农业科研成果的转化、科技信息传播，各种地方民风民俗、及农业高等院校和远程教育等服务平台。主要包括：各地科技类网站、文化类网站、农业高校网站、远程教育网等。
农副产品网站
农业农副产品类网站主要为我国各种农副产品提供行业资讯、市场行情、供求信信息、项目开发、商务交易、农产品加工、农产品批发等服务平台。主要包括：服务于综合的或某种农产品、农副产品加工和电子商务为主的网站。
畜牧类网站
畜牧类网站主要为我国畜牧、饲料、养殖、水产和渔业行业提供行业新闻资讯、市场行情、原料报价、企业动态、供求信息、实用技术、病情预报等服务，为畜牧业健康快速的发展起到了很好的促进作用。主要包括：以畜牧和饲料、畜牧机械及各种养殖类信息为主的网站和互动平台。
园艺类网站
园艺类网站主要为我国园林、园艺、花卉、果蔬等领域提供行业资讯、市场行情、企业动态、供求信息、种植技术等信息服务，为我国种植行业的发展做出了杰出的贡献。主要包括：各地园林、园艺、花木、花卉、果蔬类行业类网站。
农资类网站
农资类网站主要为我国农业生产领域，提供关于种子、化肥、农药、农机、农膜等必要生产资料的行业资讯、企业动态、市场行情、供求信息、实用技术等信息服务，为我国农业生产领域做出了突出贡献。主要包括：各地种子、化肥、农药、农机、农膜等行业类网站。
企业类网站
企业类网站有效加快了企业信息化的步伐，为企业自身提供了信息化的管理平台，同时为社会提供了展示企业形象、宣传品牌、推广产品、网上订购、在线交易等强大的功能，也是企业现代化管理的特征之一。主要包括：全国各地农业企业自己的网站。
二、百强单项奖项
202_中国最具成长农业网站
筛选本成长速度最快的网站，主要在网站浏览量、第三方统计排名、网站经营业绩增长情况等诸多方面均表现出强劲的增长势头。
202_中国最具创新农业网站
评选出本在网站盈利模式、技术平台、产品研发、服务模式等诸多方面进行了有效创新，并取得一定的成果。
202_中国最具潜力农业网站
筛选出网站在未来发展有巨大潜力的网站，主要是网站起点高、定位准确、服务精确，用户数量剧增，开发前景广阔，有着巨大的拓展空间。
202_中国最具投资价值农业网站
经专家团从投资的角度评选出本内最具投资价值的网站，主要从网站现有平台基础，网站的盈利模式，服务范围、服务内容在产业链上均表现出不可或缺的地位，经过资金的投入能获取成倍的收益。
202_中国最具社会责任农业网站
筛选出本在文明办网，科学办网一直严于律己的模范网站，特别在202_年国家重大灾害和重大事件中做出突出贡献的单位。
三、农业信息化峰会奖项
202_中国农村信息化杰出贡献单位
农村信息化的实现是要全社会共同参与的一个世纪工程，这些单位在农村信息化的进程中，做出了不可估量的贡献。
202_中国农业信息化十大人物
在推进农业信息化进程中涌现出一大批精英人物，他们在农业信息化的渠道建设、内容整合、信息服务方面有着突出贡献，他们开创了历史的先河。
202_中国农业网站十大领军人物
本一批保持着良好的发展势头的网站负责人，他们是行业的精英和领军人物，他们代表着中国农业互联网的希望。
202_中国农业信息化领先地区
通过专家团对各地区的农业信息化普及情况进行全面摸底，对农业信息化试点工程、试点项目、及信息入户的情况进行综合评定，筛选出本省、市、县三级农业信息化领先地区，他们将成为我国促进农业信息化的榜样。
202_中国农业信息化最佳解决方案
农业进入信息化领域需要用科技手段真正搭建一条完善的信息服务产业链，农业信息化解决方案为本农业信息化进程中遇到的各种问题，逐个进行课题攻关，为我国农业信息化的顺利推进起到了有效的保障。
