Skip to content

Instantly share code, notes, and snippets.

@housemeow

housemeow/random.vb

Created October 17, 2014 14:45
Show Gist options
  • Save housemeow/21952945328933eacc6e to your computer and use it in GitHub Desktop.
Save housemeow/21952945328933eacc6e to your computer and use it in GitHub Desktop.
Download ZIP
Raw
random.vb
Sub randomTitle()
'初始化亂數種子，這樣每次做Rnd才會不一樣
Randomize()
'產生1~14的數字
Dim value As Integer = CInt(Int((14 * Rnd()) + 1))
'修改標題
me.Caption = value
End Function
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment