. 4.2-3. ex, Math, . , . 4.2-3, . , Fix() Int(), (- ), , . , + - (). , .
Imports System.Math ' . Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles Button2.Click Dim As Double, y As Double Dim z As Double, p As Single, k As Integer Dim m, n As Double Dim s1, s2 As String = TextBox1.Text ' String Double y = TextBox2.Text z = (0.002 - Exp( ^ y)) / ((100 - y) * ( + 2)) p = z ' Double Single k = z ' Double Integer m = Fix(z) n = Int(z) s1 = z: s2 = p ' String TextBox3.Text = z TextBox4.Text = k TextBox5.Text = m TextBox6.Text = n TextBox7.Text = p TextBox8.Text = z + p ' TextBox9.Text = s1 + s2 ' End Sub Private Sub Button2_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles Button1.Click End End Sub End Class |
. 4.2-3
, F5 , . 4.2-11.
. (x y) , (z=). F9, . , , , ( 4.2-4). F10, z, . , F10, . , ( ) , . .
. 4.2-4