China Naming Network - Almanac query - Do not repeat the source code lottery

Do not repeat the source code lottery

This is the code.

command button

textbox

Private child click_Click ()

R=int ((upper limit-lower limit+1)*rnd+ lower limit)

Mark r as an integer

r = Int((53- 1+ 1)* Rnd+ 1)

Text 1。 Text = r

End joint