Помогите, пожалуйста, написать программу в VBA. Последовательность действительных чисел оканчивается нулем. Найти количество членов этой
последовательности.

Dim r As Single, s As String, d, v As String, A() As SingleDim t As String, z As Integer, k As Integer, h As Integer, g As Integerh = Rnd * 100ReDim A(h) As SingleFor i = 1 To hA(i) = Rnd * 1000s = CStr(A(i))'MsgBox sd = Split(A(i), ",")'MsgBox d(0)v = d(0)z = Len(v)s = Mid(v, z, 1)If s = "0" Then t = t & CStr(A(i)) + " ": g= g+1NextMsgBox gMsgBox t

Sub aaa()    Const n = 50    Dim a(1 To n) As Double, Zero As Boolean    Randomize Timer    For i = 1 To n        a(i) = Int(21 * Rnd - 10)    Next i    k = 0: Zero = False    For i = 1 To n        If a(i) = 0 Then            Zero = True            Exit For        End If    Next i    If Zero Then        MsgBox "Количество членов последовательности равно " + CStr(i)    Else        MsgBox "В последовательности нет нулей"    End IfEnd Sub