Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
УчебноеПособие по VB_6.doc
Скачиваний:
44
Добавлен:
24.12.2018
Размер:
3.17 Mб
Скачать

Описание переменных

Наименование

программы

______________

Тема проекта: Успеваемость

Лист ________

Листов _______

Обозначение

переменной

Имя переменной

Тип

Примечание

Физика

F

Целая

Оценка по физике

Математика

M

Целая

Оценка по математике

Информатика

INF

Целая

Оценка по информатике

Физкультура

FIZ

Целая

Оценка по физкультуре

SB

SB

Вещественная

Средний балл

Таблица 1.3

Описание свойств элементов управления формы “Успеваемость”

Тип элемента

Элемент

Свойство

Значение

Форма

Forma1

Name

Caption

frmForm1

Успеваемость

Надпись

(метка)

Label 1

Name

Caption

Alignment

lblText

Введите оценки по предметам обучения

2

Label 2

Name

Caption

Alignment

lblFizika

Физика

2

Label 3

и т. д.

Name

Caption

Alignment

lblMatematika

Математика

2

Поле ввода

Text 1

Name

Caption

Alignment

txtFiz

Пусто

1

Text 2

и т. д.

Name

Caption

Alignment

txtMat

пусто

1

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

Command1

Name

Caption

Alignment

cmdOK

OK

2

Command2

Name

Caption

Alignment

cmdEnd

Выход

2

5. Запишите в обработчики событий Click кнопок Ввод и Выход тексты программ для этих кнопок:

Private Sub CmdOK_Click ()

Dim Физика As Integer, Математика As Integer

Dim Информ. As Integer, Физкультура As Integer

Dim СреднийБалл As Single

F = Val (txtFiz.Text)

М = Val(txtMat.Text)

INF = Val(txtInf.Text)

FIZ = Val(txtFizkult.Text)

SB = (F + М + INF + FIZ)/4

txtSredBall = Str(SB)

End Sub

-----------------------------------------------------------------------------

Private Sub сmdEnd_Click()

End

End Sub

Примечание: для переноса длинной строки на другую строку необходимо вставить пробел и символ подчеркивания.

6. Порядок разработки формы.

  • Загрузите программу VB.

  • Введите имя формы Name – “Успеваемость” и надпись для формы Caption – “Успеваемость”.

  • Создайте 6 надписей, разместите их в форме в соответствии с рис. 1.12 и установите свойства согласно таблице 1.3.

  • Создайте пять текстовых полей. Присвоить им имена (Name), похожие на соответствующие надписи. Например: txtF – физика, txtM – математика, txtInf – информатика, txtFiz – физкультура, txtSB – средний балл.

  • Создайте две кнопки и присвойте им имена и надписи в соответствии с табл. 1.3.

  • Перейдите в окно Code. Для чего щелкните дважды мышью по полю формы или щелкните мышью по кнопке Code в окне Project.

  • Выбрите в левом списке объект сmdOK, а в правом списке его свойство Click. Запишите в теле этой процедуры текст программы.

  • Выбрите в левом списке объект сmdEnd , а в правом списке его свойство Click и запишите текст программы.

6. Сохраните программу на диске.

7. Запустите программу.

8. Проведите отладку программы:

  • введите в поля текста контрольные данные: 5, 4, 5,4

  • щелкните по кнопке ОК для получения результата;

  • сравните полученный результат с контрольной цифрой - 4,5.