Contact: aviboots(AT)netvision.net.il
39,926 questions
51,859 answers
573 users
Imports System Public Module Module1 Public Sub Main() Dim number As Integer = 90862 Dim total_digits As Integer = Math.Floor(Math.Log10(number) + 1) Console.WriteLine(total_digits) End Sub End Module ' run: ' ' 5 '
Imports System Public Module Module1 Public Sub Main() Dim number As Integer = 90862 Dim total_digits As Integer = number.ToString().Length Console.WriteLine(total_digits) End Sub End Module ' run: ' ' 5 '