例子
private function Sum(byval a integer,b as integer)as integer
   sum=a+b '函数名本身就是作为返回值
end function

解决方案 »

  1.   

    樓上的兄弟,我是指對整個VB程序而言,是指對這個程序的調用者返回值而不是內部的一個function而已
    VB的main()只可以以sub的方式聲明
    這樣,也不用普通的function的方法來返回值
      

  2.   

    try use GetLastError and SetLastErrorGetLastError返回的值通过在api函数中调用SetLastError或SetLastErrorEx设置。函数并无必要设置上一次错误信息,所以即使一次GetLastError调用返回的是零值,也不能担保函数已成功执行。只有在函数调用返回一个错误结果时,这个函数指出的错误结果才是有效的。通常,只有在函数返回一个错误结果,而且已知函数会设置GetLastError变量的前提下,才应访问GetLastError;这时能保证获得有效的结果。SetLastError函数主要在对api函数进行模拟的dll函数中使用,所以对vb应用程序来说是没有意义的
      

  3.   

    it's not passed, but u can use SetEnvironmentVariable and GetEnvironmentVariable however
      

  4.   

    謝謝這位兄弟不過我的情況比較特殊,只能用返回值,因為我調用VB程序的環境裡是無法再調用API的,我是在安裝程序裡調用該VB程序不過你的方法還是給了我一點提示,也許我可以在VB外面再套個VC程序來實現它