资源描述：
《实验三、选择结构程序设计》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、实 验 报 告学院： 专业： 年级： 姓名： 学号： 实验室号：_______ 计算机号： 实验日期： 年 月 日 指导教师签字： 成绩： 报告退发(订正、重做) 实验三、选择结构程序设计一、实验目的1、掌握If语句的使用。2、掌握SelectCase语句的使用及其与If语句的区别。二、实验内容1、请编一程序（程序界面如图3-1），用于根据输
2、入的学生成绩查询对应的奖励情况，条件如下：三门总分不低于270分（含270），特等奖；三门总分240分（含240分）~270分（不含270分），优秀奖；总分低于240分，但某一单科成绩不低于95分，特别奖。（a）（b）图3-12、对任意输入的三个数按从小到大的顺序显示出来，运行结果参考图3-2。要求：程序中不得使用循环结构和转向语句；掌握两个数交换的方法。图3-23、简单计算器的实现（界面参考图3-3a）。要求：使用SelectCase语句和If语句；能进行+、-、*、/、和Mod六种运算；有基本的数据合法性和运算符合法性检验报错能力（如图3
3、-3b和图3-3c）。(a)(b)(c)图3-3三、实验环境硬件：PC机软件：Windows操作系统；VisualBasic6.0四、实验步骤1、（题目要求见内容部分，略）A、界面设计：1.布局设计：按下图布局在主窗体Form1上放置三个标签（Label1、Label2和Label3），四个文本框（Text1、Text2和Text3）和一个命令按钮（Command1）<1>。Label1Command1Label3Text3Text2Text1Label2Form12.按下表设置各对象属性。对象属性值Form1Caption"成绩查询"Labe
4、l1Caption"请输入您的成绩"Label2Caption"总分"Command1Caption"查询"3.双击Command1<2>，打开代码窗口编写代码。B、代码设计：PrivateSubCommand1_Click()'变量声明：四个整型变量，分别存放三科成绩和总成绩。<3>DimintScore1AsInteger,intScore2AsInteger,intScore3AsIntegerDimintSumAsInteger'接受输入，将三个文本框中的成绩分别转换成数值型数据，存入对应的变量中。<4>intScore1=CInt(T
5、ext1.Text)intScore2=CInt(Text2.Text)intScore3=CInt(Text3.Text)intSum=intScore1+intScore2+intScore3'输出总分Label3<5>.Caption=intSum'开始判断：总分>=270吗？是，则用MsgBox弹出“获得特等奖”的通知。IfintSum>=270Then MsgBox"您获得了特等奖！",,"获奖通知"'否则，继续判断：总分>=240吗？是，则通知“获得优秀奖”。ElseIfintSum>=240Then MsgBox"您获得了优秀奖。
6、",,"获奖通知"'不是，继续判断：存在任意单科成绩>=95吗？是，则通知“获得特别奖”。ElseIf(intScore1>=95)Or(intScore2>=95)Or(intScore3>=95)Then MsgBox"您获得了特别奖。",,"获奖通知"Else MsgBox"您未获奖。",,"获奖通知"EndifDimintScore1AsInteger,intScore2AsInteger,intScore3AsIntegerDimintSumAsIntegerintScore1=CInt(Text1.Text)intScore2=CI
7、nt(Text2.Text)intScore3=CInt(Text3.Text)intSum=intScore1+intScore2+intScore3Label3.Caption=intSumIfintSum>=270ThenMsgBox"您获得了特等奖！",,"获奖通知"ElseIfintSum>=240ThenMsgBox"您获得了优秀奖。",,"获奖通知"ElseIf(intScore1>=95)Or(intScore2>=95)Or(intScore3>=95)ThenMsgBox"您获得了特别奖。",,"获奖通知"ElseMsgBo
8、x"您未获奖。",,"获奖通知"'鼓励归并的获奖通知输出*。EndSub2、（题略）<6>A、界面设计：DimaAsInteger,bAsIntege
