Деление на ноль идет ошибка - VB

Формулировка задачи:

Private Sub Delenie_Click()
Dim a, b, r As Single
    a = Val (Text1.Text)
    b = Val (Text2.Text)
    r = a / b
Text3.Text = r 
End Sub

Ошибка выдает Run-time error '11' Division by zero

Решение задачи: «Деление на ноль идет ошибка»

textual
                            Листинг программы 
                        

                            Function uVal(S as string) As double
   uVal=Val(Replace$(S,",","."))
End Function
                        

Оцени полезность:

11 голосов , оценка 3.636 из 5

Похожие ответы