实验四 程序设计

《实验四 程序设计》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、实验四程序设计作业61阅读顺序结构程序【实验内容与设计思想】请阅读以下程序并在纸上写下运行结果，上机验证其输出结果，并把它写入源程序作业61-1.PRG~作业61-6.PRG中。【操作步骤提示】1、在command窗口键入MODICOMM作业61-1.PRG命令；2、在弹出的程序窗口中写入程序；3、用DO作业61-1.PRG命令执行作业61-1.PRG程序。4、如果出现错误，可根据出错提示用MODICOMM命令修改程序，用DO命令再次运行。 作业62编写顺序结构程序【实验内容与设计思想】请编写以下程序

2、，并把它写入源程序作业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-

3、--作业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

4、.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公斤，每公斤

5、收费0.5元如果行李重量>50公斤，其超出部分每公斤加收0.4元，编写计算运费的程序．5、从键盘输入任意一个数X，计算：y=x(x<1)                              y=2x-1(1<=x<10)      y=3x-11(x>=10)6、从键盘输入一个8位以内的数X，判断X是几位数。7、从键盘输入四个数，找出其中最大的数。 8、从键盘输入三个数，按从大到小的顺序输出。*作业66用表单编写分支结构程序【实验内容与设计思想】请用表单改写作业65部分程序，并以作业66-1.P

6、RG---作业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(x<1)              

7、                y=2x-1(1<=x<10)      y=3x-11(x>=10)6、从键盘输入一个8位以内的数X，判断X是几位数。7、从键盘输入四个数，找出其中最大的数。 8、从键盘输入三个数，按从大到小的顺序输出。【操作步骤提示】编辑框显示语句样例：thisform.EDIT1.value=STR(A)+CHR(13);+STR(B)+CHR(13)+STR(C)+CHR(13)*作业67标签变化【实验内容与设计思想】请制作如下所示的一个表单，点击两个按钮，“欢迎各位读者”标语

8、和按钮都会发生相应的变化。【操作步骤提示】*作业68滚动字幕【实验内容与设计思想】请制作如下所示的一个表单，使章节目录能自动滚动。【操作步骤提示】*作业69登陆界面【实验内容与设计思想】请制作如下所示的一个表单，输入用户名和密码正确以后，点击登陆按钮，会进入作业67的封面系统。【操作步骤提示】i=i+1ifthisform.text1.value="user1"and;thisform.text2.value='123456'messagebox('欢迎