درخواست تبدیل کد c++ به vb.net

[rasoulb7]

دوستان عزیز کی می تونه این کدارو برام تبدیل کنه؟
از ++c به vb.net



#include <iostream.h>
#include <iomanip.h>

long comb(int n,int k);
int main()
{
const m = 13; // count of Sentence
for (int i = 0; i < m; i++)
{ for (int j = 1; j < m-i; j++)
cout << setw(2) << ""; // print whitespace
for (int j = 0; j <= i; j++)
cout << setw(4) << comb(i,j);
cout << endl;
}
}
long comb(int n,int k)
{ if (n < 0 || k < 0 || k > n) return 0;
long c = 1;
for (int i=1; i<=k; i++,n--)
c = c*n/i;
return c;
}

[aliagamon]

خدمت شما :

Sub Main()
Dim m As Integer = 13
For i As Integer = 0 To m - 1


For j As Integer = 1 To m - i - 1
Console.Write(" ")
Next
For j As Integer = 0 To i - 1
Console.Write(" {0}", comb(i, j))
Next
Console.Write(Environment.NewLine)
Next
Console.ReadKey()
End Sub
Private Function comb(ByVal n As Integer, ByVal k As Integer) As Long
If n < 0 OrElse k < 0 OrElse k > n Then
Return 0
End If
Dim c As Long = 1
Dim i As Integer = 1
While i <= k
c = c * n \ i
i += 1
n -= 1
End While
Return c
End Function

[rasoulb7]

ممنون مهندس دستت درد نکنه