راه حل رو پیدا کردم: (Console Application)
Screenshot 2024-11-15 204309.png
Console.Write("{0} Type Double Number: ", vbTab)
Dim Number As Double = Val(Console.ReadLine)
Console.WriteLine()
Dim Remain As Double = Number Mod 1
Console.WriteLine("{0} Decimal of your Number is: {1}", vbTab,
Math.Round(Remain / 0.1))