Практическая работа №1.

Практическая работа №1.
Visual Basic 2008. Консольное приложение.
Цель: научится создавать консольные приложения в среде программирования Visual Basic 2008.
Задание 1. Линейный алгоритм.
1. Запустить среду программирования Microsoft Visual Basic 2008 (Пуск –
Все программы – Microsoft Visual Basic 2008 Express Edition)
2. Создать новый проект с именем Линейный алгоритм, выбрав при
создании проекта консольное приложение (Файл – Создать проект –
Консольное приложение – Имя проекта – ОК)
3. Шаблон программы будет создан автоматически
Module Module1
Sub Main()
End Sub
End Module
4. Между второй и третьей строкой вставим следующий код:
Dim A, B, C As Single
Console.Title = ("Складываем два числа")
Console.WriteLine("Введите первое слагаемое: ")
A = Console.ReadLine()
Console.WriteLine("Введите второе слагаемое: ")
B = Console.ReadLine()
C = A + B
Console.WriteLine("{0}+{1}={2}", A, B, C)
Console.ReadKey()
5. Нажатием клавиши F5 запустим наше приложение и проверим работу
программы.
6. Самостоятельно добавьте комментарий к каждой строке кода
программы.
7. В тетради нарисуйте блок схему данного алгоритма.
Задание 2. Алгоритмическая структура ветвление.
1. Выполнить шаги, описанные в пунктах 1 – 3 предыдущего задания,
присвоив этому проекту имя Ветвление.
2. Между второй и третьей строкой вставим следующий код:
Dim A, B As Single
Console.Title = ("Сравниваем два числа")
Console.WriteLine("Введите первое число: ")
A = Console.ReadLine()
Console.WriteLine("Введите второе число: ")
B = Console.ReadLine()
If A > B Then
Console.WriteLine("Первое число больше, чем
второе")
Console.WriteLine("{0}>{1}", A, B)
Else
Console.WriteLine("Второе число больше, чем
первое")
Console.WriteLine("{0}>{1}", B, A)
End If
Console.ReadKey()
3. Запускаем приложение, нажатием клавиши F5.
4. Самостоятельно добавьте комментарий к каждой строке кода
программы.
5. В тетради нарисуйте блок схему данного алгоритма.
6. Покажите работу преподавателю.