vb 怎样求数组元素个数答:Private Sub Form_Click()Dim i As Integer, j As Integer, k As Integer Dim count As Long Dim a(3, -2 To 2, 5) As Integer For i = LBound(a, 1) To UBound(a, 1)For j = LBound(a, 2) To UBound(a, 2)For k = LBound(a, 3) To UBound(a, 3)count = count ...
VB如何统计二维数组中相同元素的个数?答:b, 2) + 1) '保留原值重定义数组 b(1, UBound(b, 2)) = ""b(2, UBound(b, 2)) = 0 End If Next Next For k = LBound(b, 2) To UBound(b, 2)Print b(1, k), b(2, k)Next End Sub 'b 数组中二维下标的位置换了一下,以便于 保留原值重定义数组 而不出错!