设计题 3.
1.产生 10~99 的随机数,并判断其结果是否 为奇数。
2.输入一个字符串,求数字之和。
x=alltrim(thisform.text1.value) m=len(x) s=0 for i=1 to m n=substr(x,i,1) if n>="0 "and n<="9" s=s+val(n) endif endfor thisform.refresh thisform.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 thisformbo1.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.教师号 = thisformbo1.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="SELECT Grade.*; FROM 成绩!grade INNER JOIN 成绩!student ; ON Grade. = Student.; WHERE Grade. = thisformbo1.value into cursor a" SELECT AVG(Grade.成绩); FROM 成绩!grade INNER JOIN 成绩!student ; ON Grade. = Student.; WHERE Grade. = thisformbo1.value into array b thisform.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 中显示该学生