Public Structure good '定义一个名为good的结构语句块

Public di As String '声明此结构的成员，此成员为字符串形

Public ei As Integer '声明此结构的成员，此成员为整数形

End Structure

----------------------------------------------------------------------------------------------------

Public Class Form1

Public Sub objGood(ByVal FIND As good) '创建一个objGood方法(也称为函数），同时为GOOD结构创建了一个按值传递的变量FIND。

'也就是说此函数传入的参数是结构GOOD的一个变量，名称是：FIND,它包含了GOOD结构下的所有成员，在本列中为：di,ei.

txtB1.Text = FIND.di '给第一个文本框赋值，其值为find变量内的di值。

txtB2.Text = FIND.ei.ToString '同上。

End Sub

Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click

Dim LI As good '声明LI是good结构的变量。其同样包含了GOOD结构下的所有成员。

LI.ei = 123456 '为变量li内的ei赋值。

LI.di = "lihaigen" '原理同上。

objGood(LI) '把good结构的变量LI及相对应成员的值作为参数传递给我objGood方法(自定义函数)，此时变量LI=变量FIND.

'传入后相当于 txtB1.Text = LI.di

' txtB2.Text = LI.ei.ToString

End Sub

Private Sub Button2_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button2.Click

Dim WAN As good '在这个事件当中又定义了另一个变量WAN为good结构的变量。其赋值和传递原理同上。

WAN.ei = 888888

WAN.di = "wangbaojun"

objGood(WAN)

End Sub

'由此可见，结构成员可以包含给它的任何一个变量并变为这些变量的成员，并可以对这些变量当中的成员赋值，虽然这些变量都同属于一个结构，但互不影响。

End Class