2025年vb考试编程题及答案.docxVIP

2025年vb考试编程题及答案

某班级本学期组织了5次数学单元测试，现需统计学生测试情况。已知学生信息存储在二维数组中，结构为（学号，姓名，测试1成绩，测试2成绩，测试3成绩，测试4成绩，测试5成绩），其中学号为字符串类型（，姓名为字符串，成绩为整数（0-100）。请编写VB程序完成以下功能：（1）计算每个学生5次测试的平均分（保留2位小数）；（2）统计班级所有学生中，至少3次测试成绩≥90分的人数；（3）找出班级中平均分最高的学生（若有并列，输出所有符合条件的学生）；（4）将统计结果输出到控制台，格式示例如下：

学张三）平均分：89.60

学李四）平均分：92.30

...

至少3次≥90分的人数：5

平均分最高学生王五）赵六）

注：数组数据需通过随机数提供（学号前6位固定为202501，后两位从01到30；姓名用学生+后两位学号代替；每次测试成绩为60-100的随机整数）。

```vb

ImportsSystem

ModuleTestStatistics

SubMain()

初始化学生数据（30名学生）

Dimstudents(29,6)AsObject列0:学号列1:姓名列2-6:测试1-5成绩

DimrandomAsNewRandom()

提供学生数据

ForiAsInteger=0To29

DimstudentIDAsString=202501(i+1).ToString(D2)学号格20250130

DimstudentNameAsString=学生(i+1).ToString(D2)

students(i,0)=studentID

students(i,1)=studentName

ForjAsInteger=2To6

students(i,j)=random.Next(60,101)成绩60-100随机

Next

Next

声明辅助变量

DimavgScores(29)AsDouble存储每个学生平均分

DimhighFreqCountAsInteger=0至少3次≥90的人数

DimmaxAvgAsDouble=0最高平均分

DimmaxAvgStudentsAsNewSystem.Collections.Generic.List(OfString)()存储最高平均分学生

遍历每个学生计算数据

ForiAsInteger=0To29

计算平均分

DimtotalAsInteger=0

DimhighCountAsInteger=0该学生≥90分的次数

ForjAsInteger=2To6

DimscoreAsInteger=CInt(students(i,j))

total+=score

Ifscore=90Then

highCount+=1

EndIf

Next

avgScores(i)=Math.Round(total/5,2)保留2位小数

统计至少3次≥90的情况

IfhighCount=3Then

highFreqCount+=1

EndIf

记录最高平均分

IfavgScores(i)maxAvgThen

maxAvg=avgScores(i)

maxAv