.
Its for proj # 5 btw.Sub Main()
Dim num As String = 1
Dim length As Integer = 1
Start:
length = num.ToString.Length
If Val(num / 11).ToString.Length <= length Then
If Val(num / 12).ToString.Length <= length Then
If Val(num / 13).ToString.Length <= length Then
If Val(num / 14).ToString.Length <= length Then
If Val(num / 15).ToString.Length <= length Then
If Val(num / 16).ToString.Length <= length Then
If Val(num / 17).ToString.Length <= length Then
If Val(num / 18).ToString.Length <= length Then
If Val(num / 19).ToString.Length <= length Then
If Val(num / 20).ToString.Length <= length Then
System.Console.WriteLine("Success: " & num)
Console.ReadLine()
Else
System.Console.WriteLine("Fail: " & num)
num = num + 1
End If
Else
System.Console.WriteLine("Fail: " & num)
num = num + 1
End If
Else
System.Console.WriteLine("Fail: " & num)
num = num + 1
End If
Else
System.Console.WriteLine("Fail: " & num)
num = num + 1
End If
Else
System.Console.WriteLine("Fail: " & num)
num = num + 1
End If
Else
System.Console.WriteLine("Fail: " & num)
num = num + 1
End If
Else
System.Console.WriteLine("Fail: " & num)
num = num + 1
End If
Else
System.Console.WriteLine("Fail: " & num)
num = num + 1
End If
Else
System.Console.WriteLine("Fail: " & num)
num = num + 1
End If
Else
System.Console.WriteLine("Fail: " & num)
num = num + 1
End If
GoTo Start
End Sub
For i As Integer = 11 To 20
If Not (num / i).ToString.Length <= length Then
Console.WriteLine("Fail: " & num.ToString)
num += 1
Exit For
Elseif i = 20 Then
Console.WriteLine("Success: " & num.ToString)
Console.ReadLine
End If
Next i