Dzwebs.Net

撰写电脑技术杂文十余年

多元数组在Excel中的应用

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

温馨提示!

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

  假设有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


网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231