正在加载图片...
例3-1文字与背景颜色搭配(程序名: Color html) <Html> <Head><Tite>文字与背景颜色的搭配</ Title <Script Language="VBScript> Sub change( choice) If choice=l Then document. bgcolor= yellow Elself choice=2 Then document. fgo olor blue Elself choice=3 Then document. bgcolor="pink Elself choice=4 Then document. fgcolor="red Elself choice=5 Then Else document. recolor=“ black” End If End Sub < Center><H2>< font color=“blue”>文字与背景颜色的搭配</font></H2> <Table border=3 <Tr> <h>背景颜色<Ih>选择<Th>文字颜色<Th>选择 </Tr> <Td黄色 <Td><Input type=radio onclick="change(1)> <Td>蓝色 <Td><Input type=radio onclick="change(2)> </Tr> <Tr> <Id>粉红色</d> <Input type=radio onclick="change(3)> <Td>红色<Id <Input type=radio onclick="change(4)> </Id>例 3-1 文字与背景颜色搭配(程序名：Color.html)。 <Html> <Head><Title>文字与背景颜色的搭配</Title> <Script Language=“VBScript”> <!-- Sub bchange(choice) If choice=1 Then document．bgcolor=“yellow” ElseIf choice=2 Then document．fgcolor=“blue” ElseIf choice=3 Then document．bgcolor=“pink” ElseIf choice=4 Then document．fgcolor=“red” ElseIf choice=5 Then document．bgcolor=“green” Else document．fgcolor=“black” End If End Sub --> </Script> </Head> <Body> <Center><H2><font color=“blue”>文字与背景颜色的搭配</font></H2> <Table border=3> <Tr> <Th>背景颜色<Th>选择<Th>文字颜色<Th>选择 </Tr> <Tr> <Td>黄色 <Td><Input type=radio onclick=“bchange(1)”> <Td>蓝色 <Td><Input type=radio onclick=“bchange(2)”> </Tr> <Tr> <Td>粉红色</Td> <Td> <Input type=radio onclick=“bchange(3)”> </Td> <Td>红色</Td> <Td> <Input type=radio onclick=“bchange(4)”> </Td>