VB6.0 如何计算加权平均值
于 2022-02-25 发布
文件大小:2.41 kB
0 186
下载积分: 2
下载次数: 1
代码说明：
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
下载说明：请别用迅雷下载，失败请重下，重下不扣分！
发表评论
