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

VB.Dim i As IntegerDim summ As IntegerDim 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 & " долей")