实验四顺序选择结构的程序设计.doc

韶关学院计算机公共教学实验进行表 （实验报告） 课程项目名称 计算机语言与程序设计 实验日期 实验项目名称 实验四：顺序、选择结构的程序设计 实验类型(打√) 基础 、综合√、设计 。 实验地点 理工6楼 机房 实验班级 应到人数 实到人数 考勤情况 主讲教师 实验教师 实验目的 1、掌握单分支选择结构（If语句）的程序设计（单分支选择结构的程序设计语句的格式及执行流程）。 、掌握用VB的调试功能来显示单分支选择结构的程序执行流程。 、掌握简单算法的使用。编写程序：创建一应用程序，如所示，单击“最大数”命令按钮，求a，b，c三个数（假设3数均不可能相同）的最大数。 操作要点：打开“D:\sy”文件夹下面的sy_1.frm文件，删除#####[N]#####处的内容，其位置填上自己补充的内容后以原文件名存盘。： 实验2：编写程序：创建一简单应用程序，InputBox函数如（图2）所示显示对话框，设定固定密码就是“password”（注意输入的大小写）；若输入密码正确与否，利用MsgBox函数分别显示如（图3）和（图4）所示来提示用户输入的密码正确与不正确的对话框。（工程文件保存为：SY4_2.vbp,窗体文件保存为SY4_2.frm）（每小题6分，共18分） （图2） （图3） （图4） 操作要点： 打开“D:\sy4”文件夹下面的sy4_2.frm文件，删除#####[N]#####处的内容，在其位置填上自己补充的内容后以原文件名存盘。 提示：请根据图3和图4中的界面填写第2空和第3空，Msgbox函数的格式为： Msgbox 提示信息，按钮数目及形式，对话框标题 实验步骤： 第1步：启动VB6.0。 第2步：设置控件的属性 对象 名称(Name) PassWordChar 文本框1 Text1 * 第3步：打开“D:\sy”文件夹下面的sy_2.frm文件，删除#####[N]#####处的内容，判断奇偶被2整除余数是0的是偶数，否则的话就是奇数 操作要点：打开“D:\sy4”文件夹下面的sy4_3.frm文件，删除#####[N]#####处的内容，在其位置填上自己补充的内容后以原文件名存盘。 解题思路：能被2整除的数都是偶数，在VB程序设计中要判断一个数是否被另一个数整除，必须利用求余运算符MOD求出这两个数相除的余数是否为0，为0则是偶数，否则是奇数。 实验4：飞机票打折：飞机票的标准价格是1000元／张，1月或3－6月 ，每张打6折。9－11月每张打7折，7,8两个月每张打8折。其他月份每张打9折。要求设计程序，输入月份和张数，能计算出应付的金额。 打开“D:\sy4”文件夹下面的sy4_4.frm文件，删除#####[N]#####处的内容，在其位置填上自己补充的内容后以原文件名存盘。注意：只能删除#####[N]#####处的内容不得改动其它处 三、完全编程题（针对学有余力、对VB感兴趣的同学，完成后老师酌情加分奖励） 编写程序，实现：从键盘上输入一个三位整数，然后将它反向输出。例如输入456，输出应为654。（1）分析问题。?????设X为输入的三位整数，Y为X的反向输出。X的百位、十位、个位分别为：?????X1=X\100??????? X2=(X-X1*100)\10?????? ?X3=X-X1*100-X2*10???????所以Y=X3*100+X2*100+X1?（2）设计算法。?????①输入X的值；?????②计算：X1=X\100；?????③计算：X2=(X-X1*100)\10?????④计算：X3=X-X1*100-X2*10?????⑤计算：Y=X3*100+X2*100+X1?????⑥输出Y的值。 （3）编写程序。