C++에서
for(i=0;i<=15;i++)
if(min==dof[i]) mix_f=i;

코드는 아래와 같이 해석됩니다.

for(i=0;i<=15;i++)
{
if(min==dof[i])
{
  mix_f=i;
}
}


제시하신 C++ 코드를 VB로 변환하면 아래와 같이 됩니다.
혹시, 배열 인텍스 범위 등에 문제가 있을 수도 있지만 그 부분은 조정하시면 되구요.


'VB
'Option base 0

if erg=0  then 'M30
    for i=0 to 15 step 1
     dof(i)=fabs((rs3(i)-r3)/rs3(i))+fabs((rs4(i)-r4)/rs4(i))
    next i

    min=10000.
    for i=0 to 15 step 1
     if dof(i)<min then
       min=dof(i)
     end if
    next i

    for i=0 to 15 step 1
     if min=dof(i) then
       mix_f=i
     end if
    next i

    cf_d=cfd(mix_f)
    cf_s=cfs(mix_f)
    hp10=a3/cf_d
    hp07=hp10*cf_s
    beam="M30    "
    goto prn

end if


채희순 님이 쓰신 글 :
: if(erg==0)  //M30
:     {
:     for(i=0;i<=15;i++) dof[i]=fabs((rs3[i]-r3)/rs3[i])+fabs((rs4[i]-r4)/rs4[i]);
:     min=10000.;
:     for(i=0;i<=15;i++)
:     if(dof[i]<min) min=dof[i];
:     for(i=0;i<=15;i++)
:     if(min==dof[i]) mix_f=i;
:     cf_d=cfd[mix_f];
:     cf_s=cfs[mix_f];
:     hp10=a3/cf_d;
:     hp07=hp10*cf_s;
:     beam="M30    ";
:     goto prn;
:     }
: 위의 프로그램을 VB로 고치려고 합니다.
: 그런데 For문 아래에 Next가 없는데요
: Next를 넣는다면 그전 for위에 넣는것인가요? 아니면 제일 아래에 넣어야 하는 것인가요?
: