您所在位置：主题：请大家帮我看看我编写的这个VB程序错误应该如何改?
d3y3q3
[专家分：0] 发布于 2008-01-12 21:56:00
题目是:编写一个函数getRndMax,用随机函数产生10个10～100之间整数,返回最大值.
下面是我自己编写的代码,但是有错误,说函数未定义,请问这个错误如何修改?
public function getRndMax(a() as integer)
dim x1 as integer,x2 as integer,i as integer
x1=lbound(a)
x2=ubound(a)
max=a(x1)
for i=x1 to x2
if a(i)>max then max=a(i)
next i
GetRndMax=max
end function
private sub form_click()
dim a(10)
for i=1 to 10
a(i)=int(rnd*100)
next i
m=getRndMax(a())
print;print tab(5);a(i)
print :print tab(5);"max=";m
end sub
下面是我自己编写的代码,但是有错误,说函数未定义,请问这个错误如何修改?
public function getRndMax(a() as integer)
dim x1 as integer,x2 as integer,i as integer
x1=lbound(a)
x2=ubound(a)
max=a(x1)
for i=x1 to x2
if a(i)>max then max=a(i)
next i
GetRndMax=max
end function
private sub form_click()
dim a(10)
for i=1 to 10
a(i)=int(rnd*100)
next i
m=getRndMax(a())
print;print tab(5);a(i)
print :print tab(5);"max=";m
end sub
