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解决方法 听起来你正试图计算数组每个维度中非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 countEnd Function
它可以像这样调用
Dim count1 = CountNonnothing(Array,0)Dim count2 = CountNonnothing(Array,1)总结
以上是内存溢出为你收集整理的vb.net – 计算多维数组中的项目全部内容,希望文章能够帮你解决vb.net – 计算多维数组中的项目所遇到的程序开发问题。
如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)