Visual Basic FAQ

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

Dim SLOV$() ' массив слов. без размера, размер определяется в программе
Dim SOGL$(22) 'массив согласных букв
Dim GL$(20)   'массив гласных букв
Dim K_S(22) As Integer 'массив встретившихся согласных букв (кол-во букв)
Dim K_GL(20) As Integer 'массив встретившихся гласных букв (кол-во букв)
Dim N, NSL, NS, NG
Dim TXT$ 'весь текст
Dim KSL As Integer 'число слов = размеру массива слов
Dim KPSL As Integer 'число слов с длинной >0

Private Sub Command1_Click()
Label1.Caption = ""
Label2.Caption = ""

TXT$ = Trim$(LCase$(Text1.Text)) 'в маленькие буквы

SLOV() = Split(TXT, " ") 'создание массива слов, разделённых пробелами

KSL = UBound(SLOV) 'КОЛ-ВО СЛОВ
KPSL = 0

For NSL = 0 To KSL
  SLOV(NSL) = Trim(SLOV(NSL)) 'убрать пробелы по краям слова
  If Len(SLOV(NSL)) > 0 Then 'если длина слова между больше 0
    KPSL = KPSL + 1 'подсчёт кол-ва слов
  End If
Next NSL

Erase K_GL 'очистка массива встретившихся гласных букв
Erase K_S  'очистка массива встретившихся согласных букв

For NG = 1 To 10
  For NSL = 0 To KSL
    B = InStr(1, SLOV(NSL), GL(NG))
    If B > 0 Then
      K_GL(NG) = K_GL(NG) + 1
    End If
  Next NSL

  If K_GL(NG) = KPSL Then 'текущая буква встретилась в каждом слове
    Label1.Caption = Label1.Caption & GL(NG) & " "
  End If
Next NG

For NG = 1 To 22
  For NSL = 0 To KSL
    B = InStr(1, SLOV(NSL), SOGL(NG))
    If B > 0 Then
      K_S(NG) = K_S(NG) + 1
    End If
  Next NSL
  If K_S(NG) > 0 Then 'текущая буква встретилась хоть 1 раз
    Label2.Caption = Label2.Caption & SOGL(NG) & " "
  End If
Next NG

End Sub

Private Sub Form_Load()

Text1.Text = "Колобок вологодский молока попил"

SOGL(1) = "б"
SOGL(2) = "в"
SOGL(3) = "г"
SOGL(4) = "д"
SOGL(5) = "ж"
SOGL(6) = "з"
SOGL(7) = "к"
SOGL(8) = "л"
SOGL(9) = "м"
SOGL(10) = "н"
SOGL(11) = "п"
SOGL(12) = "р"
SOGL(13) = "с"
SOGL(14) = "т"
SOGL(15) = "ф"
SOGL(16) = "х"
SOGL(17) = "ц"
SOGL(18) = "ч"
SOGL(19) = "ш"
SOGL(20) = "щ"
SOGL(21) = "ъ"
SOGL(22) = "ь"

GL$(1) = "а"
GL$(2) = "е"
GL$(3) = "ё"
GL$(4) = "и"
GL$(5) = "й"
GL$(6) = "о"
GL$(7) = "у"
GL$(8) = "ы"
GL$(9) = "ю"
GL$(10) = "я"

End Sub

Запись опубликована on 25.02.2011 at 9:33 и размещена в рубрике: Массив. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.