Jak usunąć dziesiętne w języku Visual Basic

Okrągłe miejsca dziesiętne do najbliższej liczby w VB.

Krok 1

Uruchom program Microsoft Visual Basic Express i kliknij "Nowy projekt" w zakładce "Strona główna". Kliknij "Visual Basic" w "Zainstalowane szablony" i dwukrotnie kliknij "Application Console", aby utworzyć nowy projekt konsoli.

Krok 2

Skopiuj i wklej kod w polu "W obszarze głównym ()", aby usunąć dziesiętne wartości zmiennej zmiennoprzecinkowej:

Dim NoDecNum jako Double Dim DecimalNum As Long

decimalNum = 2233254.556 noDecNum = Int (decimalNum)

MsgBox (noDecNum)

Krok 3

Naciśnij "F5", aby uruchomić program, a następnie wyślemy okno z numerem bez wartości dziesiętnych.