vb.net structure结构类型
编写一个记录学生信息和学习成绩的程序
学号(num)、姓名(name)、性别(sex)、年龄(age)、住址(address)、学习成绩(mark)
学习成绩分为5们 分数分别为95,90,112,94,90
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 SubEnd Module
运行效果: