Dim& nbsplbnum & amp nbspas & amp nbspinteger
Private & amp nbspsub & amp nbspcommand1_ click ()
& ampnbsp & ampnbsp & ampnbsp & ampnbspIf & ampnbspTrim(Text 1)nbsp<。 & gt & nbsp ""& ampnbspthen &' Trim & nbsp function is used to delete &; nbsp text 1 & amp； Space on both sides.
& ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsplbNum & ampnbsp = & ampnbsplbNum & ampnbsp+& amp； nbsp 1
& ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbspText2。 Text & nbsp = & ampnbsptext2 & amp & ampnbsplbnum & ". & ampnbsp & amp& ampnbsp text 1 & amp； Nbsp & ampnbspvbcrlf & nbsp; record, but I suggest using & nbsplistbox
& ampnbsp & ampnbsp & ampnbsp & ampnbspElse
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp; please enter the content &; Nbsp; nbsp; when there is no input. .....
& ampnbsp & ampnbsp & ampnbsp & ampnbspEnd & ampnbspIf
End & ampnbspSub
Private & amp nbspsub & amp nbspcommand2 _ click ()
& nbsp; & nbsp; & nbsp; Randomize & nbsp; Without this sentence, every time you restart the program &; The nbspRnd & ampnbsp function will still get the original number.
& nbsp & nbsp & nbsp & nbsp; Uninterrupted spaces
& nbsp & nbsp & nbsp & nbsp; The lottery result is&; nbsp " & ampnbsp & amp& ampnbs pint((lbNum & amp； nbsp-& amp； nbsp 1)； nbsp*&。 nbspRnd & ampnbsp+& amp； nbsp 1)； Nbsp & amp& ampnbsp "& ampNbsp; number"
& ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp'Rnd&。 The formula of the nbsp function makes the number in&; nbsp 1 & amp； Nbsp To&; NbsplbNum & ampNbsp;
End & ampnbspSub