Написать программу, которая подсчитывает количество слов в предложении

@Vd_11 · Регистрация: 11.04.2017

Author24 — интернет-сервис помощи студентам

между словами может стоять несколько пробелов: двойных,тройных и т.д.
необходимо написание кода без использования функции Trim

SoftIce · 12.05.2017, 09:37

.........

Сообщение от Апострофф

Visual Basic

Option Explicit
 
Sub программ()
Dim предложение As String
предложение = " we s  sg sfg  ghjmcv   "
Dim i As Long, b As Boolean, cnt As Long
b = True
For i = 1 To Len(предложение)
  If Mid$(предложение, i, 1) = " " Then
    b = True
  ElseIf b Then
    b = False
    cnt = cnt + 1
  End If
Next
MsgBox cnt, , "В предложении " & предложение & " слов:"
Stop
End Sub

@Vlad999 · 12.05.2017, 10:43

еще вариант

Visual Basic

1
2
3

For Each S In Split(предложение)
  If S <> "" Then cnt = cnt + 1
Next

Не по теме:

SoftIce, для чего команда Stop? для общего развития. :)

SoftIce · 12.05.2017, 10:54

Сообщение от Vlad999

для чего команда Stop?

Уже не нужна, можно удалить.

@Svsh2015 · 12.05.2017, 13:50

Vd_11, вариант функции в D1

Код

 Function yyy%(t$)
   With CreateObject("VBScript.RegExp"): .Global = True: .IgnoreCase = True
    .Pattern = "(?:[^а-яё\w]|^)[а-яё\w]+(?=[^а-яё\w]|$)"
      yyy = .Execute(t).Count
  End With
End Function

@Vd_11 · 14.05.2017, 10:13 **[ТС]**

предложение нужно вводить самому

@Alex77755 · 14.05.2017, 15:53

предложение нужно вводить самому

Не по теме:

хмм.... а что мешает? вводи!

@Vlad999 · 14.05.2017, 20:49

Visual Basic

1	предложение =InputBox("Введите текст","ВВОД ДАННЫХ")

@Vd_11 0 / 0 / 0 Регистрация: 11.04.2017 Сообщений: 20
		1
	Написать программу, которая подсчитывает количество слов в предложении 11.05.2017, 18:41. Показов 1723. Ответов 7 Метки нет (Все метки) между словами может стоять несколько пробелов: двойных,тройных и т.д. необходимо написание кода без использования функции Trim 0

SoftIce es geht mir gut 11270 / 4752 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	12.05.2017, 10:54	4
	Сообщение от Vlad999 для чего команда Stop? Уже не нужна, можно удалить. 0

@Vd_11 0 / 0 / 0 Регистрация: 11.04.2017 Сообщений: 20
	14.05.2017, 10:13 [ТС]	6
	предложение нужно вводить самому 0

@Alex77755 11508 / 3794 / 681 Регистрация: 13.02.2009 Сообщений: 11,197
	14.05.2017, 15:53	7
	предложение нужно вводить самому Не по теме: хмм.... а что мешает? вводи! 0

	14.05.2017, 20:49