帮我看看这段程序哪里不对劲？

Question

看了半天我也没看明白，
把程序拷到vb中去运行就知道了。
运行通过，但有一个警告：
warning:the return value of Function ValueSetDefaultInt is not satified with the Funtion deifined.

Answer 1

只是别人会察颜观色而已，自己想多了。
如果一定要有，也就是
tOutInt = (pValueSet And tValueIsSpace) + (pValueDefault And Not tValueIsSpace)这段代码了。

Answer 2

kitegirl的程序干什么的？不懂？

Answer 3

Dim tOutInt As Integer
Dim tFileNumber As Integer
老兄用了很多没必要的变量赋来赋去，举棋不定的样子Public Function FileOpenGetNumber_ForBinary(ByVal pFileName As String, Optional ByVal pFileNumber As Integer = 0) As Integer  FileOpenGetNumber_ForBinary =FreeFile
  Open pFileName For Binary As #FileOpenGetNumber_ForBinary End Function

Answer 4

结尾都用outint  ，表示一种有人即将出去的愁绪，out 嘛另外，行距 较大，没有锯齿排列，省略了注释  也表示一种 kitegirl 当时 神魂不定 的输程序的样子，一定是 撅着嘴 输进去的... ...

Answer 5

这里成了水源兄弟们的阵地了。估计kitegirl在think in spring。