Skip to content

Instantly share code, notes, and snippets.

@facebookegypt

facebookegypt/gist:5057248

Created February 28, 2013 14:46
Show Gist options
  • Save facebookegypt/5057248 to your computer and use it in GitHub Desktop.
Save facebookegypt/5057248 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.vb
Private Function RandomDoubles(cb As Integer) As Double
Randomize
Dim rgch As Double
rgch = "123456789101112"
rgch = rgch & Round(rgch) & "1211109876543210"
Dim i As Long
For i = 1 To cb
RandomDoubles = RandomDoubles & Mid$(rgch, Int(Rnd() * Len(rgch) + 1), 1)
Next
End Function
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment