Question

编写程序，生成有100个元素的一维数组，求其中所有偶数的平均值。asp程序代码

请高手帮忙编写一个程序代码 我总是调试不成功啊
如果有空再帮忙写两个
编写程序，生成10行10列二维数组，并按行列方式输出，求其最大值。
编写能求n!的函数fact()，输入n，调用函数fact()求 。
定义数组a(10)，以数组为参数，编写并调用以下函数：
（1）将数组排序。（2）求数组的平均值。（3）求数组的最大值及其下标。
asp程序 谢谢了 急啊！！！！

Answer 1

<%
'1.编写程序，生成有100个元素的一维数组，求其中所有偶数的平均值
dim arr(99)
dim sum, n, i
sum = 0
n = 0
response.Write("100个1000以内的随机正整数：")
randomize
for i = 0 to 99
if(i mod 10 = 0) then response.Write("<br />")
arr(i) = int(rnd() * 1000 + 1)'生成1000以内的随机整数
response.Write(arr(i) & ",")

if arr(i) mod 2 = 0 then
sum = sum + arr(i)
n = n + 1
end if
next
response.Write("<br />所有偶数的平均值是" & sum / n)
%>

<%
'2.编写程序，生成10行10列二维数组，并按行列方式输出，求其最大值。
dim arr_2(9, 9)
dim max
max = 0
randomize
for i = 0 to 9
for j = 0 to 9
arr_2(i, j) = int(rnd() * 1000 + 1)'生成1000以内的随机整数
response.Write(arr_2(i, j) & ",")

if arr_2(i, j) > max then
max = arr_2(i, j)
end if
next
response.Write("<br />")
next
response.Write("<br />最大的数是" & max)
%>

<%
'3.编写能求n!的函数fact()，输入n，调用函数fact()
function fact(n)
if not isnumeric(n) then '不是数字
fact = -1
exit function
end if
if int(n) <> n then '不是整数
fact = -1
exit function
end if
if n < 0 then '不是正整数
fact = -1
exit function
end if
if n = 0 or n = 1 then
fact = 1
exit function
end if

dim factorial
factorial = 1
for i = 2 to n
factorial = factorial * i
next
fact = factorial

'也可以用递归
'fact = n * fact(n-1)

end function
response.Write(fact(10))
%>