麻烦帮我设计两个关于随机问题的简单asp程序

来源：百度知道 编辑：UC知道 时间：2024/05/01 02:54:56
麻烦帮我设计两个关于随机问题的简单asp程序：

A.用asp程序随机生成50个数值在1000——10000000之间的随机数字。生成的数字用5行10列的表格显示。

B.用asp程序随机生成50组随机字母，其中每一组都含有5个字母（这些字母可以重复）。生成后用5行10列的表格显示。

我不会ASP言语，请求给我完整的程序。

<%
randomize
Function GetRndNum(min,max)
GetRndNum=int((max-min+1)*rnd+min)
End Function

dim i
response.Write("<table border=1>")
response.Write("<tr>")
for i=1 to 50
response.Write("<td>")
response.Write(GetRndNum(100,10000000))
response.Write("</td>")
if i mod 10=0 then
if i=50 then
response.Write("</tr>")
else
response.Write("</tr>")
response.Write("<tr>")
end if
end if
next
response.Write("</table>")

Function GetChar()
Select case GetRndNum(1,2)
case 1:GetChar=Chr(GetRndNum(65,90))
case 2:Getchar=Chr(GetRndNum(97,122))
End Select
End Function

response.Write("<table border=1>")
response.Write("<tr>")
for i=1 to 50
res