Создать функцию, определяющую количество столбцов в произвольном массиве - VB

Формулировка задачи:

Создать функцию, определяющую количество столбцов в произвольном массиве.

Решение задачи: «Создать функцию, определяющую количество столбцов в произвольном массиве»

textual
                            Листинг программы 
                        

                            Option Explicit
Dim z(5, 6) As Integer
Dim y(7, 8) As Double
 
Private Sub Form_Load()
    MsgBox GetRows(z)
    MsgBox GetRows(y)
End Sub
 
Function GetRows(ByRef a) As Integer
    GetRows = UBound(a, 2)
End Function
                        

Оцени полезность:

12 голосов , оценка 4.25 из 5

Похожие ответы