实例2-5 结构类型的使用

该实例实现步骤如下。

1 创建窗体

在本章的项目chapter2中，右键单击解决方案资源管理器中项目名下面对应节的文件夹“数据类型”，在弹出的快捷菜单中选择“添加”→“Windows窗体”菜单命令，在弹出的对话框中输入窗体名StrFrm，单击“添加”按钮，完成窗体的创建。

2 添加控件

在窗体上添加三个textbox控件，分别用于输入信息和显示信息。

添加一个label控件用于相关说明。

添加一个Button控件到窗体上。

3 添加代码

双击窗体转到代码编辑器，在该窗体的代码编辑器窗口中添加代码2-9 中的代码。代码2-9实现了在Button控件的Click()中实例化Structure结构，并调用结构中的pro()方法。

        01  Public Class StrFrm
        02      Structure prostru
        03          Dim a As Integer
        04          Dim b As Integer
        05          Dim c As Integer
        06          Sub pro(ByVal a, ByVal b)
        07              c = a * b
        08          End Sub
        09      End Structure
        10      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
    System.EventArgs) Handles Button1.Click
        11          Dim p As prostru
        12          p = New prostru
        13          p.pro(Me.TextBox1.Text, Me.TextBox2.Text)
        14          Me.TextBox3.Text = p.c
        15      End Sub
        16  End Class

代码2-9的执行步骤如下：

① 第2行代码定义了一个结构prostru；

② 第6行代码在结构类型中定义了一个Sub过程pro，用来进行两数的乘积；

③ 第11行代码创建一个结构对象，并在第12行代码中实例化；

④ 第13行代码调用结构中的方法实现两数相乘的功能；

⑤ 第14行代码将所得乘积显示在窗体的textbox3中。

4 运行结果

按F5键，运行该程序，结果如图2-10所示。