首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

调用可返回数组的自定义函数回赋值显示类型不匹配!

2013-11-08 
调用可返回数组的自定义函数来赋值显示类型不匹配!!!!!!!!!!!!!!!!!!!!!!!!想调用可返回数组的自定义函数a

调用可返回数组的自定义函数来赋值显示类型不匹配!!!!!!!!!!!!!!!!!!!!!!!!
想调用可返回数组的自定义函数a来给B1(3)赋值,但是运行老是提示函数a的“类型不匹配”,不知道该怎么解决??


Public Function a(ByVal a As Single, ByVal b As Single, ByVal c As String, ByVal d As Single) As Single()  



Dim ahc() As Single                       '定义经济技术指标判断集缓存集
ReDim ahc(3) As Single                    '再定义经济技术指标判断集缓存集
.......

a = ahc()                                           '返回数组
End Function


Private Sub Command1_Click()
dim B1(3) as string
.........
B1(3) = a(c(i, 0), c(i, 1), std, bgsd)    '函数调用,其中C(i,0)C(i,1)为刚刚赋值的数组
end sub
自定义函数
[解决办法]
真佩服lz:函数名能和其参数名一样吗?
另外:B1(3) = a(c(i, 0), c(i, 1), std, bgsd)中B1(3)是一个数组中的元素,而a返回的是数组,它们之间怎能划=号?

B1 = a(c(i, 0), c(i, 1), std, bgsd)
[解决办法]
Private Sub Command1_Click()
dim B1(3) as string


Public Function a(ByVal a As Single, ByVal b As Single, ByVal c As String, ByVal d As Single) As Single()  

首先: B1(3) = a(......)
这儿的 B1(3) 是一个数组的最基本的元素(简单变量, 类型: string),而函数a( ) 的返回值是数组。
这能“匹配”吗?

其次: B1 是 String类型数组, 而函数a( ) 的返回值是Single类型数组。 这也无法匹配!
再次: 返回数组的函数,只能赋值给动态数组,而 B1声明为固定数组,就算类型完全匹配,也不符合语法!不能赋值!

[解决办法]
Public Function a(ByVal a As Single, ByVal b As Single, ByVal c As String, ByVal d As Single) As Single()  
Dim ahc() As Single                       '定义经济技术指标判断集缓存集
ReDim ahc(3) As Single                    '再定义经济技术指标判断集缓存集
.......
a = ahc                                           '返回数组
End Function


Private Sub Command1_Click()
dim B1() as as single ' string既然返回是single,不能使用使用sting数组来接收
.........
B1 = a(c(i, 0), c(i, 1), std, bgsd)    '函数调用,其中C(i,0)C(i,1)为刚刚赋值的数组
end sub

热点排行