Образец выполнения задания

Задан список фамилий. Написать программу подсчета количества фамилий, которые заканчиваются на согласную букву и вывести их на экран.

1. Входными данными является список фамилий на русском языке.

2. Выходными данными – список фамилий, начинающихся на согласную букву.

3. Проектируем форму:

6. Составляем программу:

Option Explicit

Dim k As Integer, i As Integer, dl As Integer

Private Sub Command1_Click()

Combo1.AddItem Combo1.Text

Combo1.Text = ""

Combo1.SetFocus

End Sub

Private Sub Command2_Click()

If Combo1.ListIndex >= 0 Then

Combo1.RemoveItem Combo1.ListIndex

Else

MsgBox "Ошибка! Вы не выбрали элемент!"

End If

End Sub

Private Sub Command3_Click()

Combo1.Clear

Combo2.Clear

Text1.Text = ""

End Sub

Private Sub Command4_Click()

k = 0

For i = 0 To Combo1.ListCount - 1

dl = Len(Combo1.List(i))

If InStr("бвгджзклмнпрстфхцчшщ", Mid(Combo1.List(i),dl,1))<>0 Then

k = k + 1

Combo2.AddItem Combo1.List(i)

End If

Text1.Text = k

Next

End Sub

Private Sub Command5_Click()

End

End Sub

7. Результат выполнения программы:

Список рекомендуемой литературы.

1. Браун С.Visual Basic 6: учебный курс. – СПб.: Питер. – 576 с.: 2002.

2. Использование Visual Basic 6. Брайан Сайлер и Джефф Споттс. М. 2000. с.830.

3. Карпов Б.Visual Basic 6: специальный справочник. – СПб.: Питер. – 416 с.: 2000.

4. Михаэль Райтингер, Геральд Муч, Visual Basic 6: полное руководство: пер. с нем.-К.:Издат группа BHV, 1999

5. Петрусос Евангелос. Visual Basic 6. Руководство разработчика: Пер. с англ. – К.: Издат. группа ВНУ. – 1072 с.: 2000.

6. Цимбал Ж.В., Хоцкіна В.Б., Методичний посібник для вивчення мови програмування QBASIC:, / Кривий Ріг, КЕІ КНЕУ, 2001.

7. Зеленський О.С., Ж.В. Цымбал. Методические указания для самостоятельного изучения темы: «Стандартные элементы управления» для студентов всех специальностей, КЕИ КНЕУ, 2004.

8. Астаф′єв О.Ю.,. ЖуковаЛ.Л., Цимбал Ж.В. Методичний посібник для самостійного вивчення VISUAL BASIC для студентів усіх спеціальностей. / Кривий Ріг, КЕІ КНЕУ, 2003.