多元数组在Excel中的应用

Admin | 2013-11-2 8:36:18 | 被阅次数 | 6280

温馨提示!

如果未能解决您的问题，请点击搜索；登陆可复制文章，点击登陆

　　假设有Excel中有三个列，分保是语文数学英语，那么，要根据这三个列的数据综合使用多元数组，那么，可使用如下的示例代码。

　　Attribute VB_Name = array4
　　Sub test()
　　    Dim tensuu(3, 2) As Integer

　　    tensuu(0, 0) = 78
  　　 tensuu(0, 1) = 45
　　   tensuu(0, 2) = 52

　　   tensuu(1, 0) = 98
　　　tensuu(1, 1) = 87
　　   tensuu(1, 2) = 84

   　　 tensuu(2, 0) = 52
　　    tensuu(2, 1) = 45
　　    tensuu(2, 2) = 87

　　    tensuu(3, 0) = 71
　　    tensuu(3, 1) = 92
　　    tensuu(3, 2) = 90

　　　Dim sum As Integer
　　    Dim heikin As Integer
　　   Dim i As Integer
　　   Dim j As Integer

  　　 sum = 0

    For i = 0 To 3
        For j = 0 To 2
            sum = sum + tensuu(i, j)
        Next j
    Next i

    heikin = sum / 12
    Range(A1).Value = “全部学生全部科目的平均分是“+heikin

End Sub