vb中Type用户定义类型在vb.net中用structure代替

Module Module1

 

    Public Structure student

        Dim num As Integer

        Dim name As String

        Dim sex As String

        Dim age As Integer

        Dim address As String

        Dim lessons As Mark

    End Structure

    Public Structure Mark

        Dim mark1 As Integer

        Dim mark2 As Integer

        Dim mark3 As Integer

        Dim mark4 As Integer

        Dim mark5 As Integer

    End Structure

    Sub Main()

        Dim average, sum As Single

        Dim person As student

 

        person.num = 12345

        person.name = "zhang"

        person.sex = "nan"

        person.age = 21

        person.address = "yantai"

 

        person.lessons.mark1 = 95

        person.lessons.mark2 = 90

        person.lessons.mark3 = 112

        person.lessons.mark4 = 94

        person.lessons.mark5 = 90

        average = 0

        sum = 0

        '结构变量的引用

        With person.lessons

            sum = .mark1 + .mark2 + .mark3 + .mark4 + .mark5

        End With

        average = sum / 5

 

        Console.WriteLine("学号：{0}", person.num)

        Console.WriteLine("姓名：{0}", person.name)

        Console.WriteLine("性别：{0}", person.sex)

        Console.WriteLine("地址：{0}", person.address)

        Console.WriteLine("五门成绩：")

        With person.lessons

            Console.WriteLine("{0}", .mark1)

            Console.WriteLine("{0}", .mark2)

            Console.WriteLine("{0}", .mark3)

            Console.WriteLine("{0}", .mark4)

            Console.WriteLine("{0}", .mark5)

        End With

        Console.WriteLine("总成绩：{0}", sum)

        Console.WriteLine("平均成绩：{0}", average)

 

        Console.ReadLine()

    End Sub

 

End Module

运行效果：