文件名称：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)