Элементарные вычисления.
Площадь круга, длина окружности.
Вычислить длину окружности (L) и площадь круга (S)
При введенном радиусе (R)
|
Private Sub Command1_Click()
|
‘начать процедуру кликом по командной кнопке 1’
|
|
Dim r, s, L As Single
|
‘описать переменные, как десятичные числа одинарной точности’
|
|
r = Val(Text1.Text)
|
‘Ввод значения переменной R с экрана’
|
|
L=2*3.14*r
|
‘вычислить по формуле’
|
|
s = 3.14 * r ^ 2
|
‘вычислить по формуле’
|
|
Text2.Text = Str(s)
|
‘Вывод данных не экрана’
|
|
Text3.Text = Str(L)
|
‘Вывод данных не экрана’
|
|
End Sub
|
‘конец процедуры’
|
Вычислить значение функции (Y) по заданному аргументу (Х).
Вычислить Y=X2 + 2X - 5 для -5 < Х < 5
При введенном Х
|
Private Sub Command1_Click()
|
‘начать процедуру кликом по командной кнопке 1’
|
|
Dim x, y As Single
|
‘описать переменные, как десятичные числа одинарной точности’
|
x = InputBox("Введите число от -5 до 5", "Ввод значения аргумента (Х)")
|
|
|
‘Ввод значения переменной X с экрана’
|
Text1.Text = Str(x)
|
‘Вывод значения переменной X на экрана’
|
|
y=x^2+2*x-5
|
‘вычислить по формуле’
|
|
Text2.Text = Str(y)
|
‘Вывод данных не экрана’
|
|
End Sub
|
‘конец процедуры’
|
|
|
