Необработанное исключение типа "System.InvalidCastException" в Microsoft.VisualBasic.dll Дополнительные сведе

@Xodarr · Регистрация: 06.10.2015

Author24 — интернет-сервис помощи студентам

VB.NET

Dim a, b, eps As Double
        Dim z, z1 As String
        z = ""
        z1 = ""
        a = CDbl(TextBox1.Text)
        b = CDbl(TextBox2.Text)
        eps = CDbl(TextBox3.Text)
        resh1(a, b, eps, z, x1)
        resh2(a, b, eps, z1, x2)
        TextBox6.Text = CStr(z)
        TextBox4.Text = CStr(z1)
        TextBox5.Text = CStr(x1)
        TextBox7.Text = CStr(x2)

Выдает ошибку: Необработанное исключение типа "System.InvalidCastException" в Microsoft.VisualBasic.dll Дополнительные сведения: Приведение строки "" к типу "Double" является недопустимым.
Кто может помочь??
Ссылается на строку a=Cdbl(TextBox1.Text)

SoftIce · 04.06.2017, 17:29

Сообщение от Xodarr

Ссылается на строку a=Cdbl(TextBox1.Text)

Ну так значит текстбокс пустой.

Добавлено через 2 минуты
Напишите

VB.NET

1	a=val(replace(TextBox1.Text,",","."))

И будем Вам Щастье

	04.06.2017, 17:29