Function Rndaa() As Single
Rndaa = Rnd()
End Function

Function Rndab(ByRef a As Single)
a = Rnd()
End Function

Function Rndac(ByRef a As Single)
a = 1.23246567
End Function

Function Rndad() As Single
Rndad = 1.23246567
End Function

这是标准DLL中的4个函数，前两个调用时均出错，后两个改成实际浮点数就没问题,不知为什么？
调用方法如下
Private Declare Function Rndaa Lib "test.dll" () As Single
Private Declare Function Rndab Lib "test.dll" (ByRef a As Single)
Private Declare Function Rndac Lib "test.dll" (ByRef b As Single)
Private Declare Function Rndad Lib "test.dll" () As Single
请教谁知道为什么标准DLL中不能使用rnd函数 是什么原因？

"test.dll"
是用什么编译的？

是用VB编译的，编译没问题，已经生成标准DLL，后两个函数可以使用，经过测试只要在标准DLL函数中使用rnd函数就出错，无论是否返回值，均非正常退出。不知是什么原因，就是单独下列函数在标准DLL中还是出错

Sub GetA()

Randomize

End Sub
Sub GetB()

Rnd
End Sub

怎么没人知道吗？顶

这么多高手，没有知道吗？