Fundamental real types
Type Range Significant digits Size in bytes
Single 1.5 x 10^-45 .. 3.4 x 10^38 7-8 4
Double 5.0 x 10^-324 .. 1.7 x 10^308 15-16 8
Extended 3.6 x 10^-4951 .. 1.1 x 10^4932 19-20 10
Помогите исправить программу
вот код
Private Sub Command3_Click()
Dim a, b, c, f, e1, w1, t, k, p, x, w2, w3, h, w4 As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
f = Val(Text4.Text)
w1 = Val(Text5.Text)
t = Val(Text6.Text)
k = Val(Text7.Text)
p = Val(Text8.Text)
x = Val(Text9.Text)
no:
If c > 0 Then
c = Val(InputBox("Введите с меньше 0", "Вводим с"))
GoTo no
End If
If c <= 0 Then
GoTo ye
End If
ye:
If p = "" Then
p = Val(InputBox("Введите р отличное от 0", "Вводим p"))
GoTo ye
End If
If p = 0 Then
p = Val(InputBox("Введите р отличное от 0", "Вводим p"))
GoTo ye
End If
If p <> 0 Then
GoTo ee
End If
ee:
e1 = a * w1 ^ (1 + b * f) * Exp(c * t * (w1 ^ 2))
w2 = Sqr((1 + b * f) / 2 * (-c) * t)
w3 = Sqr((2 * b * f + 3 - Sqr(9 + 8 * b * f)) / 4 * (-c) * t)
h = 10 * k * e1 / p
w4 = Sqr(x / 2 * (-c) * t)
Text10.Text = Str(e1)
Text11.Text = Str(w2)
Text12.Text = Str(w3)
Text13.Text = Str(h)
Text14.Text = Str(w4)
End Sub
Код:
Раздели Str(e1) на 2(3,4) значения. И выводи их в 2-х(3,4) разныхTextBox' ах.