The weak ones are there to justify the strong
Привет)
пожалуйста, кто-нибудь кто знаком с VBsсriрt спасите помогите, если вам не трудно
буквально час назад начала учить VBsсriрt, так вот надо сделать шахматную доску, 8x8, ну в смысле чёрно-белые клеточки
а эта зараза рисует только одну клетку, зелёную, причём!
<table>
<% For colIndex=1 To 8 %>
<tr>
<% For rowIndex=1 To 8 %>
<%
If colIndex Mod 2 = 0 Then
Select Case rowIndex
Case 1, 3, 5, 7
strColor="white"
Case 2, 4, 6, 8
strColor="black"
End Select
Else
Select Case rowIndex
Case 1, 3, 5, 7
strColor="black"
Case 2, 4, 6, 8
strColor="white"
End Select
End If
%>
<td bgcolor= '<% =strColor %>' > cell </td>
<% Next %>
</tr>
<% Next %>
</table>
пожалуйста, кто-нибудь кто знаком с VBsсriрt спасите помогите, если вам не трудно
буквально час назад начала учить VBsсriрt, так вот надо сделать шахматную доску, 8x8, ну в смысле чёрно-белые клеточки
а эта зараза рисует только одну клетку, зелёную, причём!
<table>
<% For colIndex=1 To 8 %>
<tr>
<% For rowIndex=1 To 8 %>
<%
If colIndex Mod 2 = 0 Then
Select Case rowIndex
Case 1, 3, 5, 7
strColor="white"
Case 2, 4, 6, 8
strColor="black"
End Select
Else
Select Case rowIndex
Case 1, 3, 5, 7
strColor="black"
Case 2, 4, 6, 8
strColor="white"
End Select
End If
%>
<td bgcolor= '<% =strColor %>' > cell </td>
<% Next %>
</tr>
<% Next %>
</table>
-
-
01.04.2007 в 22:21-
-
01.04.2007 в 23:12-
-
01.04.2007 в 23:31меня особо вот что смущает: этот код должен проверять чётное число или нет, так?
If colIndex Mod 2 = 0 Then
ато по этой дурацкой книге надо кажется самой соображать как оно правильно пишется
-
-
02.04.2007 в 00:11-
-
02.04.2007 в 00:45читать дальше
но там же есть ещё несколько страничек, они правильно работют, только эта глючит...
-
-
02.04.2007 в 15:24кстати, метод определения цвета ячейки можно было записать просто как (colIndex + rowIndex) mod 2 = 1 и убрать большую часть кода )))
-
-
02.04.2007 в 18:19