VB中的一个程序,谁帮我分析一下(小弟初学)

来源:百度知道 编辑:UC知道 时间:2024/05/26 05:27:43
private sub Form_load()
dim i as integer
dim returnarray() as integer
i=1
returnarray()=arrayfunction(i)
end sub
public function arrayfunction(i as integer) as integer()
dim x(2) as integer
x(0)=i
x(1)=i+1
exit function x
end function

以上是一本教材上写的例子,但是没有说明,该章节讲的是function函数的返回数组函数的方法,请帮帮我详细讲解一下这段程序的作用,不胜感激。

private sub Form_load()
dim i as integer '定义变量
dim returnarray() as integer '申明函数
i=1
returnarray()=arrayfunction(i) '调用函数
end sub
public function arrayfunction(i as integer) as integer() '定义函数
dim x(2) as integer '定义int型数组长度为2
x(0)=i '赋值给第一个
x(1)=i+1 '赋值给第二个
return function x '返回经赋值的数组
end function

exit function x
有语病啊..