我想做一个产品种类的循环输出，如（3行5列），请问要怎么写？

双重循环就可以
如
Dim r,c
With Response
.Write "<table>"&Chr(13)
For r=0 To 3
.Write "<tr>"&Chr(13)
For c=0 To 5
.Write "<td>第"&r&"行"&c&"列</td>"&Chr(13)
Next
.Write "</tr>"&Chr(13)
Next
.Write "</table>"&Chr(13)
End With

虽然我还没有弄出来，但先谢谢了！