Anonymous     VB.net     16 Sep 2012    
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
Option Strict On
Option Explicit On
Imports System.Math
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim x, y, h As Double
Dim k, l As Integer
x = CDbl(TextBox1.Text)
y = CDbl(TextBox2.Text)
h = (208 * Log10(x) + x ^ 2) / (Abs(x - y ^ 2) - Exp(-y))
k = CInt(h)
l = CInt(Fix(h))
TextBox3.Text = CStr(h)
TextBox4.Text = CStr(k)
TextBox5.Text = CStr(l)
TextBox6.Text = CStr(Int(h))
TextBox7.Text = CStr(Int(Abs(h)))
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, e As System.EventArgs) Handles Button2.Click
End
End Sub
End Class