1、实验四 程序设计作业 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 -
2、 作业 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、已知长方形
3、的长和宽分别为 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
4、-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 (x=10) 6、从键盘输入一个 8 位以内的数 X，判断 X 是几位数。7、从键盘输入四
5、个数，找出其中最大的数。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 公斤，其超出部分
6、每公斤加收0.4 元，编写计算运费的程序 5、从键盘输入任意一个数 X，计算：y=x (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 滚动
7、字幕【实验内容与设计思想】请制作如下所示的一个表单，使章节目录能自动滚动。【操作步骤提示】*作业 69 登陆界面【实验内容与设计思想】请制作如下所示的一个表单，输入用户名和密码正确以后，点击登陆按钮，会进入作业 67 的封面系统。【操作步骤提示】i=i+1if thisform.text1.value=“user1“ and ;thisform.text2.value=123456messagebox(欢迎进入本系统)do form “作业 68 字幕变化.scx“ thisform.releaseelseif i3messagebox(“密码错，请重试“)thisform.text2.value=thisform.text2.setfocuselsemessagebox(密码错，禁止进入本系统)thisform.releaseendifendif*作业 70 复选框【实验内容与设计思想】请制作如下所示的一个表单，放置四个复选框控件，使之能够控制文本框中文字的字型等等的变化。【操作步骤提示】表单中放置四个复选框控件，如上图所示。
