vb 输出自定义函数返回的数组值

Question

code eg:
function aa() as integer
dim i as integer
dim dd (10) as integer
for i=1 to 10
dd(i)= i
next i
aa= dd
end function
private sub dovar( byref a() as integer)
dim j as integer
for j=1 to 10
msgbox a(j)
next j
private sub command1_click()
dim d
d= aa
call dovar(d)
end sub
我是的代码错了 ，但不知道错在了那里？ 你如果知道 写一个 自定义函数 并返回一个数组，并将返回的数组的值 输出。 谢谢、、、、我的QQ是 175246808 再此 先谢过高手了。。呵呵 、

end sub

Answer 1

楼上列位思路都很正确
你看你的aa函数：Function aa() As Integer，返回值是Integer变量，而不是Integer数组呀，
所以你dim d 然后d= aa的话，d也是Integer变量，但是dovar的参数要求是Integer数组，
于是VB就报错了呀。

VB里面函数返回值是数组的我不知道行不行，反正我们都不这么干，直接把参数设成byref不就行了嘛，所以人家帮你改成了Function aa(dd() As Integer) As Boolean，对吧

Answer 2

过程dovar怎么没有
End sub呢？
另外：数组参数只能用ByRef关键字，即＂引用＂传递不是＂值＂传递，所以将第1个函数也改为过程吧！
修改如下：
Private Sub aa(ByRef a() As Integer)
Dim i As Integer
ReDim a(10) As Integer
For i = 1 To 10
a(i) = i
Next i
End Sub

Private Sub dovar(ByRef a() As Integer)
Dim j As Integer
For j = 1 To 10
MsgBox a(j)
Next j
End Sub

Private Sub command1_click()
Dim d() As Integer
Call aa(d())
Call dovar(d())
End Sub

Answer 3

dim i as integer
sub a(a() as integer ) as integer
for i=1 to 10
a(i)= i
next i
end sub
private sub dovar( byref a() as integer)
for i=1 to 10
print a(i), '在FORM1窗体上输出A（I）
next
end sub
private sub command1_click()
dim d() as integer
call a(d())
call dovar(d)
end sub

Answer 4

'基本没有改，类型错误的改了一下
Option Explicit
Function aa()
Dim i As Integer
Dim dd(10) As Integer
For i = 1 To 10
dd(i) = i
Next i
aa = dd
End Function
Private Sub dovar(a)
Dim j As Integer
For j = 1 To 10
MsgBox a(j)
Next j
End Sub
Private Sub command1_click()
Dim d
d = aa
Call dovar(d)
End Sub

Answer 5

Function aa(dd() As Integer) As Boolean
Dim i As Integer
For i = 1 To 10
dd(i) = i
Next i
aa = True
End Function
Private Sub dovar(ByRef a() As Integer)
Dim j As Integer
For j = 1 To 10
MsgBox a(j)
Next j
End Sub
Private Sub command1_click()
Dim kk(10) As Integer
d = aa(kk())
Call dovar(kk)
End Sub