Количество чисел в строке - VB
Формулировка задачи:
В общем, нужно написать программу, подсчитывающую кол-во чисел в строке. Ну допустим ввели "12333345555", получаем 5
Решение задачи: «Количество чисел в строке»
textual
Листинг программы
Function f(s$) As Long Dim i& For i = 1 To Len(s) If InStr(i + 1, s, Mid$(s, i, 1)) = 0 Then f = f + 1 Next End Function