福建省二级计算机vfp考试设计题含编程答案.docx
- 文档编号:6157340
- 上传时间:2023-01-04
- 格式:DOCX
- 页数:13
- 大小:516.17KB
福建省二级计算机vfp考试设计题含编程答案.docx
《福建省二级计算机vfp考试设计题含编程答案.docx》由会员分享,可在线阅读,更多相关《福建省二级计算机vfp考试设计题含编程答案.docx(13页珍藏版)》请在冰豆网上搜索。
福建省二级计算机vfp考试设计题含编程答案
设计题3.
1.产生10~99的随机数,并判断其结果是否为奇数。
2.输入一个字符串,求数字之和。
x=alltrim(thisform.text1.value)m=len(x)s=0fori=1tomn=substr(x,i,1)ifn>="0"andn<="9"s=s+val(n)endifendforthisform.refreshthisform.text2.value=s
3.加减运算
a=val(thisform.text1.value)
b=val(thisform.text2.value)
s=0
if thisform.optiongroup1.value=1
s=a+b
endif
if thisform.optiongroup1.value=2
s=a-b
endif
if thisform.optiongroup1.value=3
s=a*b
endif
if thisform.optiongroup1.value=4
s=a/b
if b=0
s="除数不能为0"
endif
endif
thisform.text3.value=s
(VAL记得加)
4.判断是否是回文
把相同的词汇或句子,在下文中调换位置或颠倒过来,产生首尾回环的情趣,叫做回文,也叫回环。
正确的:
(米小培版本)
a=alltrim(thisform.text1.value)
l=len(a)
s=""
for i=l to 1 step -1
b=substr(a,i,1)
s=s+b
endfor
if s==a
thisform.text2.value="是"
else
thisform.text2.value="不是"
endif
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 jsgl1!
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.就行
SELECT Student.姓名, Student.学号, date()-year(Student.出生日期);
FROM student;
WHERE Student.学号 = thisform.text1.value;
INTO CURSOR aa
sele aa
if reccount()==0
thisform.text2.value="查无此人"
else
thisform.text2.value="已找到"
thisform.grid1.recordsource="aa"
endif
5.
查询代码:
thisform.list1.rowsource="SELECTGrade.*;FROM成绩!
gradeINNERJOIN成绩!
student;ONGrade.学号=Student.学号;WHEREGrade.学号=bo1.valueintocursora"SELECTAVG(Grade.成绩);FROM成绩!
gradeINNERJOIN成绩!
student;ONGrade.学号=Student.学号;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.成绩;FROMgrade;WHEREGrade.学号=thisform.list1.value;ANDGrade.课程号=thisform.list2.value;intoarrayadocasecasea
(1)>=90anda
(1)<=100y="优秀"casea
(1)>=80anda
(1)<90y="良好"casea
(1)>=70anda
(1)<80y="中等"casea
(1)>=60anda
(1)<70y="及格"casea
(1)<60y="不及格"endcasethisform.text1.value=ythisform.refresh
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 福建省 二级 计算机 vfp 考试 设计 编程 答案