Перевод программы C++ -> Visual Basic - VB

Формулировка задачи:

Друзья, помогите пож. перевести код с языка C++ в Visual Basic, в котором я не очень хорошо разбираюсь. №1. Составить блок-схему и написать программу: Известна зарплата каждого из 12 работников фирмы за каждый месяц первого квартала Организовать ввод информации по этой таблице и определить: а) максимальную зарплату из указанных в таблице; б) порядковый номер работника, получившего за квартал наибольшую сумму; в) в каком месяце общая зарплата всех работников была максимальной.

#include "stdafx.h"
#include <stdio.h>
#include <iostream>
#include <conio.h>
#include <stdlib.h>
 
using namespace std;
void main()
{
int k,i,j,max,maxr,summP,summV,summT,maxsumm,all;
int a[12][4];
for (j=0; j<12; j++)
{
cout << "vvedite zarplatu za 1,2,3 mecyac " << j+1 <<" rabotnika\n";
for (i=0; i<3; i++)
{ cin >> a[i][j];
}
cout << "\n";
}
cout << "________________________________________________________\n";
cout << "  rabotniki  |______________mesyac______________________\n";
cout << "_____________|________1___________2__________3__________\n";
for (j=0; j<12; j++)
{
cout << j+1 << "\t\t";
for (i=0; i<3; i++)
{ 
cout << a[i][j]<< "\t\t";
}
cout << "\n";
}
max=1;
summV=0;
summP=0;
summT=0;
all=0;
for (j=0; j<12; j++)
{
for (i=0; i<3; i++)
{ 
all=all+a[i][j];
if (a[i][j]>max)
{maxr=j;
max=a[i][j];
};
}
cout << "\n";
}
for (j=0; j<12; j++)
{
for (i=0; i<3; i++)
{ 
if (i=0)
{summP=summP+a[i][j];
};
if (i=1)
{summV=summV+a[i][j];
};
if (i=2)
{summT=summT+a[i][j];
};
}
cout << "\n";
}
if (summP>summV && summP>summT)
{maxsumm=1;
};
if (summV>summP && summV>summT)
{maxsumm=2;
};
if (summT>summV && summT>summP)
{maxsumm=3;
};

cout << "maksim. poluchen. summa " << max << "\n";
cout << "por.nomer rabotnika, poluchivshego bolsh. summu " << maxr+1 << "\n";
cout << "obshaya zarplata rabotnikov v " << maxsumm << " mesyace byla maksimalnoi \n";
cout << "obshaya summa, vyplachennaya za kvartal vsem rabotnikam " << all;
 
getch();
}

№2. Составить блок-схему и написать программу: Известна зарплата каждого из 12 работников фирмы за каждый месяц первого квартала Организовать ввод информации по этой таблице и определить: а) общую сумму, выплаченную за квартал всем работникам; б) зарплату, полученную за квартал каждым работником; в) общую зарплату всех работников за каждый месяц.

#include "stdafx.h"
#include <stdio.h>
#include <iostream>
#include <conio.h>
#include <stdlib.h>
 
using namespace std;
void main()
{
int k,i,j,max,maxr,summP,summV,summT,maxsumm,all,sumrab;
int a[12][4];
for (j=0; j<12; j++)
{
cout << "vvedite zarplatu za 1,2,3 mecyac " << j+1 <<" rabotnika\n";
for (i=0; i<3; i++)
{ cin >> a[i][j];
}
cout << "\n";
}
cout << "________________________________________________________\n";
cout << "  rabotniki  |______________mesyac______________________\n";
cout << "_____________|________1___________2__________3__________\n";
for (j=0; j<12; j++)
{
cout << j+1 << "\t\t";
for (i=0; i<3; i++)
{ 
cout << a[i][j]<< "\t\t";
}
cout << "\n";
}
sumrab=0;
all=0;
summV=0;
summP=0;
summT=0;
for (j=0; j<12; j++)
{
for (i=0; i<3; i++)
{all=all+a[i][j];
sumrab=sumrab+a[i][j];
}
cout << "zarplata, poluchennaya za kvartal " << j+1 << " rabotnikom "<< sumrab << "\n";
sumrab=0;
cout << "\n";
}
for (j=0; j<12; j++)
{
for (i=0; i<3; i++)
{ 
if (i=0)
{summP=summP+a[i][j];
};
if (i=1)
{summV=summV+a[i][j];
};
if (i=2)
{summT=summT+a[i][j];
};
}
cout << "\n";
}
cout << "obshaya zarplata vseh rabotnikov za 1 mesyac " << summP << "\n";
cout << "obshaya zarplata vseh rabotnikov za 2 mesyac " << summV << "\n";
cout << "obshaya zarplata vseh rabotnikov za 3 mesyac " << summT << "\n";
cout << "obshaya summa, vyplachennaya za kvartal vsem rabotnikam " << all;
getch();
}

Буду очень благодарен.

Решение задачи: «Перевод программы C++ -> Visual Basic»

textual
                            Листинг программы 
                        

                            Private Sub Form_Load()
Dim k As Long, i As Long, j As Long, max As Long, maxr As Long, summP As Long, summV As Long, summT As Long, maxsumm As Long, all As Long
Dim a(2, 11) As Long
Dim s As String
For j = 0 To 11
    For i = 0 To 2
        a(i, j) = Val(InputBox("vvedite zarplatu za 1,2,3 mecyac " & j + 1 & " rabotnika\"))
    Next i
Next j
s = "<br>\n"
s = s & "  rabotniki  |<br>mesyac<br>\n"
s = s & "<br>|<br>1<br>2<br>3<br>\n"
For j = 0 To 11
    s = s & j + 1 & vbTab & vbTab
    For i = 0 To 2
        s = s & a(i, j) & vbTab & vbTab
    Next i
    s = s & vbCrLf
Next j
max = 1
For j = 0 To 11
    For i = 0 To 2
        all = all + a(i, j)
        If (a(i, j) > max) Then
            maxr = j
            max = a(i, j)
        End If
    Next i
    s = s & vbCrLf
Next j
 
For j = 0 To 11
    For i = 0 To 2
        Select Case i
        Case Is = 0
        summP = summP + a(i, j)
        Case Is = 1
        summV = summV + a(i, j)
        Case i = 2
        summT = summT + a(i, j)
        End Select
    Next i
    s = s & vbCrLf
Next j
 
If (summP > summV) And (summP > summT) Then
maxsumm = 1
ElseIf (summV > summP) And (summV > summT) Then
maxsumm = 2
ElseIf (summT > summV) And (summT > summP) Then
maxsumm = 3
End If
s = s & "maksim. poluchen. summa " & max & vbCrLf _
& "por.nomer rabotnika, poluchivshego bolsh. summu " & maxr + 1 & vbCrLf & _
"obshaya zarplata rabotnikov v " & maxsumm & " mesyace byla maksimalnoi" & vbCrLf _
& "obshaya summa, vyplachennaya za kvartal vsem rabotnikam " & all
 
MsgBox s
 
End Sub
                        