Файл: Системы программирования..pdf

В программе использовать проверку корректности исходных данных.

2. Разработка проекта

1. на Листе 1 в диапазон ячеек А1:Е1 вводим заголовки таблицы исходных данных и полученного результата.
2. Входим в Режим конструктора (панель инструментов Элементы управления). Создаем элемент управления Кнопка: Ввод.
3. Двойным нажатием на кнопку Ввод, входим в редактор VB. Создаем процедуру обработки нажатия на кнопку Ввод:

Private Sub CommandButton1_Click()

UserForm1.Show

End Sub

1. Выберем команду Insert| UserForm. В проекте появится новая форма.

Добавляем на форму три объекта Label (Метка), три объекта TextBox (Текстовое поле) и группу из трех объектов OptionButton (Переключатель) для ввода исходных данных.

Добавляем на форму объект CommandButton (Кнопка) для подсчета предельной ошибки выборки в случае механического отбора.

1. Обрабатываем нажатие кнопки CommandButton1:

Private Sub CommandButton1_Click()

If IsNumeric(TextBox1) And IsNumeric(TextBox2) And IsNumeric(TextBox3) Then

If Val(TextBox2) <= Val(TextBox1) Then

If (Val(TextBox3) >= 0) And (Val(TextBox3) <= 1) Then

j = 1

While Cells(j, 4) <> ""

j = j + 1

Wend

Cells(j, 1).Value = TextBox1

Cells(j, 2).Value = TextBox2

Cells(j, 3).Value = TextBox3

If OptionButton1.Value Then t = 1

If OptionButton2.Value Then t = 2

If OptionButton3.Value Then t = 3

Cells(j, 4).Value = Str(t)

ПОВ = t * Sqr(TextBox3 * (1 - TextBox3) / TextBox2)

MsgBox "Предельная ошибка выборки:" + Str(ПОВ), vbInformation + vbOKOnly, "Результат"

Cells(j, 5).Value = Str(ПОВ)

TextBox1 = ""

TextBox2 = ""

TextBox3 = ""

OptionButton1.Value = True

UserForm1.Hide

Else

MsgBox "Выборочная доля вышла за допустимый диапазон", vbCritical + vbOKOnly, "Внимание"

End If

Else

MsgBox "Численность выборки не должна превышать численность генеральной совокупности", vbCritical + vbOKOnly, "Внимание"

End If

Else

MsgBox "Ошибка ввода", vbCritical + vbOKOnly, UserForm1.Caption

End If

End Sub

Введенные данные и полученный результат помещаются в Excel-таблицу.

Заключение

Сегодня имеется немало систем программирования, выпускаемых различными фирмами и ориентированных на различные модели ПК и операционные системы. Наиболее популярны следующие визуальные среды быстрого проектирования:

1) Microsoft Visual Basic;

2) Turbo Pascal

3) C++ Builder

4) Symantec Café.

Из универсальных языков программирования сегодня наиболее популярны следующие:

Бейсик (Basic) – для освоения требует начальной подготовки (общеобразовательные школы)

Паскаль (Pascal) – требует специальной подготовки (школы с углубленным изучением предмета и общетехнические вузы)

Си++ (C++), Ява (Java) – требуют профессиональной подготовки (специализированные средние и высшие учебные заведения)