看看这段C改成 的VB程序有错没？

Question

我想问下VB里面有没有返回值这个概念，像下面这个C程序改成后面那个VB程序，可以吗 ？
C程序：
int gau(float x[],float g[],int kg)
{       int i;
       constraint(x,g);
       for(i=0;i<kg;i++)
       {
         if(g[i]<0)
         goto s333;
       }
       return 1;
s333:return 0;
}VB程序
Public Function gau(x() As Single, g() As Single, kg As Integer) As Integer
Dim i As Integer
Call constraint(x, g)
 i = 0
 Do Until i >= kg
    If g(i) < 0 Then
    gau = 0
    End If
 Loop
    gau = 1
End Function

Answer 1

VB的语句结构很象C照抄就是了：
Public Function gau(x() As Single, g() As Single, kg As Integer) As Integer
  Dim i As Integer
  Call constraint(x, g)
 for i= 0 to kg-1
       if g(i)<0 then  goto s333
  next
  gau=1
  exit function
  s333: gau=0
End Function