实验四 程序设计.docVIP

实验四 程序设计 作业61阅读顺序结构程序【实验内容与设计思想】阅读以下程序并在纸上写下运行结果，上机验证其输出结果，并把它写入源程序作业-1.PRG~作业-6.PRG中。 【操作步骤提示】1、在command窗口键入MODI COMM 作业-1.PRG命令；2、在弹出的程序窗口中写入程序；3、用DO 作业-1.PRG命令执行作业-1.PRG程序。4、如果出现错误，可根据出错提示用MODI COMM命令修改程序，用DO命令再次运行。? 作业62 编写顺序结构程序【实验内容与设计思想】以下程序，并把它写入源程序-1.PRG --- 作业-6.PRG文件名存盘2、已知长方形的长和宽分别为17、8，计算长方形的面积和周长。3、已知变量X、Y、Z的值为10，12，15，计算S=(X+Y)/(Z-X)。4、已知圆的半径R=5，圆柱高H=15，计算圆面积、圆周长、圆球体积、圆柱体积5、计算由键盘输入的任意三个数之和。6、编程输出下列各图形 作业63 用表单编写顺序结构程序【实验内容与设计思想】，并-1.PRG --- 作业-4.PRG文件名存盘2、已知长方形的长和宽分别为17、8，计算长方形的面积和周长。3、编程输出下列各图形 【操作步骤提示】 3、 图形1按钮方法设置 其余图形按钮方法代码请同学自行编写。 作业64 阅读结构程序【实验内容与设计思想】阅读以下程序并在纸上写下运行结果，上机验证其输出结果，并把它写入源程序作业-1.PRG~作业-4.PRG中。 作业-1.PRG： 作业-2.PRG 作业-3.PRG 作业-4.PRG 作业65 编写分支结构程序【实验内容与设计思想】以下程序，并把它写入源程序-1.PRG --- 作业-8.PRG文件名存盘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=x10) ??? ??? y=3x-11(x=10) 6、从键盘输入一个8位以内的数X，判断X是几位数。7、从键盘输入四个数，找出其中最大的数。? 8、从键盘输入三个数，按从大到小的顺序输出。*作业66 用表单编写分支结构程序【实验内容与设计思想】，并-1.PRG --- 作业-7.PRG文件名存盘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=x10) ??? ??? 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 标签变化 【实验内容与设计思想】 【操作步骤提示】 *作业68 滚动字幕 【实验内容与设计思想】请制作如下所示的一个表单，使章节目录能自动滚动。【操作步骤提示】 *作业69 登陆界面 【实验内容与设计思想】   【操作步骤提示】i=i+1 if thisform.text1.value=user1 and ; thisform.text2.value=123456 messagebox(欢迎进入本系统) do form 作业68 字幕变化.scx thisform.release else if i3 messagebox(密码错，请重试) thisform.text2.value= thisform.text2.setfocus else messagebox(密码错，禁止进入本系统)