Курсовая работа: Системы программирования

n – численность выборки;

w – выборочная доля;

t – коэффициент доверия, для которого задать значения t =3 при p = 0,997, t = 2 при p = 0,954, t = 1 при p = 0,683.

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

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

1) на Листе 1 в диапазон ячеек А1:Е1 вводим заголовки таблицы исходных данных и полученного результата.

2) Входим в Режим конструктора (панель инструментов Элементы управления). Создаем элемент управления Кнопка: Ввод.

3) Двойным нажатием на кнопку Ввод, входим в редактор VB. Создаем процедуру обработки нажатия на кнопку Ввод:

Private Sub CommandButton1_Click()

UserForm1.Show

End Sub

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

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

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

5) Обрабатываем нажатие кнопки 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