China Naming Network - Ziwei knowledge - 9 middle school lottery production tutorial

9 middle school lottery production tutorial

Private? Sub？ Command 1_Click()

Dim? Team (8)? teamA(4)，？ teamB(4)？ As? String? I%,? j%

Team (1)? =? "China"

Team (2)? =? "America"

Team (3)? =? Brazil "

Team (4)? =? Cuba "

Team (5)? =? "Russia"

Team (6)? =? "Holland"

Team (7)? =? "Germany"

Team (8)? =? "Spain"

For what? Me? =? 1? Where to? eight

x？ =? Int((9？ -? Me)? *? Rnd？ +? 1)' Residual random selection

What if? Me? & gt？ 4? then

TeamA (me? -? 4)? =? Team (x)

other

TeamB (1)? =? Team (x)

End? if

For what? j？ =? x？ Where to? eight

What if? j？ & lt？ 8? then what Team (j)? =? Team (j? +? 1)

then

Text 1。 Words? =? teamA( 1)？ & amp？ Space (2)? & amp？ teamA(2)？ & amp？ Space (2)? & amp？ teamA(3)？ & amp？ Space (2)? & amp？ teamA(4)

Text 2. Words? =? teamB( 1)？ & amp？ Space (2)? & amp？ teamB(2)？ & amp？ Space (2)? & amp？ teamB(3)？ & amp？ Space (2)? & amp？ Team B(4)

End? submarine