Como calcular a área de um losango em VB.NET - Desafio de Programação Resolvido em VB.NET

Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' vamos ler os valores das diagonais maior e menor
    Console.Write("Informe a medida da diagonal maior: ")
    Dim diagonal_maior As Integer = Int32.Parse(Console.ReadLine())
    Console.Write("Informe a medida da diagonal menor: ")
    Dim diagonal_menor As Integer = Int32.Parse(Console.ReadLine())

    ' calcula a area do losango
    Dim area As Double = (diagonal_maior * diagonal_menor) / 2
    ' mostra o resultado