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

Вычислить значение Y:

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

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

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

Label (Введите р, Введите k,Введите і, Ответ Y=),

TextBox (для ввода и вывода данных),

CommandButton (Вычислить, Выход).

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

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

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

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

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

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

Dim p As Single, k As Single, i As Single, Y As Single

Private Sub Command1_Click()

p = Text1.Text

k = Text2.Text

i = Text3.Text

Y = (Log(p*k)/Log(10)-k^(2/3))/(Log(i+k)*Sin(p)^2)*Exp(k)

Text4.Text = Y

End Sub

Private Sub Command2_Click()

End

End Sub

2-й вариант решения задачи – с проверкой входных данных функцией IsNumeric()

Dim p As Single, k As Single, i As Single, Y As Single

Private Sub Command1_Click()

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

p = Text1.Text

k = Text2.Text

i = Text3.Text

Else

MsgBox " Ошибка! Повторите ввод"

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text1.SetFocus

Exit Sub

End If

Y = (Log(p*k)/Log(10)-k^(2/3))/(Log(i+k)*Sin(p)^2)*Exp(k)

Text4.Text = Y

End Sub

Private Sub Command2_Click()

End

End Sub

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