Como testar se um número é um quadrado perfeito em VB.NET - Solução usando Sqrt() e Floor() - 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 pedir para o usuário informar um valor inteiro
    Console.Write("Informe um valor inteiro: ")
    Dim valor As Integer = Int32.Parse(Console.ReadLine())

    ' vamos testar se o número informado é um quadrado perfeito
    If TestarQuadradoPerfeito(valor) Then
      Console.WriteLine("O número " & valor & " é um quadrado perfeito")
    Else
      Console.WriteLine("O número " & valor & " não é um quadrado perfeito")
    End If

    Console.WriteLine(vbCrLf & vbCrLf & "Pressione qualquer tecla para sair...")