VB.NET开发技术实验指导书
图1-2 为窗体添加控件并设置属性 图1-3 运行创建的项目“两数之和”
（3）双击窗体打开【代码编辑器】窗口，在【代码编辑器】窗口中为需要添加代码的对象添加过程代码。选择Button1，并指定Click过程，然后为该过程添加如下代码实现计算两数之和：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As Integer, b As Integer, c As Integer a = TextBox1.Text b = TextBox2.Text c = a + b TextBox3.Text = c End Sub。
（4）在【代码编辑器】窗口中选择Button2的Click事件处理过程，然后在该过程中添加如下代码清空三个文本框中的内容：
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = \ TextBox2.Text = \ TextBox3.Text = \End Sub
（5）接下来选择Button3的Click过程Button3_Click，然后在该过程中添加退出程序的代码如下所示：
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
End End Sub
（6）在完成代码的编写后，按F5运行该项目。弹出运行界面，在“操作数1”文本框中输入150，在“操作数2”文本框中输入20，单击【求和】按钮，其执行结果如图1-3所示。单击【清空】按钮，可以将文本中的数据清空，然后重新输入数据。最后，单击【退出】按钮退出运行界面。
4
实验二 VB.NET控制语句和数组的使用
一、实验目的与要求
1． 熟悉VB.NET的语法规则、表达式和常用系统函数的使用； 2．熟练地掌握VB.NET提供的常用控制语句及数组的用法； 3．熟悉Windows窗体应用程序的调试工具。
二、实验内容
练习1：利用Select Case语句实现多个分支。
某航空公司规定在旅游的旺季7—9月份，如果定票超过20张，票价优惠15%，20张以下，优惠5%；在旅游的淡季1—5月份、10月份、11月份，如果定票超过20张，票价优惠30%，20张以下，优惠20%；其他情况一律优惠10%。假设现在是5月份，并且要定购30张机票，根据该月份的优惠率算出应付金额（一张机票的价格为3000）。
Dim month As Integer = 5 Dim quantity As Integer = 30 Dim r As Integer
Dim unit As Integer = 3000 Dim pay As Double Select Case month Case 1, 2, 3, 4, 5, 10, 11 If quantity < 20 Then r = 20 Else r = 30 End If Case 7, 8, 9
If quantity < 20 Then r = 5 Else r = 15 End If Case Else r = 10 End Select
pay = unit * (1 - r / 100) * quantity
上述语句中变量month、quantity、r、unit分别表示月份、购买的数量、优惠率和一张机票的价格，最后将求出变量pay，即应付的总价格。其中的Select Case语句用来计算优惠率，它根据不同的月份和购买机票的数量来确定优惠率。将上述语句代入完整程序后，其运行结果如下：
购买30张机票应付63000元。
VB.NET开发技术实验指导书
练习2：利用冒泡法对数组中的数据进行排序。
已知一个一维数组，该数组中包含有10个整型数据，并且这10个数据呈无序状态，编写一个程序，利用冒泡法将这10数据按从小到大的顺序排列。
Dim Arr() = {25, 36, 52, 34, 18, 98, 58, 83, 46, 67} Dim i, j As Integer Dim temp As Integer For i = 0 To 8
For j = 9 To 9 - i Step -1 If Arr(j) < Arr(j - 1) Then temp = Arr(j) Arr(j) = Arr(j - 1) Arr(j - 1) = temp End If Next j Next i
在上述语句中使用两个For-Next循环语句来对数组中的数据进行排序。内层循环从最后一个数开始对相邻的两个数比较大小，然后将较小的数放到前面。外层循环表示重复内层循环的次数。
将上述语句运行后，其结果如下：
数组Arr中各元素从小到大排序后为：
18 25 34 36 46 52 58 67 83 98
练习3：运用二维数组
在表2-1中列出了5个部门的各季度销售额：
表2-1 各季度销售额 部门1 部门2 部门3 部门4 部门5 第一季度 750 800 700 850 900 第二季度 660 700 600 800 800 第三季度 910 950 750 1000 960 第四季度 800 900 600 950 980 首先声明一个二维数组Sales，根据表2-1中的数据为其赋予初值。下面给出为该二维数组的第一个元素赋予初值，其他与此相似。
Dim Sales(4, 3) As Integer Sales(0, 0) = 750
编写一个循环来计算每一个部门的年销售额。
Dim Depart_Total(4) As Integer Dim i, j As Integer For i = 0 To 4 Depart_Total(i) = 0 For j = 0 To 3
Depart_Total(i) += Sales(i, j) Next j
Console.WriteLine(\
2
VB.NET开发技术实验指导书
Next i
编写一个循环来计算每一季度的销售额。该循环与上述相似，同学们可以试着编写，这里省略。
3
实验三 面向对象编程应用
一、实验目的与要求
1.熟悉并理解类、构造函数与析构函数、属性的设置的概念与方法。
2.掌握类的创建及事件、方法、属性的创建方法，进一步巩固学习类的继承、重载、重写的应用。
二、实验内容
练习1：计算图书价格
在本练习中，将创建四个类，它们用于计算图书销售中的折扣价。假设一家以批发图书为主的销售商，它主要经营初、高中教课书及辅导，以及计算机，大学英语四、六级等图书。其中初、高中的教课书及辅导为7折，计算机售价为8折，英语四、六级图书销价为8.5折。本解决方案最终运行结果如图3-1所示。
图3-1 最终运行结果
（1）创建一个名为Ch04Ex1的解决方案。 （2）向项目中添加一个类模块。
（3）在类模块中创建一个类Book，并向其中添加属性：BookName、BookPrice和BookNum属性；并添加一个方法Calculate，该方法用于计算不打折扣时价格。
（4）以Book类为基类，从中派生一个类CompterBook，在其中添加一个属性DiscountPrice，以保存本书的折扣价，重写Colculate方法，以实现计算本书打折后的价格，添加一个用于计算图书的实际总价方法Sum。
（5）在窗体代码编辑器中添加一个ComputerBook类变量，用以保存创建的计算机图书类实例。
（6）双击“计算”按钮，添加该按钮的Click事件处理过程。在Cilck事件处理过程中添加代码以计算图书的折扣价。
If RadioButton2.Checked Then