Dim XYZ(9,9)
Dim BoNho
Dim Cam(9,9)


Sub ThayThe(id)
Dim i
Dim j

i=mid(id,2,1)
j=mid(id,3,1)
	if Cam(i,j)=false then
		Document.getElementById(id).src=BoNho+".jpg"
		if trim(BoNho)="0" then
			 XYZ(i,j)=""
		else
		XYZ(i,j)=BoNho
		end if
	end if
End Sub

Sub DocVaoBoNho(id)
BoNho=mid(id,2,1)
Document.getElementById("d10").src=BoNho+".jpg"
End Sub


Sub NastaveniObrazku()
dim i
for i=1 to 9
document.getElementById("d"+Cstr(i)).src=Cstr(i)+".jpg"
next
document.getElementById("d0").src="P.jpg"
document.getElementById("d10").src="1.jpg"
'document.getElementById("d100").src="0.jpg"
'document.getElementById("d101").src="0.jpg"
'document.getElementById("d102").src="0.jpg"

for i=1 to 9
	for j=1 to 9
		document.getElementById("c"+Cstr(i)+Cstr(j)).src="0.jpg"
	next
next
End Sub

Sub ChuyenSangAnh()
for i=1 to 9
	for j=1 to 9
		if XYZ(i,j)="" then 
			document.getElementById("c"+Cstr(i)+Cstr(j)).src="0.jpg"
		else
			document.getElementById("c"+Cstr(i)+Cstr(j)).src=XYZ(i,j)+".jpg"
		end if
	next 'j
next 'i
End Sub

Sub Kontrola_Obr()
Dim Value
Dim DaLam
Dim KQ
Dim i
Dim j
Dim k
Dim POM(9)
Dim iii
Dim jjj



DaLam=true
KQ=true

for i=1 to 9
	for j=1 to 9
		if trim(XYZ(i,j))="" then Dalam=false
	next 
next		

if Dalam=true then
	
	For i = 1 To 9
    For j = 1 To 8
        For k = j + 1 To 9
            If Trim(XYZ(i, j)) = Trim(XYZ(i, k)) Then
       		KQ = False
			
            End If
        Next 'k
    Next 'j
Next 'i

For j = 1 To 9
    For i = 1 To 8
        For k = i + 1 To 9
            If Trim(XYZ(i, j)) = Trim(XYZ(k, j)) Then
     
           KQ = False
			
            End If
        Next 'k
    Next 'i
Next 'j
            
For i = 1 To 3
    For j = 1 To 3
    k = 0
        For iii = MocDuoi(i) To MocTren(i)
            For jjj = MocDuoi(j) To MocTren(j)
            k = k + 1
            Pom(k) = Trim(XYZ(iii, jjj))
            Next 'jjj
        Next 'iii
    For iii = 1 To 8
        For jjj = iii + 1 To 9
            If Pom(iii) = Pom(jjj) Then
            KQ = False
		
            End If
        Next 'jjj
    Next 'iii
    Next 'j
Next 'i

	if KQ=true then 
		MsgBox" Congratulation ! "
	else
	MsgBox " Wrong!"
	end if
else
MsgBox " Wrong!"
End if

End Sub