Составьте программу,позволяющую найти долю согласных букв в строке,не содержащей знаков...

Question

Составьте программу,позволяющую найти долю согласных букв в строке,не содержащей знаков препинания

Answer 1

VB.

Dim i As Integer
Dim summ As Integer
Dim simv As String       
simv = "бвгджзклмнпрстфхцчшщ"       
Dim n As String       
n=InputBox ("Введите строку")

        For i = 1 To Len(n)
            If InStr(simv, Mid(CStr(n), i, 1)) > 0 Then summ += 1
        Next     
'  c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535  
MsgBox("Всего согласных в строке " & summ & ", что является " & Len(n) & "/" & summ & "=" & Len(n) / summ & " долей")