- •Содержание
- •Задание 1. Линейный вычислительный процесс
- •Задания для решения на практических занятиях:
- •Варианты индивидуальных заданий
- •Образец выполнения задания
- •Задание 2 Разветвляющийся вычислительный процесс
- •Задания для решения на практических занятиях:
- •Варианты индивидуальных заданий
- •Образец выполнения задания
- •3.3. Итерационные циклы Варианты индивидуальных заданий
- •Образец выполнения задания
- •Задание 4 Сочетание разветвляющегося и циклического вычислительных процессов Усложненные задачи
- •Задания для решения на практических занятиях:
- •Варианты индивидуальных заданий
- •Образец выполнения задания
- •Задание 5 Задачи с одномерным массивом
- •Задания для решения на практических занятиях:
- •Варианты индивидуальных заданий
- •Образец выполнения задания
- •Задание 6 Задачи с одномерным массивом Усложненный вариант
- •Задания для решения на практических занятиях:
- •Варианты индивидуальных заданий
- •Задание 7 Составление программ обработки символьных данных Задания для решения на практических занятиях:
- •Варианты индивидуальных заданий
- •Образец выполнения задания
- •Задание 8
- •Составление программ обработки символьных данных
- •Усложненный вариант
- •Задания для решения на практических занятиях:
- •Варианты индивидуальных заданий
- •Образец выполнения задания
- •Список рекомендуемой литературы.
Образец выполнения задания
Задан список фамилий. Написать программу подсчета количества фамилий, которые заканчиваются на согласную букву и вывести их на экран.
Входными данными является список фамилий на русском языке.
Выходными данными – список фамилий, начинающихся на согласную букву.
Проектируем форму:
Составляем программу:
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
Результат выполнения программы:
Список рекомендуемой литературы.
Браун С.Visual Basic 6: учебный курс. – СПб.: Питер. – 576 с.: 2002.
Использование Visual Basic 6. Брайан Сайлер и Джефф Споттс. М. 2000. с.830.
Карпов Б.Visual Basic 6: специальный справочник. – СПб.: Питер. – 416 с.: 2000.
Михаэль Райтингер, Геральд Муч, Visual Basic 6: полное руководство: пер. с нем.-К.:Издат группа BHV, 1999
Петрусос Евангелос. Visual Basic 6. Руководство разработчика: Пер. с англ. – К.: Издат. группа ВНУ. – 1072 с.: 2000.
Цимбал Ж.В., Хоцкіна В.Б., Методичний посібник для вивчення мови програмування QBASIC:, / Кривий Ріг, КЕІ КНЕУ, 2001.
Зеленський О.С., Ж.В. Цымбал. Методические указания для самостоятельного изучения темы: «Стандартные элементы управления» для студентов всех специальностей, КЕИ КНЕУ, 2004.
Астаф′єв О.Ю.,. ЖуковаЛ.Л., Цимбал Ж.В. Методичний посібник для самостійного вивчення VISUAL BASIC для студентів усіх спеціальностей. / Кривий Ріг, КЕІ КНЕУ, 2003.