带返回数值的函数不能return
要让一个函数有返回值.如下.
Public Function IfSwap(first As Integer, second As Integer) As Boolean
'判断是否需要交换image中的图片
Dim color1, color2, color3 As Integer
Dim number_shap1, number_shap2 As number_property

color1 = element_L(first \ 6, first Mod 6).name
color2 = element_L(first \ 6, first \ 6 + 1).name
color3 = element_L(first \ 6, first \ 6 + 2).name

End Function
我无法在里面增加return False/True等.单独用return就可以. return后面不能接数值.这是怎么回事情.我在CSDN上面看我这种写法案是没问题的.

[解决办法]
在函数内部是使用以下方式来返回函数值: 函数名 = 结果

即: IfSwap = 结果
[解决办法]
在函数体内声明一个变量 retvalue
dim retvalue as boolean

函数体
IfSwap=retvalue