Код IT
← Каталог

Основы языка visual-basic — Минимальная "скелетная" программа и что в ней важно

Фрагмент из «Основы языка visual-basic»: Минимальная "скелетная" программа и что в ней важно.

Visual Basic main.vb
Option Explicit On
Option Strict On
Option Infer On

Imports System

Module Program
    Sub Main()
        Console.Write("Введите число: ")
        Dim raw = Console.ReadLine()
        Dim number As Integer

        If Integer.TryParse(raw, number) Then
            Console.WriteLine($"Квадрат: {number * number}")
        Else
            Console.WriteLine("Нужно ввести целое число.")
        End If
    End Sub
End Module
Option Explicit On
Option Strict On
Option Infer On

Imports System

Module Program
    Sub Main()
        Console.Write("Введите число: ")
        Dim raw = Console.ReadLine()
        Dim number As Integer

        If Integer.TryParse(raw, number) Then
            Console.WriteLine($"Квадрат: {number * number}")
        Else
            Console.WriteLine("Нужно ввести целое число.")
        End If
    End Sub
End Module