框中输入编号时,如果该 4. 记录存在,单击查询按钮时,表单显示的记录信息会相应的更新,如果该记录不存在,单击
查询按钮时,用 Messsagebox 函数提示“查无此人”;单击退出按钮时,退出表单。请给查 询按钮和退出按钮添加相应的命令代码。
第六套
4 3
1.按要求完成以下程序:要求提示输入变量 X 的值,然后计算函数 Y=5X +4X +2X-10 的值 并输出。 2.编写一个程序,要求:从键盘输入任意三个数,让它们代表三条线段的长度,如果任 2. 意二条线段之和大于第三线段则显示“可以构成一个三角形”;否则显示“不能构成一个三角 形”。
3.编写循环程序实现:计算 N 以内所有奇数平方的和(S=12+32+52…)并输出,其中 N 为任
一正整数。
2
4.表单文件 program5.scx,要求在文本框 Text1 中输入邮件重量,单击“计算”命令按钮则 4. 计算邮件的邮资费,并将邮件的邮资费显示在文本框 Text2 中,单击“退出”命令按钮,则 关闭表单。请编写“计算”和“退出”命令按钮的代码,(“A 类邮件”计费规定:当邮件 重量小于等于 100 克时,邮资费为每克 1 元;当邮件重量超过 100 克时,其中 100 克,按每 克 1 元计费,超过 100 克的重量,按每克 2 元计费)。
第七套
1、输入三角形的三边,求三角形的面积 2、 查找准考证号为 30130101 的记录,如果找到,把记录的“数学”字段减 5 分,否则用 、 messagebox 函数输出“查无此人”的信息。 此题没题目
,只有答案,大家看答案猜题目) 3、(此题没题目,只有答案,大家看答案猜题目) 添加 6 个控件对象并分别设置属性 事件: “开始计算”按钮 click 事件: 开始计算” N=thisform.text1.value S=0 For I=1 to N S=S+1/(i*i) Endfor Thisform.text2.value=S 事件: “退出”按钮 click 事件: 退出” thisform.release
第八套
1、输入字符串,求字符串长度。 输入字符串,求字符串长度。 2、 (此题是用多向分支解决数学问题。此题没题目,只有答案,大家看答案猜题目) 、 此题是用多向分支解决数学
问题。此题没题目,只有答案, clear input "x=" to x do case case x>=100 y=-4*x^2+3 case x>0 y=-123 case x=0 y=0 case x>-100 y=123 case x<=-100 y=9*x^3+7*x-9 endcase ? "y=",y
3
要求会: 3、 要求会: 1)建数据库并添加表到数据库 2)修改数据表的结构 修改数据表 输入数据表 3)输入数据表的数据 设置表中某个字段的有效性规则 中某个字段的 4)设置表中某个字段的有效性规则 设置字段的有效性信息 设置字段的有效性信息 此题是相关实验做过的,请注意。 此题是相关实验做过的,请注意。 4、(此题没题目,只有答案,大家看答案猜题目) 此题没题目,只有答案,大家看答案猜题目) 添加 5 个控件对象并分别设置属性 浏览工资表” 事件: “浏览工资表”按钮 click 事件: use 工资.dbf excl browse use 事件: “浏览雇员表”按钮 click 事件: 浏览雇员表” use 雇员.dbf excl browse use 求出生日期为六十年代的人数” 事件: “求出生日期为六十年代的人数”按钮 click 事件: use 人才档案.dbf excl S=0 scan if 出生日期<{^1969-12-31} .and. 出生日期>{^1960-01-01} s=s+1 1 endif endscan Thisform.text1.value=S Use “退出”按钮 click 事件: 退出” 事件: thisform.release
4