实验4 顺序与分支结构.doc

理解课程内容、完成实验任务、写好实验报告实验四 顺序与分支结构一、实验目的1熟练掌握赋值语句。2熟练掌握分支结构程序设计方法，灵活使用有关语句。二、实验内容1实验准备在练习文件夹中建立vb4-1、vb4-2、vb4-3、vb4-4、vb4-5、vb4-6、vb4-7文件夹。2赋值实验赋值语句的作用是把表达式的值赋给变量，变量可以是内部变量，也可以是对象的属性。例1：给内部变量赋值设计一个简单的VB程序，在窗体上放置一个命令按钮Command1，编写按钮的单击事件过程，观察给变量赋值的情况。（1）创建工程。（2）建立用户界面在窗体下方画1个命令按钮，名称为Command1。（3）编写命令按钮的事件代码。双击“Command1”按钮，进入代码编写窗口，编写如下代码：（5）调试运行程序。单击Command1按钮，观察各个变量的输出结果，进一步理解赋值语句的作用和用法。（6）保存结果到练习文件夹中的vb4-1文件夹。例2：为对象设置属性值对象的大部分属性值都可以在设计阶段设置，也可以在运行时设置。运行时可以用赋值语句为对象的属性设置属性值，赋值格式为：对象.属性 = 属性值设计一个工程，用户可在两个文本框内输入字体和字号，以控制文本的显示格式，当用户单击命令按钮后，两个文本框内的文字改用新的字体、字号显示。设计一个简单的VB程序，界面如下：图4.1为对象设置属性值实验窗体界面设计（1）创建工程。（2）建立用户界面。各控件主要属性的设置参见表4.1。表4.1 属性设置对象属性属性值说明Form1Caption4.2为对象设置属性值实验标题Label1Caption字体Label2Caption字号Text1Text宋体Text2Text15Command1Caption显示（3）双击按钮控件，切换到代码设计窗口，添加程序代码如下：（4）调试运行程序。启动工程，在文本框Text1中输入字体名称，在文本框Text2中输入字号值，单击显示按钮，可见在两个文本框中显示文字的字体变化和大小变化，如图4.2所示。 图4.2 为对象设置属性值实验窗体运行情况（5）保存结果到练习文件夹中的vb4-2文件夹。注意：所输入的字体必须是你的计算机中已经安装过的，如图4.3所示，是在Word字体列表框中列出的字体，不同的电脑所装字体不同。输入列表框中存在的字体名，则程序会正常运行。否则，系统弹出出错信息，如图4.4所示，此时可单击“结束”按钮，重新启动程序。因此，上机实验时应该注意自己的电脑安装了什么字体。 图4.3 Word字体列表框中列出的字体 图4.4 输入错误字体后的出错信息输入的字号必须是正数，可以带小数，如果输入的字号值小于或等于零，系统也会弹出如图4.4所示的出错信息。3单分支实验单分支结构是条件是真时执行某语句块，条件为假时不执行语句块。例3：设计一个简单的VB程序，要求在三个文本框内任意输入三个数，设计一个求其最大值的程序。界面如下：图4.5求三个数的最大值窗体界面设计（1）创建工程。（2）建立用户界面。各控件主要属性的设置参见表4.2。表4.2 属性设置对象属性属性值说明Form1Caption4.3 求三数的最大值标题Label1Caption清空Text1Text清空Text2Text清空Text3Text清空Command1Caption求三数的最大值（3）双击按钮控件，切换到代码设计窗口，添加程序代码如下：（4）调试运行程序。在文本中输入数据，单击命令按钮，结果显示在标签中，如图4.6所示。 图4.6 求三个数的最大值执行情况 图4.7 三个数排序执行情况（5）保存结果到练习文件夹中的vb4-3文件夹。以下代码自己阅读理解，不需保存成工程。已知三个数，将它们按从小到大的顺序显示。要求从上例中添加一个按钮Command2，单击Command2后，取文本框中的三个数排序，排序后的数显示在标签内，如图4.7所示。程序代码如下：4双分支实验例4：设计一个简单的VB程序。要求：计算分段函数，程序运行效果如图4.9所示。（1）创建工程。 图4.8 求分段函数值的窗体界面设计图 4.9 分段函数求值运行效果（2）建立用户界面。各控件主要属性的设置参见表4.3。表4.3 属性设置对象属性属性值说明Form1Caption4.4 求分段函数值标题Label1Caption请输入一个x值Text1Text清空Text2Text清空Text3Text清空Text4Text清空Command1Caption单分支结构实现Command2Caption双分支结构实现Command3Caption两个支结构实现（3）双击按钮控件，切换到代码设计窗口，添加程序代码如下：（4）调试运行程序。在文本框Text1中输入自变量的值，再单击命令按钮，应该在按钮上方的文本框内显示函数值，如图4.9所示。（5）保存结果到练习文件夹中的vb4-4文件夹。4多分支实验例5：设计一个简单的VB程序。界面如下：要求：当输入正数时输出“x0”,输入零时输出“x=0”，输入负数时输出“x10y= 0x=10 2x3+6x10 注：程序写在命令按钮Command1的Click事件中。设计提示：（1）在窗体上添加一个按钮控件，双击按钮，在Private Sub Command1_Click( )End Sub 中书写程序；（2）使用InputBox函数输入x的值；（3）用 If Then程序完成后，请输入以下x值，对照计算结果以检查所写程序是否正确。x=15时，计算值为4.523271 x=10时，计算值为0 x = 5时，计算值为256ElseIf ThenElseEnd If 结构来书写程序；（4）使用Print语句输出计算结果；（5）运行程序；（6）保存结果到练习文件夹中的vb4-6文件夹。2设计一个程序。要求：求解形如ax2 + bx + c = 0的任意方程的解。设Delt = b2 - 4ac，编程时要考虑以下4种情况：(1) a = 0时，提示：这不是一个二次方程；(2) a 0、Delt 0时，方程有两个不等的实根；(3) a 0、Delt