Visual Basic (остальное должно предшествовать согласование, если или ElseIf)

Question

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    If Not IsNumeric(TextBox1.Text) Or TextBox1.Text = "" Or ComboBox1.Text = "" Then MsgBox("Please enter numbers only and dont leave blanks") 
    else 
    Dim newdog, newcat As Integer 

    newcat = 25 + 4 * TextBox1.Text 
    newdog = 21 + 4 * TextBox1.Text 

еще подчеркнут синим цветом, и продолжает говорить «еще должно предшествовать согласование, если или ElseIf» кстати им пытаются сделать возраст преобразователь

Answer 1

Ваша первая строка представляет собой однострочный оператор if, так как вы положили исполняемый код прямо после «Тогда», поэтому к тому времени, когда вы перейдете к следующей строке, вы оставите оператор if.

Ваша проблема будет решена путем перемещения MsgBox к следующей строке (и в том числе в конце концов, если, как указано ранее):

If Not IsNumeric(TextBox1.Text) Or TextBox1.Text = "" Or ComboBox1.Text = "" Then 
    MsgBox("Please enter numbers only and dont leave blanks") 
else 
    Dim newdog, newcat As Integer 

    newcat = 25 + 4 * TextBox1.Text 
    newdog = 21 + 4 * TextBox1.Text 
end if 

или помещая двоеточие между Тогда и командой MsgBox - это сокращенно для новой строки:

If Not IsNumeric(TextBox1.Text) Or TextBox1.Text = "" Or ComboBox1.Text = "" Then : MsgBox("Please enter numbers only and dont leave blanks") 
else 
    Dim newdog, newcat As Integer 

    newcat = 25 + 4 * TextBox1.Text 
    newdog = 21 + 4 * TextBox1.Text 
end if