как записать в visual basic?

Question

есть код для вычисления площадей фигур 
Private Sub vichislit_Click() 
Dim h, w, r As Single 
h = visota.Text 
w = osnovanie.Text 
If vibor(0).Value Then 
r = h * w / 2 
ElseIf vibor(1).Value Then 
r = h * w 
Else 
r = 3.14 * h * h 
End If 
result.Caption = r 
End Sub 
 
как и куда записать код, чтобы при нажатии "вычислить" не вводя ничего, в поле "результат" выводилось "введи данные" 
на сколько я понимаю, 
If visota.Text = Empty Then 
result.Caption = "введи данные" 
 
но куда ни ставлю - ошибка, либо в результате 0

Серега · Accepted Answer

Private Sub vichislit_Click() 
Dim h, w, r As Single 
If visota.Text = Empty Then 
result.Captiоn = "введи данные" 
go to 10 
end if 
h = visota.Text 
w = osnovanie.Text 
If vibor(0).Value Then 
r = h * w / 2 
ElseIf vibor(1).Value Then 
r = h * w 
Else 
r = 3.14 * h * h 
End If 
result.Captiоn = r 
10 
End Sub

Марат · Answer

Доброй ночи! 
 
>как записать код 
Пальчиками по клавиатуре :-)))) Если знаете иные варианты, напишите мне в почту, интересно. 
 
>куда записать код 
В обработчик события Click для кнопки vichislit. То есть где-то здесь: 
Private Sub vichislit_Click() 
... 
End Sub 
 
Можно сделать так: 
Private Sub vichislit_Click() 
Dim h, w, r As Single 
If visota.Text = Empty Or osnovanie.Text = Empty Then 
result.Caption = "Введи данные! " 
Else 
' И сюда добавьте всё, что есть в коде сейчас. 
End Sub 
 
Вообще, конечно, неявное преобразование типов (String в Single) лучше не использовать.. . Ладно :-) делайте, как знаете :-) 
 
Тогда выйдет так: 
Private Sub vichislit_Click() 
Dim h, w, r As Single 
If visota.Text = Empty Or osnovanie.Text = Empty Then 
result.Caption = "Введи данные! " 
Else 
h = visota.Text 
w = osnovanie.Text 
If vibor(0).Value Then 
r = h * w / 2 
ElseIf vibor(1).Value Then 
r = h * w 
Else 
r = 3.14 * h * h 
End If 
result.Captiоn = r 
End If 
End Sub 
 
Удачи Вам! 
 
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
 
Уважаемый Александр Робулов, зачем goto, когда в VB есть прекрасный Exit Sub? :-) И не менее прекрасная конструкция if-else :-)