Skip to content

Instantly share code, notes, and snippets.

@mahmoud

mahmoud/vbscript_list_min.vbs

Created July 18, 2011 06:44
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save mahmoud/1088703 to your computer and use it in GitHub Desktop.
Save mahmoud/1088703 to your computer and use it in GitHub Desktop.
Download ZIP
VBScript List creation and Min findin'
Raw
vbscript_list_min.vbs
(for fixed sized inputs, so not terribly useful. It's VBScript, so also not terribly useful. Also, haven't run this.)
Dim myArray(4)
myArray(0) = A
myArray(1) = B
myArray(2) = C
myArray(3) = D
myArray(4) = E
Function MinN( vals )
CurMin = vals(0)
Dim i
For i = 1 To UBound(vals)
If vals(i) < CurMin Then CurMin = vals(i)
Next
End Function
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment