福建省二级计算机vfp考试设计题含编程答案Word文档下载推荐.docx
《福建省二级计算机vfp考试设计题含编程答案Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《福建省二级计算机vfp考试设计题含编程答案Word文档下载推荐.docx（13页珍藏版）》请在冰豆网上搜索。
endif
thisform.optiongroup1.value=2
s=a-b
thisform.optiongroup1.value=3
s=a*b
thisform.optiongroup1.value=4
s=a/b
b=0
s="
除数不能为0"
thisform.text3.value=s
（VAL记得加）
4.判断是否是回文
把相同的词汇或句子，在下文中调换位置或颠倒过来，产生首尾回环的情趣，叫做回文，也叫回环。
正确的：
（米小培版本）
a=alltrim（thisform.text1.value）
l=len（a）
"
for
i=l
to
1
step
-1
b=substr（a,i,1）
s=s+b
endfor
s==a
thisform.text2.value="
是"
else
不是"
thisform.refresh
（利用step-1法简约并且方便理解）
5.变色题：
（题目比较扑朔迷离）
6.列表框题型（类型和本题相似）
1.
multiselect选为T多选的时候要按住ctrl
设计题第二题
第一题歌手
第二题教师工资的
FORM1的INIT事件
use
teach1
go
top
bo1.value=teach1.教师号
thisform.txt教师名.value=teach1.教师名
thisform.txt基本工资.value=teach1.基本工资
thisform.chk党员否.value=teach1.党员否
thisform.txt系名.value=ddm1.系名
COMBO1的INTERACTIVECHANGE事件
SELECT
Teach1.教师名,
Teach1.基本工资,
Teach1.党员否,
Ddm1.系名;
FROM
jsgl1!
ddm1
INNER
JOIN
teach1
;
ON
Ddm1.系号
=
Teach1.系号;
WHERE
Teach1.教师号
bo1.value
into
array
a
thisform.txt教师名.value=a
（1）
thisform.txt基本工资.value=a
（2）
thisform.chk党员否.value=a（3）
thisform.txt系名.value=a（4）
3，运算加减乘除，但是有了加减字符串
4.
按学号查询，显示学号，姓名，年龄，查询到了结果是已找到，查询不到结果是没有此人，复选框显示灰色
thisform.check1.enabled=.f.就行
Student.姓名,
Student.学号,
date（）-year（Student.出生日期）;
student;
Student.学号
thisform.text1.value;
INTO
CURSOR
aa
sele
reccount（）==0
查无此人"
已找到"
thisform.grid1.recordsource="
aa"
5.
查询代码：
thisform.list1.rowsource="
SELECTGrade.*;
FROM成绩!
gradeINNERJOIN成绩!
student;
ONGrade.学号=Student.学号;
WHEREGrade.学号=bo1.valueintocursora"
SELECTAVG（Grade.成绩）;
WHEREGrade.学号=bo1.valueintoarraybthisform.text1.value=b
（1）thisform.refresh
设计题第一题
标签显示当前时间，背景透明。
画一个圆曲率为99的图像，背景色（0，0，0）
然后一个计时器，有给代码
1.
2.
（注意容器和初始值的设置）星期一和星期五是手打的，在LIST1的生成器里面下选
即可
（考页框）
4.大概要求如下：
1.Text1文本框里显示VFP程序设计，字号16，斜体。
2.Label1标签的caption为字号，
3.微调框的Spinner的初始值为16，取值范围为72~8，微调值为2
4.复选框的caption为是否斜体，初始值为打钩的。
操作题：
这题是下午你们同学当初抽中的一到设计题2，其实很简单，题目描述大致如下：
表单上有两个列表框，分别用来显示学号和课程号，选中一个学号，另一个列表框可以显示这个学生的所选的课程号（此部分题目据说已完成，未完成的话，请在list1的Interactivechange里编写）。
接着要求选择一个学号和一个课程号，可以在文本框1中显示该学生的成绩等级，要求在list2的click
事件（如果不是这么要求，还是在Interactivechange里编写）中编写。
成绩等级如下：
分数在90-100的为优秀
80-89的为良好
70-79的为中等
60-69的为及格
0-59的为不及格
题目大致如上。
如有细节不同，大家随机应变
刚才这道题用的数据表是0706的GRADE表
list1的interactivechange事件（据说已完成）thisform.list2.rowsourcetype=3thisform.list2.clearfori=1tothisform.list1.listcountifthisform.list1.selected（i）thisform.list2.rowsource="
SELECTGrade.课程号;
FROMgrade;
WHEREGrade.学号=thisform.list1.value;
INTOCURSORaa"
endifendforlist2的CLICK事件SELECTGrade.成绩;
WHEREGrade.学号=thisform.list1.value;
ANDGrade.课程号=thisform.list2.value;
intoarrayadocasecasea
（1）>
=90anda
（1）<
=100y="
优秀"
casea
（1）>
=80anda
（1）<
90y="
良好"
=70anda
（1）<
80y="
中等"
=60anda
（1）<
70y="
及格"
casea
（1）<
60y="
不及格"
endcasethisform.text1.value=ythisform.refresh
升级会员 