VB调用动态链接库问题？

用VC做了shiyan.cpp的动态链接库shiyan.dll
shiyan.cpp代码如下：
# include <stdio.h>
extern "C" void print1(void)
{
printf("wushuqingloveliaoxiaoli");
}
extern "C" void print2(int x)
{
printf("%d",x);
}
extern "C" int print3(void)
{
return 3;
}
extern "C" int print4(int y)
{
return y;
}
现在想在VB下调用shiyan.dll中的print1、print2、print3、print4函数
在VB中申明如下：
Private Declare Sub print1 Lib "D:\vc程序\动态链接\shiyan\Debug\shiyan1.dll" ()
Private Declare Sub print2 Lib "D:\vc程序\动态链接\shiyan\Debug\shiyan1.dll" (By
Val x As Integer)
Private Declare Function print3 Lib "D:\vc程序\动态链接\shiyan\Debug\shiyan1.dll
" () As Integer
Private Declare Function print4 Lib "D:\vc程序\动态链接\shiyan\Debug\shiyan1.dll
" (ByVal y As Integer) As Integer
调用如下：
Private Sub Command1_Click()
Call print1
Call print2(6)
y = print3()
z = print4(9)
End Sub
结果是pint1、print3能实现调用而pint2、print4不行。
不知道是申明的错误还是调用的错误？
请赐教！谢谢！