Option Explicit
const lngBMax=10
dim strWord(10)
dim lngWord
dim lngRand(10)
dim lngRandW(20)
dim strColor
dim blnCOpen(10)
dim blnCMatch(10) 
dim lngOpenNo(2)
dim lngCOCount
dim lngTotalCount
dim objTD1,objTD2
dim lngCharenge
dim strWE,strWJ
dim lngWCount
dim strTheme

sub window_onload()
dim nnn 
dim xxx,yyy
dim objZZZ

for each objZZZ in document.all
  if left(objZZZ.id,4)="vs11" then
	xxx=objZZZ.innerHTML
	yyy=left(xxx,instr(xxx,"<!--")-1)
	xxx=replace(xxx,"<!--","")
	xxx=replace(xxx,"-->","")
	xxx=replace(xxx,yyy,"")
	xxx=replace(xxx,"zzz",yyy)
	objZZZ.innerHTML=xxx

  end if

next


div1.innerHTML="トランプの「<b>神経衰弱</b>」と同じ要領で" _
     & "単語の日本語と英語を組み合わせてね。"  _          
     & "<br>カードをクリックすると単語が出てくるよ。何回で全部分かるかな？"

call subxxx
lngWCount=ubound(strWJ)+1
call subRndInitW
for nnn=1 to lngBMax/2
	strWord(nnn*2-1)=strWJ(lngRandW(nnn)-1)
	strWord(nnn*2)=strWE(lngRandW(nnn)-1)
next


lngWord=array(0,1,1,2,2,3,3,4,4,5,5)
'lngRand=array(0,2,1,3,4,5,6,7,10,8,9)
strColor=array("#FFFFFF","#00FFFF","#FFFF00","#00FF00","#FF00FF","#0000FF")     
 
call subRndInit
call subBtnInit
       
divTheme.innerHTML="<font color='#0000FF' size='4'><b>" _ 
				& strTheme _       
				& "</b></font>"       
       
End Sub
 
Sub btn1_OnClick
	call subBtnInit
End Sub                           
Sub btn2_OnClick                          
	call subRndInit                       
	call subBtnInit                           
End Sub                           
Sub btn3_OnClick                          
	call subBtnInit                       
	call subAllOpen                       
	msgbox "okボタンを押すと開始します"                       
	call subBtnInit                           
End Sub                           
Sub td1_OnClick                          
    call subWordSet(1)                                   
End Sub                           
Sub td2_OnClick                       
    call subWordSet(2)                                   
End Sub                           
Sub td3_OnClick                           
    call subWordSet(3)                                  
End Sub                           
Sub td4_OnClick                           
    call subWordSet(4)                               
End Sub                           
Sub td5_OnClick                           
    call subWordSet(5)                               
End Sub                           
Sub td6_OnClick                           
    call subWordSet(6)                               
End Sub                           
Sub td7_OnClick                           
    call subWordSet(7)                               
End Sub                           
Sub td8_OnClick                           
    call subWordSet(8)                               
End Sub                           
Sub td9_OnClick                           
    call subWordSet(9)                               
End Sub                           
Sub td10_OnClick                           
    call subWordSet(10)                               
End Sub                           
                           
Sub subWordSet(lngWordNo)                           
  if blnCMatch(lngWordNo)=false then                           
	if blnCOpen(lngWordNo)=false then                       
		call subSetTD1(lngWordNo)                           
		objTD1.background="../d/open.gif"                        
		objTD1.innerHTML="<b>" & strword(lngRand(lngWordNo)) & "</b>"                           
		blnCOpen(lngWordNo)=true                           
		lngCOCount=lngCOCount+1                           
		lngTotalCount=lngTotalCount+1                           
		lngOpenNo(lngCOCount)=lngWordNo                           
	end if                           
	if lngCOCount>1 then                           
		if lngWord(lngRand(lngOpenNo(1)))=lngWord(lngRand(lngOpenNo(2))) then                           
			msgbox "あたり"                           
			blnCMatch(lngOpenNo(1))=true                           
			blnCMatch(lngOpenNo(2))=true                       
			call subSetTD1(lngOpenNo(1))                       
			objTD1.bgcolor=strColor(lngWord(lngRand(lngOpenNo(1))))                       
			call subSetTD1(lngOpenNo(2))                       
			objTD1.bgcolor=strColor(lngWord(lngRand(lngOpenNo(1))))			                           
		else                           
			msgbox "はずれ"                           
			lngTotalCount=lngTotalCount-2                           
			call subReset2                           
		end if                           
		lngCharenge=lngCharenge+1                       
		lngCOCount=0                           
	                           
		if lngTotalCount>=lngBMax then                           
			msgbox "全部正解です" & vbNewLine & "試行回数は " & lngCharenge & "回でした"                           
		end if                           
	end if		                           
  end if                           
End Sub                           
                           
sub subReset2                           
dim lngB1                           
dim lngB2                           
	lngB1=lngOpenNo(1)                           
	lngB2=lngOpenNo(2)                        
	call subSetTD1(lngB1)                          
	objTD1.background="../d/close.gif"                       
    objTD1.innerHTML=""                          
	call subSetTD1(lngB2)                          
	objTD1.background="../d/close.gif"                       
    objTD1.innerHTML=""                         
	blnCOpen(lngB1)=false                           
	blnCOpen(lngB2)=false                           
end sub                           
                           
sub subRndInit                       
dim nnn                       
dim r                       
	for nnn=1 to lngBMax                       
		Randomize                       
		r = Int(Rnd() * nnn + 1)                        
		lngRand(nnn) = lngRand(r)                       
		lngRand(r) = nnn                           
	next                           
end sub                       
                       
sub subRndInitW                       
dim nnn                       
dim r                       
	for nnn=1 to lngWCount                    
		Randomize                       
		r = Int(Rnd() * nnn + 1)                        
		lngRandW(nnn) = lngRandW(r)                       
		lngRandW(r) = nnn                           
	next                           
end sub                       
                       
Sub subBtnInit                           
dim nnn                       
                       
	lngCOCount=0                           
	lngTotalCount=0                           
	lngCharenge=0                           
	for nnn=1 to lngBMax                       
		call subSetTD1(nnn)                          
		objTD1.innerHTML=""                       
		objTD1.background="../d/close.gif"                       
		objTD1.bgcolor=strColor(0)                           
		blnCOpen(nnn)=false                           
		blnCMatch(nnn)=false                           
	next                           
end sub                           
                       
Sub subAllOpen                       
dim nnn                       
	for nnn=1 to lngBMax                       
		call subSetTD1(nnn)                          
		objTD1.innerHTML="<b>" & strword(lngRand(nnn)) & "</b>"                       
		objTD1.background="../d/open.gif"                       
		objTD1.bgcolor=strColor(lngword(lngRand(nnn)))           
	next                           
End Sub                       
                       
Sub subSetTD1(lngWordNo)                       
	select case lngWordNo                       
		case 1                       
			set objTD1=td1                       
		case 2                       
			set objTD1=td2                       
		case 3                       
			set objTD1=td3                       
		case 4                       
			set objTD1=td4                       
		case 5                       
			set objTD1=td5                       
		case 6                       
			set objTD1=td6                       
		case 7                       
			set objTD1=td7                       
		case 8                       
			set objTD1=td8                       
		case 9                       
			set objTD1=td9                       
		case 10                       
			set objTD1=td10		                       
	end select                       
end sub                           

sub subxxx()
dim mmm,qqq

qqq=fnxxx(document.all("sWOC").innerHTML)
redim strWJ(qqq-1)
redim strWE(qqq-1)
for mmm=1 to qqq
    qqq=document.all("spanJ" & mmm).innerHTML
    strWJ(mmm-1)=mid(qqq,instr(qqq,"<!--")+4,len(qqq)-7)
    qqq=document.all("spanE" & mmm).innerHTML
    strWE(mmm-1)=mid(qqq,instr(qqq,"<!--")+4,len(qqq)-7)
next
qqq=document.all("spanT").innerHTML
strTheme=mid(qqq,instr(qqq,"<!--")+4,len(qqq)-7)

end sub

Function fnxxx(strText)
	fnxxx=mid(strText,instr(strText,"<!--")+4,len(strText)-7)
End Function