vb.net – 计算多维数组中的项目

发布时间：2020-12-17 07:17:00 所属栏目：百科来源：网络整理

导读：如果我有以下数组： Dim Array(4,10) As String Array(0,0) = "100" Array(0,1) = "200" Array(1,0) = "300" Array(1,1) = "400" Array(1,2) = "500" Array(1,3) = "600" 我如何获得以下计数： 0 = 21 = 4 解决方法听起来你正试图计算数组每个维度中非Nothi

如果我有以下数组：

Dim Array(4,10) As String
    Array(0,0) = "100"
    Array(0,1) = "200"
    Array(1,0) = "300"
    Array(1,1) = "400"
    Array(1,2) = "500"
    Array(1,3) = "600"

我如何获得以下计数：

0 = 2
1 = 4

解决方法

听起来你正试图计算数组每个维度中非Nothing值的数量.以下功能将允许您这样做

Public Function CountNonNothing(ByVal data As String(,),ByVal index As Integer) As Integer
    Dim count = 0
    For j = 0 To data.GetLength(1) - 1
        If data(index,j) IsNot Nothing Then
            count += 1
        End If
    Next
    Return count
End Function

它可以像这样调用

Dim count1 = CountNonNothing(Array,0)
Dim count2 = CountNonNothing(Array,1)

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!