Option Strict On
Imports System.Math 'подключение математического модуля
Public Class Form1
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Dim x, y, f, j, n As Double, p As Single, i As Integer
x = CDbl(TextBox1.Text) 'преобразование типа String в Double
y = CDbl(TextBox2.Text)
f = ((5.2 ^ 3) * log(x + y)) / (x - (1 / (0.45 * sin(x - 8 * y)))) + 0.5
p = CSng(f) 'преобразование типа Double в тип Single
i = CInt(f) 'преобразование типа Double в тип Integer
j = Fix(f) : n = Int(f)
TextBox3.Text = Str(f)
TextBox4.Text = Str(i)
TextBox5.Text = Str(j)
TextBox6.Text = Str(n)
TextBox7.Text = Str(p)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Application.Exit()
End Sub
Private Sub Button2_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
TextBox7.Clear()
End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
End Class