|
|
‘описать переменные, как десятичные числа одинарной точности’
Dim x, y, z As single
|
'сложение'
Private Sub Command1_Click()
|
‘Ввод данных с экрана’
x = Val(Text1.Text)
y = Val(Text2.Text)
|
‘вычисления’
Z = x + y
|
‘Вывод данных на экран’
Text3.Text = Str(Z)
|
End Sub
|
|
|
|
|
'вычитание'
Private Sub Command2_Click()
|
‘Ввод данных с экрана’
x = Val(Text1.Text)
y = Val(Text2.Text)
|
‘вычисления’
Z = x - y
|
‘Вывод данных на экран’
Text4.Text = Str(Z)
|
End Sub
|
|
|
|
Остальные функции аналогичны
|
