Самостоятельные и контрольные работы по информатике
1 1 1 1 1 1 1 1 1 1 Рейтинг 0.00 (0 Голоса)

Расчетная работа по дисциплине “Визуально-объектное программирование”

Вариант 2

Создайте форму вида:

Задание Создайте форму вида

Создайте процедуру, которая запускается после щелчка на кнопке Ок. Процедура должна проверять правильность введенных данных и в случае их корректности записывать данные в файл. После записи данных содержимое полей должно быть очищено. После щелчка на кнопке Отмена очистить содержимое всех полей.

Private Sub Command1_Click()

If Option1.Value = True Then

b = "Муж"

ElseIf Option2.Value = True Then

b = "жен"

Else

MsgBox "Выберите пол"

End If

If Option3.Value = True Then

c = "Наличные"

ElseIf Option4.Value = True Then

c = "Кредитная Карта"

Else

MsgBox "Выберите способ оплаты"

End If

If IsNumeric(Text1) = True Then

MsgBox "Введите фамилию"

Text1 = " "

Text1.SetFocus

Exit Sub

Else

If IsNumeric(Text2) = True Then

MsgBox "Введите Имя"

Text2 = " "

Text2.SetFocus

Exit Sub

Else

If IsNumeric(Text3) = True Then

MsgBox "Введите отчество"

Text3 = " "

Text3.SetFocus

Exit Sub

Else

a = List1.ListIndex

Select Case a

Case Is = 0

e = 1

Case Is = 1

e = 2

Case Is = 2

e = 3

Case Is = 3

e = 4

Case Is = 4

e = 5

End Select

Text4 = 100

Text5 = Text4 * e

Dim file As Integer

file = 1

Open "E:\Text1.txt" For Append As file

Write #file, "Фамилия: " & Text1.Text

Write #file, "Имя: " & Text2.Text

Write #file, "Отчество: " & Text3.Text

Write #file, "Стоимость 1 дня проживания: " & Text4.Text

Write #file, "К оплате: " & Text5.Text

Write #file, "Номер: " & Combo1.Text

Write #file, "продолжительность проживания: " & List1.Text

Write #file, "пол: " & b

Write #file, "оплата: " & c

Close file

End If

End If

End If

End Sub

Private Sub Command2_Click()

Form1.Hide

End

End Sub

Private Sub Form_Load()

Combo1.AddItem "101", 0

Combo1.AddItem "102", 1

Combo1.AddItem "103", 2

Combo1.AddItem "104", 3

Combo1.AddItem "105", 4

List1.AddItem "1", 0

List1.AddItem "2", 1

List1.AddItem "3", 2

List1.AddItem "4", 3

List1.AddItem "5", 4

End Sub

Добавить комментарий


Защитный код
Обновить

По темам:

История Украины

Культурология

Высшая математика

Информатика

Охотоведение

Статистика

География

Военная наука

Английский язык

Генетика

Разное

Технологиеские темы

Украинский язык

Филология

Философия

Химия

Экология

Социология

Физическое воспитание

Растениевосдство

Педагогика

История

Психология

Религиоведение

Плодоводство

Экономические темы

Бухгалтерские темы

Маркетинг

Иностранные языки

Ветеринарная медицина

Технические темы

Землеустройство

Медицинские темы

Творчество

Лесное и парковое хозяйство

Агрономия

Преподавателям

Юридические темы

Google