11/06/24 04:15:29.38 7XBUiOCl
>>501
' ロンドン五輪アジア最終予選の抽選シミュレーション Ver1.0
' 以下をメモ帳にコピペして「抽選.vbs」と名前を付けて保存
'（拡張子がvbsならファイル名は任意）
' そのファイルのアイコンをダブルクリック
' Ctrl+Cで結果の文字列がコピーできる
pot1="韓国,オーストラリア,日本"
pot2="イラク,カタール,バーレーン"
pot3="サウジアラビア,シリア,ウズベキスタン"
pot4="UAE,オマーン,マレーシア"
Dim a1,a2,a3,a4
randomize
a1=split(pot1,","):a2=split(pot2,","):a3=split(pot3,","):a4=split(pot4,",")
SwapAry a1: SwapAry a2: SwapAry a3: SwapAry a4
MsgBox _
"Ａ："&a1(0)&"、"&a2(0)&"、"&a3(0)&"、"&a4(0)&chr(13)&_
"Ｂ："&a1(1)&"、"&a2(1)&"、"&a3(1)&"、"&a4(1)&chr(13)&_
"Ｃ："&a1(2)&"、"&a2(2)&"、"&a3(2)&"、"&a4(2)&chr(13),,_
"ロンドン五輪アジア最終予選"
Sub SwapAry(byref a)
n=ubound(a)+1
For i=0 to n*3:x=int(rnd*n):y=int(rnd*n):t=a(x):a(x)=a(y):a(y)=t:Next
End Sub