VBA Площадь Треугольника

Question

Я новичок в VBA и не могу заставить этот код работать.Есть идеи?Это для назначения, поэтому должен быть отформатирован так, что я все время получаю сообщение об ошибке "Область отображения.

Private Sub cmbOK_Click()
'Declare variables
Dim TriBase As Single
Dim TriHeight As Single
Dim TriArea As Single
'Set the variables to the values in the textboxes
TriBase = Val(txtBase.Text)
TriHeight = Val(txtHeight.Text)
'Calculate area
TriArea = (TriBase * TriHeight) * 0.5
'Display area
lblArea.Text = Str(TriArea)

Answer 1

Видимая часть Label - это Caption.
Вы также можете сократить отображаемые десятичные дроби на Format.
Если точность ваших расчетов должна быть выше, измените значение сSingle до Double.

Private Sub cmbOK_Click()
    'Declare variables
    Dim TriBase As Single
    Dim TriHeight As Single
    Dim TriArea As Single
    'Set the variables to the values in the textboxes
    TriBase = Val(txtBase.Text)
    TriHeight = Val(txtHeight.Text)
    'Calculate area
    TriArea = TriBase * TriHeight * 0.5
    'Display area
    lblArea.Caption = Format(TriArea, "0.00")
End Sub