实验4 顺序与分支结构

实验四顺序与分支结构

一、实验目的

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 属性设置

（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 属性设置

（3）双击按钮控件，切换到代码设计窗口，添加程序代码如下：

（4）调试运行程序。在文本中输入数据，单击命令按钮，结果显示在标签中，如图4.6所示。

图4.6 求三个数的最大值执行情况 图4.7 三个数排序执行情况

（5）保存结果到练习文件夹中的vb4-3文件夹。

以下代码自己阅读理解，不需保存成工程。已知三个数，将它们按从小到大的顺序显示。要求从上例中添加一个按钮Command2，单击Command2后，取文本框中的三个数排序，排序后的数显示在标签内，如图4.7所示。

程序代码如下：

4．双分支实验

例4：设计一个简单的VB 程序。

要求：计算分段函数⎩⎨

⎧=+≠-=0

2

30

52x x x x y ，程序运行效果如图4.9所示。

（1）创建工程。

图4.8 求分段函数值的窗体界面设计图 4.9 分段函数求值运行效果

（2）建立用户界面。各控件主要属性的设置参见表4.3。

表4.3 属性设置

（3）双击按钮控件，切换到代码设计窗口，添加程序代码如下：

（4）调试运行程序。在文本框Text1中输入自变量的值，再单击命令按钮，应该在按钮上方的文本框内显示函数值，如图4.9所示。

（5）保存结果到练习文件夹中的vb4-4文件夹。

4．多分支实验

例5：设计一个简单的VB程序。界面如下：

要求：当输入正数时输出“x>0”,输入零时输出“x=0”，

输入负数时输出“x<0”。

（1）创建工程，建立用户界面，如右图所示。

图4.10设计界面

（2）双击按钮控件，切换到代码设计窗口，在过程Command1_Click() 中添加程序代码如下：

（4）调试运行程序。

（5）保存结果到练习文件夹中的vb4-5文件夹。

三、思考题

1．设计一个程序。要求：用输入对话框输入x ，根据下式计算对应的y ，并在窗体上输出y 的值 x

1/2+sinx

x>10

y= 0 x=10

2x 3+6

x<10

注：程序写在命令按钮Command1的Click 事件中。 设计提示：

（1）在窗体上添加一个按钮控件，双击按钮，在

Private Sub Command1_Click( )

……

End Sub

中书写程序；

（2）使用InputBox 函数输入x 的值； （3）用 If … Then

……

ElseIf … Then

……

Else

……

End If

结构来书写程序；

（4）使用Print 语句输出计算结果；

（5）运行程序；

（6）保存结果到练习文件夹中的vb4-6文件夹。

2．设计一个程序。要求：求解形如ax2 + bx + c = 0的任意方程的解。 设Delt = b 2 - 4ac ，编程时要考虑以下4种情况： (1) a = 0时，提示：这不是一个二次方程； (2) a <> 0、Delt > 0时，方程有两个不等的实根； (3) a <> 0、Delt = 0时，方程有两个相等的实根； (4) a <> 0、Delt < 0时，方程有两个共轭复根。

程序运行后，针对任意输入的一组系数，可能产生四种不同的结果，如图4.11所示。 保存结果到练习文件夹中的vb4-7文件夹。