Образец выполнения задания

Вычислить 1) простой цикл:

2) вложенный цикл:

Значения переменных выбрать самостоятельно.

1. Входными данными являются переменные a, n.

2. Выходными данными – значение Y.

3. На форме спроэктированы следующие элементы управления:

Label (Введите a, Введите n, Y=, Исходный данные, Результат),

TextBox (для ввода и вывода чисел),

CommandButton (Найти Y, Выход),

OptionButton (Простой цикл, Вложенный цикл)

При проектировании данной формы использованы свойства элементов управления:

Alignment - для выравнивания текста,

Caption (для элементов управления Label, CommandButton, OptionButton),

Text (для элемента TextBox),

Font – для изменения размера и начертания шрифта,

ForeColor - для изменения цвета шрифта.

4. Программный код:

Dim a As Single, Y As Single, n As Integer, k As Integer

Dim i As Integer, f As Long

Private Sub Form_Load()

Option1.Value = True

End Sub

Private Sub Option1_Click()

Text3.Text = ""

Label7.Visible = False

End Sub

Private Sub Option2_Click()

Text3.Text = ""

Label7.Visible = False

End Sub

Private Sub Command1_Click()

Label7.Visible = False

If IsNumeric(Text2) = True And IsNumeric(Text1) = True Then

n = Text2.Text

a = Text1.Text

If n < 0 Or n <> Int(n) Then

Label7.Visible = True

Text2.Text = ""

Text3.Text = ""

Text2.SetFocus

'Exit Sub

Else

If Option1.Value = True Then

Y = 0

For k = 0 To n

Y = Y + (k ^ 2 - k + 1) / (k + 4)

Next

Y = a - Y

Text3.Text = Y

End If

If Option2.Value = True Then

Y = 1

For k = 1 To n

f = 1

For i = 1 To k

f = f * i

Next

Y = Y * (f + a ^ 2)

Next

Text3.Text = Y

End If

End If

Else

MsgBox " Вы ввели не число!""

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text2.SetFocus

Exit Sub

End If

End Sub

Private Sub Command2_Click()

End

End Sub

5. Результат выполнения программы:

Вслучае некорректности введенных данных появляется диалоговое окно «Вы ввели не число!» или появляется надпись «Некорректные данные», если n введено отрицательным числом или не целым.

В случае правильности введенных данных получаем результаты в зависимости от установки переключателя (Простой или Вложенный циклы)