-
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 Sub
End Module
运行效果:

栏目列表
最新更新
求1000阶乘的结果末尾有多少个0
详解MyBatis延迟加载是如何实现的
IDEA 控制台中文乱码4种解决方案
SpringBoot中版本兼容性处理的实现示例
Spring的IOC解决程序耦合的实现
详解Spring多数据源如何切换
Java报错:UnsupportedOperationException in Col
使用Spring Batch实现批处理任务的详细教程
java中怎么将多个音频文件拼接合成一个
SpringBoot整合ES多个精确值查询 terms功能实
数据库审计与智能监控:从日志分析到异
SQL Server 中的数据类型隐式转换问题
SQL Server中T-SQL 数据类型转换详解
sqlserver 数据类型转换小实验
SQL Server数据类型转换方法
SQL Server 2017无法连接到服务器的问题解决
SQLServer地址搜索性能优化
Sql Server查询性能优化之不可小觑的书签查
SQL Server数据库的高性能优化经验总结
SQL SERVER性能优化综述(很好的总结,不要错
uniapp/H5 获取手机桌面壁纸 (静态壁纸)
[前端] DNS解析与优化
为什么在js中需要添加addEventListener()?
JS模块化系统
js通过Object.defineProperty() 定义和控制对象
这是目前我见过最好的跨域解决方案!
减少回流与重绘
减少回流与重绘
如何使用KrpanoToolJS在浏览器切图
performance.now() 与 Date.now() 对比