Работа с цветом
<HTML>
<Head>
<TITLE>Цвет</TITLE>
<Script LANGUAGE="VBS">
Dim A(14)
A(0) = "WHITE"
A(1) = "BLACK"
A(2) = "BLUE"
A(3) = "RED"
A(4) = "YELLOW"
A(5) = "AQUA"
A(6) = "RED"
A(7) = "GRAY"
A(8) = "LIME"
A(9) ="MAROON"
A(l0)= "NAVY"
A(11)= "OLIVE"
A(12)= "PURPLE"
A(13) = "SILVER"
A(14)= "TEAL"
I = 0
J = 1
Document.BgColor = A(I)
Document.FgColor = A(J)
Sub Foreb_Onclick
If I = 14 THEN
I=0
end If
I = I + 1
Document.FgColor = A(I)
End Sub
Sub GROUNDB_Onclick
If J=14 THEN
J=0
end If
J = J + 1
Document.BgColor = A(J)
End Sub
</Script>
</Head>
<BODY>
<CENTER>
<H2> РАБОТА С ЦВЕТОМ </H2>
<Form>
<INPUT TYPE="BUTTON" NAME="Foreb" VALUE="Изменить цвет текста">
<P>
<INPUT TYPE="BUTTON" NAME="GROUNDB" VALUE="Изменить цвет фона">
</Form>
</CENTER>
</Body>
</HTML>
