在考生文件夹下完成如下简单应用: 1.建立一个满足下列要求的表单文件tab。 (1)表单中包含一个页框控件Pageframe1,该页框含有3个页面,Page1、Page2、Page3三个页面的标题依次为"学生"、"课程"和"成绩"; (2)将student

admin2013-11-28  27

问题 在考生文件夹下完成如下简单应用:
1.建立一个满足下列要求的表单文件tab。
(1)表单中包含一个页框控件Pageframe1,该页框含有3个页面,Page1、Page2、Page3三个页面的标题依次为"学生"、"课程"和"成绩";
(2)将student(学生)表、course(课程)表和score(成绩)表分别添加到表单的数据环境中;
(3)直接用拖拽的方法使得在页框控件的相应页面上分别显示student(学生)表、course(课程)表和score(成绩)表的内容;
(4)表单中包含一个"退出"命令按钮(Command1),单击该按钮关闭并释放表单。
2.给定表单modi2.scx,功能是:要求用户输入一个正整数,然后计算从1到该数字之间有多少偶数、多少奇数、多少能被3整除的数,并分别显示出来,最后统计出满足条件的数的总数量。请修改并调试该程序,使之能够正确运行。
改错要求:"计算"按钮的Click事件代码中共有3处错误,请修改***found***下面语句行的错误,必须在原来位置修改,不能增加或删减程序行(其中第一行的赋值语句不许减少或改变变量名)。
"退出"按钮的Click事件代码中有一处错误,该按钮的功能是关闭并释放表单。

选项

答案(1)【操作步骤】 步骤1:在命令窗口输入"Create form tab",按下回车键,新建一个表单文件tab,在表单控件工具栏中单击相应的控件,然后在表单上画出一个页框控件和一个命令按钮。将页框 Pageframe1的PageCount属性设置为"3"。 步骤2:在页框上右击,在弹出的快捷菜单中选择"编辑"命令,设置页框各页的标题属性。 Page1 Caption 学生 Page2 Caption 课程 Page3 Caption 成绩 步骤3:在表单空白处右击,在弹出的快捷菜单中选择"数据环境"命令,将表student、course和score添加到数据环境中。 步骤4:在页框控件上右击,在弹出的快捷菜单中选择"编辑"命令,在属性窗口选中Page1,拖拽相应的表student到页框中,依次选中Page2, Page3,将对应的表拖拽进去。 步骤5:将命令按钮的Caption属性改为"退出",输入其Click事件代码"ThisForm.Release"。 步骤6:保存并运行表单查看结果。 (2)【操作步骤】 步骤1:单击工具栏中的"打开"按钮,打开考生文件夹下的表单文件modi2,修改"计算"命令按钮的Click事件。 ************程序提供的代码************ ********found******** x,s1,s2,s3=0 ********found******** x=thisform.text1 do while x>0 if int(x/2)=x/2 s1=s1+1 else s2=s2+1 endif ********found******** if div(x,3)=0 s3=s3+1 endif x=x-1 enddo thisform.text2.value=s1 thisform.text3.value=s2 thisform.text4.value=s3 thisform.text5.value=s1+s2+s3 ******************************** 错误1:改为 STORE 0 TO x,s1,s2,s3。 错误2:改为 x=val(thisform.text1.value)。 错误3:改为 if mod(x,3)=0。 步骤2:以同样的方法修改"退出"按钮的Click事件代码为"Thisform.Release"

解析
转载请注明原文地址:https://kaotiyun.com/show/Ocop777K
0

最新回复(0)