Информатика и выч. техника \ Информатика

Реализация программного модуля, на встроенном языке программирования Visual Basic for Application (VBA), страница 6


Список использованных источников

1. Гарнаев А.Ю. Самоучитель VBA. – СПб : БХВ – Санкт-Петербург, 

2002.

2. Кузнецов А.В., Сакович В.А., Холод Н.И. Высшая математика. Математическое программирование. – Минск: «Вышэйшая школа», 1994.

3.  Антонов А. В. Системный анализ. учеб. для вузов/А.В. Антонов. – 2-е изд., стер. – М.:Высш. шк., 2006. – 454 с.: ил.

Приложение А

UserForm1

Public a As Integer

Public b As Integer

Private Sub CommandButton1_Click()

ComboBox1.BackColor = &H8000000F

ComboBox2.BackColor = &H8000000F

check = False     'проверка на символьный ввод

If IsNumeric(ComboBox1.Text) = False Then ComboBox1.BackColor = &H404040: check = True

If IsNumeric(ComboBox2.Text) = False Then ComboBox2.BackColor = &H404040: check = True

If check = True Then MsgBox "Некорректный ввод данных", vbCritical, "Ошибка": Exit Sub

check1 = False       'проверка на целочисленность

If IsNumeric(ComboBox1.Text) = True Then

If ComboBox1.Text - Val(ComboBox1.Text) > 0.0000001 Then

ComboBox1.BackColor = &H404040

check1 = True

End If

End If

If IsNumeric(ComboBox2.Text) = True Then

If ComboBox2.Text - Val(ComboBox2.Text) > 0.0000001 Then

ComboBox2.BackColor = &H404040

check1 = True

End If

End If

If check1 = True Then MsgBox "Некорректный ввод данных", vbCritical, "Ошибка": Exit Sub

check2 = False            'ввод неотрицательных цифор

If ComboBox1.Text < 0 Then

ComboBox1.BackColor = &H404040

check2 = True

End If

If ComboBox2.Text < 0 Then

ComboBox2.BackColor = &H404040

check2 = True

End If

If check2 = True Then MsgBox "Некорректный ввод данных", vbCritical, "Ошибка": Exit Sub

'количество поставщиков и количество потребителей должно быть равно 7

a = ComboBox1.Text

b = ComboBox2.Text

If a + b <> 7 Then

MsgBox "Некорректный ввод данных: количество поставщиков и количество потребителей должно быть равно 7", vbCritical, "Ошибка"

Exit Sub

End If

UserForm2.ComboBox1.Visible = False

UserForm2.ComboBox2.Visible = False

UserForm2.ComboBox3.Visible = False

UserForm2.ComboBox4.Visible = False

UserForm2.ComboBox5.Visible = False

UserForm2.ComboBox6.Visible = False

UserForm2.ComboBox7.Visible = False

UserForm2.ComboBox8.Visible = False

UserForm2.ComboBox9.Visible = False

UserForm2.ComboBox10.Visible = False

UserForm2.ComboBox11.Visible = False

UserForm2.ComboBox12.Visible = False

UserForm2.ComboBox13.Visible = False

UserForm2.ComboBox14.Visible = False

If UserForm1.b = 0 Then

UserForm2.ComboBox1.Visible = False

UserForm2.ComboBox2.Visible = False

UserForm2.ComboBox3.Visible = False

UserForm2.ComboBox4.Visible = False

UserForm2.ComboBox5.Visible = False

UserForm2.ComboBox6.Visible = False

UserForm2.ComboBox7.Visible = False

End If

If UserForm1.a = 0 Then

UserForm2.ComboBox8.Visible = False

UserForm2.ComboBox9.Visible = False

UserForm2.ComboBox10.Visible = False

UserForm2.ComboBox11.Visible = False

UserForm2.ComboBox12.Visible = False

UserForm2.ComboBox13.Visible = False

UserForm2.ComboBox14.Visible = False

End If

If UserForm1.b = 1 Then

UserForm2.ComboBox1.Visible = True

UserForm2.ComboBox2.Visible = False

UserForm2.ComboBox3.Visible = False

UserForm2.ComboBox4.Visible = False

UserForm2.ComboBox5.Visible = False

UserForm2.ComboBox6.Visible = False

UserForm2.ComboBox7.Visible = False

End If

If UserForm1.a = 1 Then

UserForm2.ComboBox8.Visible = True

UserForm2.ComboBox9.Visible = False

UserForm2.ComboBox10.Visible = False

UserForm2.ComboBox11.Visible = False

UserForm2.ComboBox12.Visible = False

UserForm2.ComboBox13.Visible = False

UserForm2.ComboBox14.Visible = False

End If

If UserForm1.b = 2 Then

UserForm2.ComboBox1.Visible = True

UserForm2.ComboBox2.Visible = True

UserForm2.ComboBox3.Visible = False

UserForm2.ComboBox4.Visible = False

UserForm2.ComboBox5.Visible = False

UserForm2.ComboBox6.Visible = False

UserForm2.ComboBox7.Visible = False

End If

If UserForm1.a = 2 Then

Скачать файл