实验三、选择结构程序设计.docVIP

实 ?验 ?报 ?告 学院： ???????????????????专业： ?????????????????????年级： ?????姓名： ???????????学号： ???????????实验室号：_______ ???计算机号： ???实验日期： ????年 ???月 ???日 ???指导教师签字： ???????????成绩： ?????报告退发 (订正 、 重做) ???????????????实验三、选择结构程序设计一、实验目的1、掌握If语句的使用。2、掌握Select Case语句的使用及其与If语句的区别。二、实验内容1、请编一程序（程序界面如图3-1），用于根据输入的学生成绩查询对应的奖励情况，条件如下：三门总分不低于270分（含270），特等奖；三门总分240分（含240分）~270分（不含270分），优秀奖；总分低于240分，但某一单科成绩不低于95分，特别奖。 （a） （b） 图3-1 2、对任意输入的三个数按从小到大的顺序显示出来，运行结果参考图3-2。要求：程序中不得使用循环结构和转向语句；掌握两个数交换的方法。 图3-2 3、简单计算器的实现（界面参考图3-3a）。要求：使用Select Case语句和If语句；能进行+、-、*、/、\和Mod六种运算；有基本的数据合法性和运算符合法性检验报错能力（如图3-3b和图3-3c）。 (a) (b) (c) 图3-3 三、实验环境硬件：PC机软件：Windows操作系统；Visual Basic 6.0四、实验步骤1、（题目要求见内容部分，略）A、界面设计：布局设计：按下图布局在主窗体Form1上放置三个标签（Label1、Label2和Label3），四个文本框（Text1、Text2和Text3）和一个命令按钮（Command1） 。Label1 Command1 Label3 Text3 Text2 Text1 Label2 Form1 按下表设置各对象属性。对象 属性 值 Form1 Caption 成绩查询 Label1 Caption 请输入您的成绩 Label2 Caption 总分 Command1 Caption 查询 双击Command1 2，打开代码窗口编写代码。B、代码设计：Private Sub Command1_Click() 变量声明：四个整型变量，分别存放三科成绩和总成绩。 Dim intScore1 As Integer, intScore2 As Integer, intScore3 As Integer Dim intSum As Integer 接受输入，将三个文本框中的成绩分别转换成数值型数据，存入对应的变量中。 intScore1 = CInt (Text1.Text) intScore2 = CInt (Text2.Text) intScore3 = CInt (Text3.Text) intSum = intScore1 + intScore2 + intScore3 输出总分Label3 5.Caption = intSum 开始判断：总分= 270吗？是，则用MsgBox弹出“获得特等奖”的通知。If intSum = 270 Then ?MsgBox 您获得了特等奖！, , 获奖通知 否则，继续判断：总分=240吗？是，则通知“获得优秀奖”。ElseIf intSum = 240 Then ?MsgBox 您获得了优秀奖。, , 获奖通知 不是，继续判断：存在任意单科成绩=95吗？是，则通知“获得特别奖”。ElseIf (intScore1 = 95) Or (intScore2 = 95) Or (intScore3 = 95) Then ?MsgBox 您获得了特别奖。, , 获奖通知Else ?MsgBox 您未获奖。, , 获奖通知End if Dim intScore1 As Integer, intScore2 As Integer, intScore3 As Integer Dim intSum As Integer intScore1 = CInt(Text1.Text) intScore2 = CInt(Text2.Text) intScore3 = CInt(Text3.Text) intSum = intScore1 + intScore2 + intScore3 Label3.Caption = intSum If intSum = 270 Then MsgBox 您获得了特等奖！, , 获奖通知 ElseIf intSum = 240 Then MsgBox 您获得了优秀奖。, , 获奖通