что тут нужно изменить?

[asd48]

Есть программа на с++, смысл ее в том, чтобы преобразовать вектор W, удалив из него элементы, равные ключу поиска. Размерность вектора произвольная. Она работает, но что мне надо изменить в выделенных строчках, чтобы она работала на VB

#include <iostream>
#include <math.h>
#include<iomanip>
using namespace std;

int main()
{
int *W,i,m,j,k;
   cout<<"vvedite znachenie k: ";
   cin>>k;
      cout<<"Vvedite razmernost: ";
      cin>>m;
W=new int[m];
        cout<<"Vvedite vector "<<"\n";
 for(i=0;i<m;i++)cin>>W[i];
          cout<<"    Icxodnij massiv"<<endl;	       
          cout<<endl;
for (i=0;i<m;i++)cout<<setw(4)<<W[i]<<"\t";
              cout<<endl;

j=-1;
for(i=0;i<m;i++)
{if (W[i]!=k)
 
if (j!=i)
{
j=j++;
W[j]=W[i];}
else j=j++;
}
 cout<<"    Novij massiv"<<endl;	       
cout<<endl;
for (i=0;i<=j;i++) cout<<setw(4)<<W[i]<<"\t";

 


cout<<endl;
	cout<<endl;
	return 0;
}

Вот код на VB

Private Sub Command1_Click()
Dim m As Integer, K As Integer
Dim W() As Integer
Dim i As Integer, j As Integer

m = Text1.Text
K = Text2.Text
ReDim W(m)
For i = 0 To m
    W(i) = InputBox("W" & i)
Next

Print "Исходный массив"
For i = 0 To m
Print W(i); "   ";
Next
j = -1
For i = 0 To m
If W(i) <> K And j <> i Then
j = j + 1
W(j) = W(i)
Else
j = j + 1
End If
Next
Print " Новый массив"
For i = 0 To j
Print W(i); "";
Next
End Sub

[ISergeyN]

У вас уловия путаются

//.................
if (W[i]!=k)//начало блока 1
{
  if (j!=i)//начало блока 2
  {
   j=j++;
   W[j]=W[i];
  }// конец блока 2
  else j=j++;// конец блока 1
}
//.............

хоть я VB в первые вижу но наверно так будет

.......
For i = 0 To m
If W(i) <> K Then//начало блока 1
If j <> i Then//начало блока 2
j = j + 1
W(j) = W(i)
Else // конец блока 2
j = j + 1
End If// конец блока 1
Next .....

[asd48]

Да, все заработало, только надо было поставить еще одно End if перед Next