Нужно описать процедуру - VB

Формулировка задачи:

Описать процедуру, которая формирует по данной строке S массив W слов, входящих в S(массив W и его размер N являются выходными параметрами). Словом читается набор символов, не содержащий пробелов и ограниченный пробелами или началом/концом строки; предполагается, что строка S содержит не более 10 слов. Используя эту процедуру, найти количество слов N, содержащих в данной троке S, и сами эти слова

Решение задачи: «Нужно описать процедуру»

textual
                            Листинг программы 
                        

                            PRIVATE SUB G30(S As String, W() As String, k As Integer)
Dim i As Integer
Dim i1 As Integer
Dim i2 As Integer
Dim n As Integer
Dim m As Integer
CONST p = " "
 
S = p + S + p
i = 1
 
DO
   k = INSTR(i + 1, S, p)
   IF k THEN n = n + 1
   i = k
LOOP UNTIL LEN(S) = k
 
REDIM W(1 TO k) AS STRING
i1 = 1
m = 0
 
DO
   i2 = INSTR(i1 + 1, S, p)
   IF i2 THEN m = m + 1
   W(m) = MID$(S, i1 + 1, i2 - i1 - 1)
   i1 = i2
LOOP UNTIL LEN(S) = i2
END SUB
                        

Оцени полезность:

14 голосов , оценка 4.214 из 5

Похожие ответы