当前位置:首页 > 实用技巧 >

vb中怎样计算平均分(怎么用vb计算平均值)

来源:原点资讯(www.yd166.com)时间:2023-11-03 12:59:23作者:YD166手机阅读>>

在这篇文章中,我们将探讨如何使用VBA(Visual Basic for Applications)编写一个用于计算和显示成绩统计信息的程序。这个程序将帮助我们分析一组学生的成绩,并计算各个分数段的人数以及平均分、最高分和最低分。

首先,我们需要定义一些变量来存储我们的计算结果。这些变量包括:

  • i:用于循环的计数器
  • rowt:数据表中的行数
  • a, a1, a2, a3, a4, a5, a6, a7, a8:用于存储不同分数段的人数和总分

接下来,我们使用On Error Resume Next语句来确保在遇到错误时程序不会中断。然后,我们获取数据表中的最后一行,以便我们可以遍历所有的成绩。

在For循环中,我们检查每一行的第二列(即成绩)是否为空。如果不为空,我们将根据成绩所在的分数段更新相应的变量。例如,如果成绩大于等于90分,我们将a1加1,并将成绩添加到总分a中。类似地,我们可以根据不同的分数段更新其他变量。

在循环结束后,我们将各个分数段的人数和总分分别显示在工作表的相应位置。此外,我们还计算了平均分、最高分和最低分,并将这些信息显示在工作表上。

最后,我们对数据表进行排序,以便我们可以快速地查看最高分和最低分。

总之,这个VBA程序可以帮助我们轻松地分析和展示学生的成绩统计信息。通过学习和实践这些代码,我们可以更好地理解如何使用VBA来解决实际问题。

Sub Score() Dim i As Long Dim rowt As Long Dim a, a1, a2, a3, a4, a5, a6, a7, a8 As Long On Error Resume Next rowt = Cells(1048576, 1).End(3).Row For i = 2 To rowt If Cells(i, 2) <> "" Then If Cells(i, 2) >= 90 Then a1 = a1 1 a = a Cells(i, 2) ElseIf Cells(i, 2) >= 80 Then a2 = a2 1 a = a Cells(i, 2) ElseIf Cells(i, 2) >= 70 Then a3 = a3 1 a = a Cells(i, 2) ElseIf Cells(i, 2) >= 60 Then a4 = a4 1 a = a Cells(i, 2) ElseIf Cells(i, 2) >= 50 Then a5 = a5 1 a = a Cells(i, 2) ElseIf Cells(i, 2) >= 40 Then a6 = a6 1 a = a Cells(i, 2) ElseIf Cells(i, 2) < 40 Then a7 = a7 1 a = a Cells(i, 2) End If Else a8 = a8 1 End If Next i Cells(2, 7) = a1 & "人" Cells(3, 7) = a2 & "人" Cells(4, 7) = a3 & "人" Cells(5, 7) = a4 & "人" Cells(6, 7) = a5 & "人" Cells(7, 7) = a6 & "人" Cells(8, 7) = a7 & "人" Cells(9, 7) = a8 & "人" Cells(2, 8) = "平均分: " & Round(a / (rowt - 1 - a8), 1) & vbCrLf & "最高分: " & WorksheetFunction.Max(Range("B2:B" & rowt)) & vbCrLf & "最低分: " & WorksheetFunction.Min(Range("B2:B" & rowt)) Range("A1:B" & rowt).Sort Key1:=Range("B1:B" & rowt), _ Order1:=xlDescending, Header:=xlNo Range("A1:B" & rowt).Select End Sub

栏目热文

vb中统计成绩代码(vb编程按学号查询成绩)

vb中统计成绩代码(vb编程按学号查询成绩)

前面一节,我们学习了如何用宏功能实现点击按钮跳转到指定的工作表,返回按钮的操作也是一样的,有同学还提到了要隐藏工作表的问...

2023-11-03 12:42:37查看全文 >>

怎么做vb程序设计成绩表(vb制作学生成绩录入程序)

怎么做vb程序设计成绩表(vb制作学生成绩录入程序)

现有9个班级的学生成绩表,包括三门课的成绩:要求在Excel中画出每个班级每科平均成绩柱状图。如果单纯的用Excel整理...

2023-11-03 12:25:34查看全文 >>

vb中怎么输入并计算平均分(vb编程怎么计算学生的平均分)

vb中怎么输入并计算平均分(vb编程怎么计算学生的平均分)

通过键盘输入学生的人数n,输入n个学生的成绩,找出n个同学的最高分、最低分、计算平均分代码:#include<st...

2023-11-03 12:29:41查看全文 >>

vb中计算综合成绩的代码怎么写(vb程序怎么筛选及格人数)

vb中计算综合成绩的代码怎么写(vb程序怎么筛选及格人数)

今天学习了刘金玉老师VB编程教程的第26期,学习的主要内容是选择结构(select case)。1.select cas...

2023-11-03 12:24:10查看全文 >>

vb判断成绩是否及格的流程图(用vb软件如何判断成绩优良)

vb判断成绩是否及格的流程图(用vb软件如何判断成绩优良)

【实验目的】 1)掌握VB编程的使用【实验原理】 创建VB应用程序有三个主要步骤: 1、创建应用程序界面 2、设置属性 ...

2023-11-03 12:20:13查看全文 >>

vb求平均成绩代码(vb打印计算结果)

vb求平均成绩代码(vb打印计算结果)

VB6一行代码计算数组的平均值LongArray_Average长整型数组求平均值。引用Public Declare F...

2023-11-03 12:50:17查看全文 >>

vb求平均分的程序(vb程序做分数段代码)

vb求平均分的程序(vb程序做分数段代码)

今天学习的内容是代码编写的规范,学习编程有一段时间了,一直写代码都是很随意,只要能运行基本上就没有注意代码的规范性,所以...

2023-11-03 12:27:21查看全文 >>

vb中如何求每个同学的平均值(vb中怎么求数的个数)

vb中如何求每个同学的平均值(vb中怎么求数的个数)

在VB编程里,模块和子过程是非常重要的概念,把他俩用好了可以让VB\VBA代码变得井井有条、易于管理、易于复制。本教程用...

2023-11-03 12:24:22查看全文 >>

vb中统计成绩用数组如何写代码(vb程序怎么筛选及格人数)

vb中统计成绩用数组如何写代码(vb程序怎么筛选及格人数)

人生的每一段路上,需要成功的自信;也需要失败的警醒。每一段经历都要珍贵,生活的美好缘于一颗平常心。不必雕琢,踏踏实实做事...

2023-11-03 12:47:16查看全文 >>

vb中显示小于60分的成绩的代码(vb中显示学生成绩的代码)

vb中显示小于60分的成绩的代码(vb中显示学生成绩的代码)

1 有内容的最行一行、列lr = Range("A" & Cells.Rows.Count).End(x...

2023-11-03 13:03:08查看全文 >>

文档排行