Министерство образования и науки Украины

Киевский национальный экономический университет

Криворожский экономический институт

Кафедра информатики

Методические указания

и учебные задания

для изучения темы: «Программирование в Visual Basic» по дисциплине «Информатика»

для студентов всех специальностей

Кривой Рог - 2005

Министерство образования и науки Украины

Киевский национальный экономический университет

Криворожский экономический институт

Кафедра информатики

Методические указания

и учебные задания

для изучения темы: «Программирование в Visual Basic» по дисциплине «Информатика»

для студентов всех специальностей

Утверждено

на заседании кафедры

информатики

П ротокол №

от " " 2005 г.

Кривой Рог - 2005

Методические указания и учебные задания для изучения темы: «Программирование в Visual Basic» по дисциплине «Информатика» для студентов всех специальностей

Составители:– Цымбал Ж.В., Хоцкина В.Б., Сокольник С.Г., Кривой Рог. Криворожский экономический институт КНЭУ, 2005, - с. 44.

Составители: Цымбал Ж.В., ст. преподаватель

Хоцкина В.Б., ст. преподаватель

Сокольник С.Г., ассистент

Рецензент: А.С Зеленский, д.т.н., профессор

Содержание

Задание 1.

Задание 1. 5

Линейный вычислительный процесс 5

Задание 2 9

Разветвляющийся вычислительный процесс 9

Задание 3 14

Циклический вычислительный процесс 14

3.1. Простые циклы 14

3.2. Вложенные циклы 15

3.3. Итерационные циклы 19

Задание 4 21

Сочетание разветвляющегося и циклического вычислительных процессов 21

Усложненные задачи 21

Задание 5 26

Задачи с одномерным массивом 26

Задание 6 32

Задачи с одномерным массивом 32

Усложненный вариант 32

Задание 7 35

Составление программ обработки символьных данных 35

Задание 8 40

Составление программ обработки символьных данных 40

Усложненный вариант 40

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

Задание 1. Линейный вычислительный процесс

Вычислить значения переменных, указанных в задачах. Значения входных данных определить самостоятельно.

Задания для решения на практических занятиях:

1. 

2. 

3. 

4. 

5. 

Варианты индивидуальных заданий

1. 

2. 

3. 

4. 

5. 

6. 

7. 

8. 

9. 

10. 

11. 

12. 

13. 

14. 

15. 

16. 

17. 

18. 

19. 

20. 

21. 

22. 

23. 

24. 

25. 

26. 

27. 

28. 

29. 

30. 

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

Вычислить значение Y:

1. Входными данными являются переменные p, k и i.

2. Выходными данными – значение Y.

3. На форме спроэктированы следующие элементы управления:

Label (Введите р, Введите k,Введите і, Ответ Y=),

TextBox (для ввода и вывода данных),

CommandButton (Вычислить, Выход).

При проектировании данной формы использованы свойства элементов управления:

Alignment - для выравнивания текста,

Caption (для элементов управления Label, CommandButton),

Text (для элемента TextBox),

Font – для изменения размера и начертания шрифта.

4. Программный код:

Dim p As Single, k As Single, i As Single, Y As Single

Private Sub Command1_Click()

p = Text1.Text

k = Text2.Text

i = Text3.Text

Y = (Log(p*k)/Log(10)-k^(2/3))/(Log(i+k)*Sin(p)^2)*Exp(k)

Text4.Text = Y

End Sub

Private Sub Command2_Click()

End

End Sub

2-й вариант решения задачи – с проверкой входных данных функцией IsNumeric()

Dim p As Single, k As Single, i As Single, Y As Single

Private Sub Command1_Click()

If IsNumeric(Text1)=True And IsNumeric(Text2)=True And IsNumeric(Text3)=True Then

p = Text1.Text

k = Text2.Text

i = Text3.Text

Else

MsgBox " Ошибка! Повторите ввод"

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text1.SetFocus

Exit Sub

End If

Y = (Log(p*k)/Log(10)-k^(2/3))/(Log(i+k)*Sin(p)^2)*Exp(k)

Text4.Text = Y

End Sub

Private Sub Command2_Click()

End

End Sub

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

Задание 2 Разветвляющийся вычислительный процесс

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