There are 53 students in our class, and they want to write a random lottery program with VB. Randomly choose people to talk about topics in class.

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