三九宝宝网宝宝百科宝宝知识

如何用VB计算加权平均分

02月09日 编辑 39baobao.com

[请问怎么用excel算平均分啊]设数据简略如图: 选中数据区域至求“平均分”列,如图: 点,效果如图:...+阅读

Private Sub Command1_Click()

Open App.Path + "\score.txt" For Input As #1

Dim linetxt As String

Dim AvgScore() As Double

If Not EOF(1) Then

Line Input #1, linetxt '过滤掉第一行的标题

End If

Dim all() As StuInfo

Counter = 0

Do While Not EOF(1) '读数据

Line Input #1, linetxt

If Len(Trim(linetxt)) > 0 Then

arr = Split(linetxt, " ")

If UBound(arr) >= 3 Then

Counter = Counter + 1

ReDim Preserve all(Counter) As StuInfo

With all(Counter)

.Id = arr(0)

.StuName = arr(1)

.English = CDbl(arr(2))

.Math = CDbl(arr(3))

.AvgScore = Round((.English * 4 + .Math * 6) / (4 + 6), 2)

End With

End If

End If

Loop

Close #1

'排序

ReDim ord(Counter) As Integer '初始化

For i = 1 To UBound(ord)

ord(i) = i

Next

For i = 1 To UBound(ord) '排序ing

For j = i + 1 To UBound(ord)

If all(ord(i)).AvgScore < all(ord(j)).AvgScore Then

ord(0) = ord(i)

ord(i) = ord(j)

ord(j) = ord(0)

End If

Next

Next

For i = 1 To UBound(ord) '按名次排序

all(ord(i)).No = i

Next

'按照名次显示(两段代码选其中一段)

Print "学号 姓名 英语 数学 平均 名次 (按名次排)" 'print title

For i = 1 To UBound(ord)

With all(ord(i))

tmp = .Id + " " + .StuName + " " + CStr(.English) + " " + CStr(.Math) + " " + CStr(.AvgScore) + " " + CStr(.No)

Print tmp

End With

Next

'按读入顺序显示(两段代码选其中一段)

Print "学号 姓名 英语 数学 平均 名次 (按读取顺序排)" 'print title

For i = 1 To UBound(ord)

With all(i)

tmp = .Id + " " + .StuName + " " + CStr(.English) + " " + CStr(.Math) + " " + CStr(.AvgScore) + " " + CStr(.No)

Print tmp

End With

Next

End Sub

以下为关联文档:

怎么运用excel中的函数求出总分平均分名次总分SUM ,平均分AVERAGE ,名次 RANK.EQ SUM 函数是一个数学和三角函数,可将值相加。你可以将单个值、单元格引用或是区域相加,或者将三者的组合相加。 例如: =SUM(A2:A10) =SUM(A...

Excel求平均分的技巧有哪些Excel求平均分的技巧 学校每年年末都要评选优秀员工,难免要对各教职工进行打分,把分数作为评优的依据。用Excel将所打分数逐一录入,并且需在打出的多个分数中,去掉一定比例的最...

怎样使用excel计算平均分使用excel计算平均分步骤: 1. 选择一个存放结果的空白单元格 2.在开始里面找出平均值函数 3.用左键拖动选中数据,按回车键确定就可以算出平均值了。...

人教版二年级数学平均分的教案平均分) (1) 教学内容:第30~31页的内容。 教学目标: 1、使学生知道什么叫平均分,并能够几个几个地分;通过动手操作知道把一个数每几个分一分,分成几份,初步建立一个数里面有几个几的...

幼儿园蒙式数学平均分配怎样教学更多幼教相关知识:点击“中国幼儿教育网”即可进入 设计理念: 平均分配这种现象经常出现在孩子的生活和学习中,为了能够让孩子更好的理解平均分配就是把一样物品分成几份一样多...

哪一个英国大学排名更加权答:权威性最高的是RAE英国大学排名,但其实都可以相信;只是各类英国大学排名的评比角度不同,如《泰晤士报》(TIMES)是从学术角度,《卫报》是从就业角度,建议同学,两份排名结合使用。目...

c语言结构体中用链表计算全班平均分vs2008测试通过,如果满意请采纳 #include <windows.h> #include <stdio.h> #pragma runtime_checks( "scu", off ) struct stu { char stu_name[10]; float english_score; str...

请教加权平均成绩的算法加权平均成绩就是指每门成绩加上它的权值后算出的平均成绩。 一般,不同的科目,所占的学分是不一样的,像我们学校,高等数学一册有四个学分,电路理论却又六个学分。一个科目占得的...

加权平均分怎么计算啊加权平均数是不同比重数据的平均数,加权平均数就是把原始数据按照合理的比例来计算, 若 n个数中,x1出现f1次,x2出现f2次,…,xk出现fk次,那么(x1f1 + x2f2 + ... xkfk)/ (f1 + f2 + .....

推荐阅读
图文推荐