【文件属性】：
文件名称：VB6.0 如何计算加权平均值.rar
文件大小：2KB
文件格式：RAR
更新时间：2022-07-30 13:05:07
VB源码-其它源码
VB6.0 代码演示如何计算加权平均值，计算加权平均值可编写以下代码实现：
Private Sub Command1_Click()
Text7.Text = jiaquan(Text1, Text2, Text3, Text4, Text5, Text6)
End Sub
Private Function jiaquan(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer, ByVal d As Integer, ByVal e As Integer, ByVal f As Integer)
Dim sum As Integer
sum = (a * b c * d e * f) / (b d f)
sum = Round(sum, 2)
jiaquan = sum
End Function
【文件预览】：
codesc.net
----计算加权平均值()
--------Form1.frm(12KB)
--------工程1.vbp(662B)
--------MSSCCPRJ.SCC(190B)
--------工程1.vbw(52B)