求救~VB 高手 !請幫幫忙~謝謝

Question

各位vb高手~請問以下的程式中~如何少掉一半的行數~但執行的結果也是一樣的~~謝謝 昰合併FOR 迴圈ㄇ??
<%
N=request("sex")
if N = "女生" then
response.write "

"
for i=1 to 9
response.write " "
for j=1 to 9
response.write ""
next
response.write " "
next
response.write "

" & i & "x" & j & "=" & i*j & "

"
elseif
if N = "男生" then
response.write ""
for i=1 to 9
response.write " "
for j=1 to 9
response.write ""
next
response.write " "
next
response.write "

" & i & "x" & j & "=" & i*j & "

"
end if
%>

感謝兩位的大力幫忙!!~謝謝

Answer 1

<%
N=request("sex")
if N = "女生" then
sColor="red"
elseif N="男生" then
sColor="blue"
end if
response.write "

Answer 2

<%
N=request("sex")
if N = "女生" then
response.write "