CC19 Scoring 2

Sub Sort(ByRef myArray)
	Dim i, j, strHolder
	For i = (UBound(myArray)-1) to 0 Step -1
		For j = 0 to i
			If UCase(myArray(j)) > UCase(myArray(j+1)) Then
				strHolder = myArray(j+1)
				myArray(j+1) = myArray(j)
				myArray(j) = strHolder
			End If
		Next
	Next
End Sub
You = InputBox(prompt, "What is the size in bytes of your entry?")

Size = Array([All sizes of entries])
Sort Size
For i = LBound(Size) to UBound(Size)
	If Size(i) = CInt(You) then L = 45*(((i+1) * -1+UBound(Size)+1)/UBound(Size))
Next

You = InputBox(prompt, "What is the speed of your entry?")
Speed = Array([all speeds of entries])
Sort Speed
For i = LBound(Speed) to UBound(Speed)
	If Speed(i) = CInt(You) then P = i
Next

WScript.Echo "Your score is: " & L+45*(((P+1) * -1+UBound(Speed)+1)/UBound(Speed))+InputBox(prompt, "What is your score for elegance?") & "%"