Составить рекурсивную функцию, подсчитывающую количество вхождений символа x в строку S

Private Sub Command1_Click()

Dim kol As Integer

Dim S, S0 As String

S0 = "x"

S = InputBox("Введите строку", "Ввод данны")

kol = Count_position(S, 1, S0)

Caption = kol

End Sub

Private Function Count_position(ByVal st As String, pos As Integer, sign As String) As Integer

If pos > Len(st) Then Count_position = 0: Exit Function ' Условие выхода

If Mid(st, pos, 1) = sign Then

Count_position = Count_position(st, pos + 1, sign) + 1

Else

Count_position = Count_position(st, pos + 1, sign)

End If

End Function

2. Учреждение имеет две ПЭВМ. Интенсивность обращения к ним = 3 клиента/часов. Среднее время обслуживания одного пользователя = 1 час Пользователи нетерпеливы и в среднем ожидают в очереди 0,5 часы. Считая, что все случайные величины имеют показательное распределение и общее количество пользователей в учреждении равное 5, найти характеристики эффективности обслуживания персональными ЭВМ