Можно ли вписать один из этих прямоугольников в другой - VB

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

Пользователь вводит с клавиатуры стороны двух прямоугольников(всего 4 значения). Разработать программу, определяющую можно ли вписать один из этих прямоугольников в другой(их можно переворачивать). И еще вопрос: надо сделать проверку на правильность введенных значений, то есть если вводится символ или буква, должно выводиться сообщение "неверный ввод", однако, вместо этого программа просто вылетает. пробовала через isNumeric - не получилось. как решить эту проблему?

Код к задаче: «Можно ли вписать один из этих прямоугольников в другой - VB»

textual
       Dim m(3) As Single, k As Integer = 0, s As String = ""
        For i As Integer = 0 To 1
            For j As Integer = 0 To 1
m1:             Console.WriteLine("Введите " & j + 1 & "-ю сторону " & i + 1 & "-й коробки")
                s = Console.ReadLine
                s = Replace(s, ".", ",")
                If Not IsNumeric(s) Then Console.WriteLine("Неверный ввод") : GoTo m1 Else m(k) = CSng(s)
                k += 1
            Next
        Next
 
        'теперь  в массиве m()  четыре значения 
        Console.WriteLine("Введенные размеры " & m(0) & " " & m(1) & " " & m(2) & " " & m(3))
 
        ' Далее определяйте что Вам надо
 
        Console.ReadLine()

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


СОХРАНИТЬ ССЫЛКУ