实验四 程序设计.doc

实验四 程序设计作业61阅读顺序结构程序【实验内容与设计思想】请阅读以下程序并在纸上写下运行结果，上机验证其输出结果，并把它写入源程序作业61-1.PRG作业61-6.PRG中。【操作步骤提示】1、在command窗口键入MODI COMM 作业61-1.PRG命令；2、在弹出的程序窗口中写入程序；3、用DO 作业61-1.PRG命令执行作业61-1.PRG程序。4、如果出现错误，可根据出错提示用MODI COMM命令修改程序，用DO命令再次运行。作业62 编写顺序结构程序【实验内容与设计思想】请编写以下程序，并把它写入源程序作业62-1.PRG - 作业62-6.PRG文件名存盘。1、已知变量A=21、B=3，计算S=A*B。2、已知长方形的长和宽分别为17、8，计算长方形的面积和周长。3、已知变量X、Y、Z的值为10，12，15，计算S=(X+Y)/(Z-X)。4、已知圆的半径R=5，圆柱高H=15，计算圆面积、圆周长、圆球体积、圆柱体积5、计算由键盘输入的任意三个数之和。6、编程输出下列各图形作业63 用表单编写顺序结构程序【实验内容与设计思想】请用表单改写作业62部分程序，并以作业63-1.PRG - 作业63-4.PRG文件名存盘。1、已知变量A=21、B=3，计算S=A*B。2、已知长方形的长和宽分别为17、8，计算长方形的面积和周长。3、编程输出下列各图形【操作步骤提示】作业63-4操作提示1、设置一个编辑框，不必设置任何属性2、在清屏按钮中设置编辑框数据初值3、 图形1按钮方法设置其余图形按钮方法代码请同学自行编写。作业64 阅读分支结构程序【实验内容与设计思想】请阅读以下程序并在纸上写下运行结果，上机验证其输出结果，并把它写入源程序作业64-1.PRG作业64-4.PRG中。作业64-1.PRG：作业64-2.PRG作业64-3.PRG作业64-4.PRG作业65 编写分支结构程序【实验内容与设计思想】请编写以下程序，并把它写入源程序作业65-1.PRG - 作业65-8.PRG文件名存盘。1、 从键盘输入一个数X，如果能被2整除，输出偶数，否则输出“奇数”。2、从键盘输入一个数X，如果被5除余数为3，输出“3”， 否则输出“余数不为3”.3、计算一元二次方程AX2+BX+C=O的根。无论方程有无实根，均要输出结果。4、车站从甲地到乙地托运行李。收费规定：如果行李重量50公斤，每公斤收费0.5元如果行李重量50公斤，其超出部分每公斤加收0.4元，编写计算运费的程序 5、从键盘输入任意一个数X，计算：y=x (x1) y=2x-1(1=x=10) 6、从键盘输入一个8位以内的数X，判断X是几位数。7、从键盘输入四个数，找出其中最大的数。 8、从键盘输入三个数，按从大到小的顺序输出。*作业66 用表单编写分支结构程序【实验内容与设计思想】请用表单改写作业65部分程序，并以作业66-1.PRG - 作业66-7.PRG文件名存盘。1、 从键盘输入一个数X，如果能被2整除，输出偶数，否则输出“奇数”。2、从键盘输入一个数X，如果被5除余数为3，输出“3”， 否则输出“余数不为3”.3、计算一元二次方程AX2+BX+C=O的根。无论方程有无实根，均要输出结果。4、车站从甲地到乙地托运行李。收费规定：如果行李重量50公斤，每公斤收费0.5元如果行李重量50公斤，其超出部分每公斤加收0.4元，编写计算运费的程序 5、从键盘输入任意一个数X，计算：y=x (x1) y=2x-1(1=x=10) 6、从键盘输入一个8位以内的数X，判断X是几位数。7、从键盘输入四个数，找出其中最大的数。 8、从键盘输入三个数，按从大到小的顺序输出。【操作步骤提示】编辑框显示语句样例：thisform.EDIT1.value = STR(A) + CHR(13) ;+ STR(B) + CHR(13) + STR(C) + CHR(13)*作业67 标签变化【实验内容与设计思想】请制作如下所示的一个表单，点击两个按钮，“欢迎各位读者”标语和按钮都会发生相应的变化。【操作步骤提示】*作业68 滚动字幕【实验内容与设计思想】请制作如下所示的一个表单，使章节目录能自动滚动。【操作步骤提示】*作业69 登陆界面【实验内容与设计思想】请制作如下所示的一个表单，输入用户名和密码正确以后，点击登陆按钮，会进入作业67的封面系统。【操作步骤提示】i=i+1if thisform.text1.value=user1 and ; thisform.text2.value=123456 messagebox(欢迎进入本系统) do form 作业68 字幕变化.scx thisform.releaseelse if i3 messagebox(密码错，请重试) thisform.text2.value= thisform.text2.setfocus else messagebox(密码错，禁止进入本系统) thisform.release endifendif*作业70 复选框【实验内容与设计思想】请制作如下所示的一个表单，放置四个复选框控件，使之能够控制文本框中文字的字型等等的变化。【操作步骤提示】表单中放置四个复选框控件，如上图所示。*作业71 图形和颜色【实验内容与设计思想】请制作如下所示的一个表单，使用图形控件，使之能够发生颜色和形状的变化。作业72 阅读循环结构程序【实验内容与设计思想】请阅读以下程序并在纸上写下运行结果，上机验证其输出结果，并把它写入源程序作业71-1.PRG作业71-6.PRG中。作业73 显示从1到100的偶数【实验内容与设计思想】请用面向过程和面向对象的隆重编程方法编写程序，显示从1到100的所有偶数。分别以”作业72 显示从1到100的所有偶数.prg”和”作业72 显示从1到100的所有偶数.scx”存盘。 【操作步骤提示】1、首先编写面向过程的程序，以prg文件形式存盘。2、制作如下表单，将刚才编写的程序作为计算按钮click实践的方法代码写入，改写输出语句，面向对象编程即告完成。清屏按钮编程代码设置：计算按钮编程代码设置：作业74 逐条输出1986年出生的学生记录【实验内容与设计思想】用SCANENDSCAN语句编写一个程序，使之能在屏幕上逐条输出学生表中1986年出生的学生记录作业75 统计“学生”表专业代码为03的男、女生人数【实验内容与设计思想】用SCANENDSCAN语句编写一个程序，使之能在屏幕上输出学生表中统计“学生”数据表专业代码为03的男、女生人数。*作业76 打印九九乘法表【实验内容与设计思想】请用面向过程和面向对象的隆重编程方法编写程序，分别在屏幕上和表单上显示九九乘