Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Живодерова В В / VB Лабораторный практикум 2 часть.doc
Скачиваний:
75
Добавлен:
26.03.2016
Размер:
1.39 Mб
Скачать

Лабораторно-практическая работа № 2

Тема: Ввод, вывод и присвоение в программе

Цель работы: получить навыки разработки приложений для вычислительных задач

Порядок выполнения

  1. Загрузите графический редактор Paint. 1 часть

  2. Выберите в меню программы Рисунок / Атрибуты

  3. В появившемся окне установите Единицы см, Ширина 6, Высота 3., нажмите Ок

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

  5. Закройте программу Paint

  6. Загрузите Visual Basic

  7. Установите на форме следующие объекты и измените им свойства

Объект

Свойство

Значение

Метки

Caption

Объем коробки вычисляется по формуле

Caption

V=A*B*H

Caption

Длина

Caption

Ширина

Caption

Высота

Caption

Объем

Командная кнопка

Name

CmdResult

Caption

Определение объема

Текстовые окна

Name

Text1

Name

Text2

Name

Text3

Name

Text4

Изображение

Name

Image1

Picture

(созданный Вами рисунок)

  1. Приведите свою форму в соответствие с образцом

  1. В окне кода процедуры обработки события Click для объекта CmdResult набрать

Dim a,b,h,v As Integer

a = Val(Text1.Text)

b = Val(Text2.Text)

h = Val(Text3.Text)

v = a * b * h

Text4.Text = v

  1. Проверьте работу программы на различных входных данных

2 Часть

  1. Откройте новый проект, на форме расположите объекты и измените для них свойства:

Объект

Свойство

Значение

Командные кнопки

Caption

Обмен значениями

Name

Cmd1

Caption

Обмен шрифтами

Name

Cmd2

Caption

Обмен начертанием

Name

Cmd3

Текстовые окна

Name

Text1

Font

14, Полужирный, Ms Serif

ForeColor

Черный

Text

Это левое поле

Name

Text2

Font

14, Курсив, Garamond

ForeColor

Красный

Text

Это правое поле

  1. Приведите свою форму в соответствии с образцом.

  1. В окне кода процедуры обработки события Click для объекта Cmd1 набрать

Dim stroka1 As String, stroka2 As String

stroka1 = Text1.Text : stroka2 = Text2.Text

Text1.Text = stroka2 : Text2.Text = stroka1

  1. В окне кода процедуры обработки события Click для объекта Cmd2 набрать

Dim stroka1 As String, stroka2 As String

stroka1 = Text1.FontName : stroka2 = Text2.FontName

Text1.FontName = stroka2 : Text2.FontName = stroka1

  1. В окне кода процедуры обработки события Click для объекта Cmd3 набрать

Dim stroka1 As Boolean, stroka2 As Boolean

'полужирный

stroka1 = Text1.FontBold : stroka2 = Text2.FontBold

Text1.FontBold = stroka2 : Text2.FontBold = stroka1

'курсив

stroka1 = Text1.FontItalic : stroka2 = Text2.FontItalic

Text1.FontItalic = stroka2 : Text2.FontItalic = stroka1

  1. Проверьте работу программы. Объясните, почему объявленные переменные имеет различный тип в процедурах.

  2. Добавьте командную кнопку на форму и разработайте программу для нее для обмена цветом шрифта между окнами (самостоятельно)

Тут вы можете оставить комментарий к выбранному абзацу или сообщить об ошибке.

Оставленные комментарии видны всем.