Перевод программы с С++ на Visual Basic

#include<conio.h>
#include<graphics.h>
#include<process.h>
#include<studio.h>
#include<iostream.h>
 
double sum, ch, inter[85], pp[85], chi[256], och[256], mera[257], in[4];
char sim[60], ppp[60];
int cf;
int dd1, dd2;
double r, x1, x2, cordi, pim, chag, cha, prom1, otr;
double y, izm, n, i, j, j1, k, k1, l, cord[10], p;
 
main()
{
    j = 1; k = 1;
    int mode, res;
    int driver = DETECT;
metka:
    initgraph(&driver, &mode, "c:\\borlandc\\bgi");
    if ((res = graphresult()) != grOk)
    {
        printf("\g er:%s\n", grapherrormsg(res));
        exit(1);
    }
 
 
    ch = 2;
    for (i = 128; i >= 1; i--)
    {
        chi[i] = ch;
        ch = ch * 2;
        //cout<<"chi["<<i<<"]="<<chi[i]<<"\t";
    }
    chi[129] = 1;
    ch = 0.5;
    for (i = 130; i <= 255; i++)
    {
        chi[i] = ch;
        ch = ch * 0.5;
        //cout<<"chi["<<i<<"]="<<chi[i]<<"\t";
    }
 
 
    ch = 2;
    for (i = 104; i >= 1; i--)
    {
        och[i] = ch;
        ch = ch * 2;
        //cout<<"och["<<i<<"]="<<och[i]<<"\t";
    }
    och[105] = 1;
 
    ch = 0.5;
    for (i = 106; i <= 255; i++)
    {
        och[i] = ch;
        ch = ch * 0.5;
        //cout<<"och["<<i<<"]="<<och[i]<<"\t";
    }
 
    getch;
 
    line(0, 350, 630, 350);
    line(515, 350, 515, 10);
 
    outtextxy(0, 335, "машинные числа (+)");
    outtextxy(610, 355, "(-)");
    outtextxy(400, 0, "макс. возмож.");
    outtextxy(430, 15, "ошибки");
 
    cord[1] = 2;
    cord[2] = 4;
    cord[3] = 8;
    cord[4] = 16;
    cord[5] = 32;
    cord[6] = 64;
    cord[7] = 128;
    cord[8] = 256;
    cord[9] = 512;
 
    for (i = 9; i >= 2; i--)
    {
        line(515 - cord[i], 350, 515 - cord[i], 352);
    }
    for (i = 8; i >= 2; i--)
    {
        line(515, 350 - cord[i], 517, 350 - cord[i]);
    }
    setcolor(14);
    for (i = 9; i >= 3; i--)
    {
        line(515 - cord[i], 350 - cord[i - 1], 515 - cord[i - 1], 350 - cord[i - 1]);
    }
    setcolor(4);
    circle(515, 350, 40);
    circle(515, 350, 39);
    setcolor(11);
    line(515 - 512, 357, 515 - 512, 447);
    line(515 - 256, 357, 515 - 256, 447);
    line(515 - 128, 357, 515 - 128, 480);
    line(515 - 64, 357, 515 - 64, 465);
    line(515 - 32, 357, 515 - 32, 450);
    line(515 - 16, 357, 515 - 16, 435);
    line(515 - 8, 357, 515 - 8, 420);
    line(515 - 4, 357, 515 - 4, 405);
    line(515 - 512, 447, 515 - 512 + 100, 447);
    line(515 - 256, 447, 515 - 256 + 100, 447);
    line(515 - 128, 478, 515 - 128 + 100, 478);
    line(515 - 64, 465, 515 - 64 + 100, 465);
    line(515 - 32, 450, 515 - 32 + 100, 450);
    line(515 - 16, 435, 515 - 16 + 100, 435);
    line(515 - 8, 420, 515 - 8 + 100, 420);
    line(515 - 4, 405, 515 - 4 + 100, 405);
    line(515 - 512, 357, 515 - 512, 447);
    line(515 - 512, 357, 515 - 512, 447);
    line(522, 350 - 256, 532, 350 - 296);
    line(522, 350 - 128, 532, 350 - 168);
    line(522, 350 - 64, 532, 350 - 104);
    line(522, 350 - 32, 532, 350 - 72);
    line(522, 350 - 16, 532, 350 - 52);
    line(522, 350 - 8, 532, 350 - 32);
    line(522, 350 - 4, 532, 350 - 16);
 
    line(532, 350 - 296, 640, 350 - 296);
    line(532, 350 - 168, 640, 350 - 168);
    line(532, 350 - 104, 640, 350 - 104);
    line(532, 350 - 72, 640, 350 - 72);
    line(532, 350 - 52, 640, 350 - 52);
    line(532, 350 - 32, 640, 350 - 32);
    line(532, 350 - 16, 640, 350 - 16);
 
    pim = chi[j];
    sprintf(sim, "%e", pim);
    outtextxy(7, 438, sim);
 
    pim = chi[j + 1];
    sprintf(sim, "%e", pim);
    outtextxy(263, 438, sim);
 
    pim = chi[j + 2];
    sprintf(sim, "%e", pim);
    outtextxy(390, 469, sim);
 
    pim = chi[j + 3];
    sprintf(sim, "%e", pim);
    outtextxy(455, 454, sim);
 
    pim = chi[j + 4];
    sprintf(sim, "%e", pim);
    outtextxy(487, 439, sim);
 
    pim = chi[j + 5];
    sprintf(sim, "%e", pim);
    outtextxy(503, 424, sim);
 
    pim = chi[j + 6];
    sprintf(sim, "%e", pim);
    outtextxy(511, 409, sim);
 
    pim = chi[j + 7];
    sprintf(sim, "%e", pim);
    outtextxy(515, 394, sim);
 
    pim = och[k];
    sprintf(sim, "%e", pim);
    outtextxy(534, 44, sim);
 
    pim = och[k + 1];
    sprintf(sim, "%e", pim);
    outtextxy(534, 172, sim);
 
    pim = och[k + 2];
    sprintf(sim, "%e", pim);
    outtextxy(534, 236, sim);
 
    pim = och[k + 3];
    sprintf(sim, "%e", pim);
    outtextxy(534, 268, sim);
 
    pim = och[k + 4];
    sprintf(sim, "%e", pim);
    outtextxy(534, 288, sim);
 
    pim = och[k + 5];
    sprintf(sim, "%e", pim);
    outtextxy(534, 308, sim);
 
    pim = och[k + 6];
    sprintf(sim, "%e", pim);
    outtextxy(534, 324, sim);
 
    getch();
    closegraph();
 
    cout << "\n\n\n         Увеличить или уменьшить изображение- 1\n\n";
    cout << "         Выход   - 2\n\n";
 
    cin >> cf;
    clrscr();
    if (cf == 1)
    {
    metka1:
        clrscr();
        cout << "                   Введите степень  увеличения \n";
        cout << "                         1 : 2  в степени ";
        cin >> l;
        j1 = j;
        k1 = k;
        j = j + l;
        k = k + l;
        clrscr();
        if (j > 248) { cout << "Неверно выбран масштаб"; j = j1; k = k1; getch(); goto metka1; }
        if (j < 1) { cout << "Неверно выбран масштаб"; j = j1; k = k1; getch(); goto metka1; }
        goto metka;
    }
    clrscr();
    cout << "Введите количество разбиений отрезка от " << -chi[1] << " до " << 0 << "\n\n";
    //cout<<"                     2 в степени ";
    cin >> chag;
    cout << "Введите номер самого правого отрезка на графике если отсчет ведется от 0 \nдо " << -chi[1] << "\n";
    cin >> otr;
 
    initgraph(&driver, &mode, "c:\\borlandc\\bgi");
    if ((res = graphresult()) != grOk)
    {
        printf("\g er:%s\n", grapherrormsg(res));
        exit(1);
    }
    /*chag=1;
 
    for(i=1;i<=n;i++)
    {
    chag=chag*2;
    } */
    //cout<<chag;
 
    cha = chi[1] / chag;
    in[1] = 0;
 
    for (i = 1; i <= chag; i++)
    {
        p = 0;
        in[2] = in[1] + cha;
        //cout<<in[i]<<"\n";
 
        for (j = 255; j >= 2; j--)
        {
            mera[j] = chi[j - 1] - chi[j];
            mera[j] = mera[j] / 1.677722e7;
            //cout<<mera[j]<<"\n";
 
            if (in[1] <= chi[j]) {
                if (in[2] >= chi[j - 1])
                {
                    //cout<<p[i]<<"+"<<1.6<<"\n";
                    p = p + 1.677722e7;
                    goto metka2;
                }
            }
 
            if (in[1] >= chi[j]) {
                if (in[2] <= chi[j - 1])
                {
                    prom1 = cha / mera[j];
                    //cout<<p[i]<<"+"<<prom1<<"\n";
                    p = p + prom1;
                    goto metka2;
                }
            }
 
 
            if (in[1] <= chi[j]) {
                if (in[2] <= chi[j - 1]) {
                    if (in[2] >= chi[j])
                    {
                        prom1 = in[2] - chi[j];
                        prom1 = prom1 / mera[j];
                        //cout<<p[i]<<"+"<<prom1<<"\n";
                        p = p + prom1;
                        goto metka2;
                    }
                }
            }
 
 
            if (in[1] >= chi[j]) {
                if (in[2] >= chi[j - 1]) {
                    if (chi[j - 1] >= in[1])
                    {
                        prom1 = chi[j - 1] - in[1];
                        prom1 = prom1 / mera[j];
                        //cout<<p[i]<<"+"<<prom1<<"\n";
                        p = p + prom1;
                    }
                }
            }
 
 
        }
        if (i == otr) { inter[0] = in[1]; }
        if (i >= otr) {
            if (i < (otr + 80))
            {
                inter[i - otr + 1] = in[2];
                pp[i - otr + 1] = p;
                //cout<<"inter["<<i-otr+1<<"]="<<inter[i-otr+1]<<"\n";
                //getch();
 
                //cout<<"pp["<<i-otr+1<<"]="<<pp[i-otr+1]<<"\n";
            }
        }
        in[1] = in[2];
 
        /*if(i==2)
        {
        cout<<"p="<<p<<"\n";
        } */
        sum = sum + p;
 
    }
 
    //cout<<"\n\n"<<sum;
    //cout<<p[1]<<"\n";
    //cout<<p[2]<<"\n";
 
    //getch();
    dd1 = 80; dd2 = 6;
    if (chag - otr < 80) { dd1 = chag - otr + 1; dd2 = 480 / (chag - otr + 1); }
 
    izm = 10;
    cordi = pp[1] / 350;
    for (i = 1; i <= dd1; i++)
    {
        setcolor(14);
        x1 = 530 - i * dd2;
        x2 = 530 - (i - 1) * dd2;
        y = 360 - pp[i] / cordi;
        //bar(x1,360-cordi*pp[i],x2,360);
        line(x1, 360, x2, 360);
        line(x2, 360 - pp[i] / cordi, x2, 360);
        line(x1, 360 - pp[i] / cordi, x1, 360);
        line(x2, 360 - pp[i] / cordi, x1, 360 - pp[i] / cordi);
        setcolor(15);
        line(x1, 362, x1, 360);
        //line(451,360-pp[i]/cordi,452,360-pp[i]/cordi);
 
 
        if (pp[i] != pp[i - 1]) {
            sprintf(sim, "%e", pp[i]);
            line(140, izm, 20, izm);
            line(x1 + dd2 / 2, (360 - pp[i] / cordi) + ((360 - y) / 10), 140, izm);
            outtextxy(30, izm - 9, sim);
            izm = izm + 24;
 
        }
 
        //getch();
 
        //cout<<pp[i]<<"\t";
 
 
    }
    line(530, 362, 530, 360);
 
    /*for(i=1;i<=dd1;i++)
    {
    cout<<inter[i]<<"\n";
    getch();
 
    } */
 
 
 
 
    x1 = 530;
    line(x1, 362, x1, 377);
    line(x1, 377, x1 + 80, 377);
    sprintf(sim, "%e", inter[0]);
    outtextxy(x1 + 4, 377 - 9, sim);
 
    x1 = 50;
    if (chag - otr < 80) { x1 = 530 - dd2 * (chag - otr + 1); }
    line(x1, 365, x1, 479);
    line(x1, 479, x1 + 80, 479);
    sprintf(sim, "%e", inter[dd1]);
    outtextxy(x1 + 4, 478 - 8, sim);
 
 
    for (i = 4; i <= dd1 - 1; i = i + 24)
    {
        x1 = 530 - i * dd2;
        line(x1, 362, x1, 437);
        line(x1, 437, x1 + 80, 437);
        sprintf(sim, "%e", inter[i]);
        outtextxy(x1 + 4, 437 - 9, sim);
    }
    for (i = 1; i <= dd1 - 1; i = i + 24)
    {
        x1 = 530 - i * dd2;
        line(x1, 362, x1, 392);
        line(x1, 392, x1 + 80, 392);
        sprintf(sim, "%e", inter[i]);
        outtextxy(x1 + 4, 392 - 9, sim);
    }
    for (i = 2; i <= dd1 - 1; i = i + 24)
    {
        x1 = 530 - i * dd2;
        line(x1, 362, x1, 407);
        line(x1, 407, x1 + 80, 407);
        sprintf(sim, "%e", inter[i]);
        outtextxy(x1 + 4, 407 - 9, sim);
    }
    for (i = 3; i <= dd1 - 1; i = i + 24)
    {
        x1 = 530 - i * dd2;
        line(x1, 362, x1, 422);
        line(x1, 422, x1 + 80, 422);
        sprintf(sim, "%e", inter[i]);
        outtextxy(x1 + 4, 422 - 9, sim);
    }
 
    for (i = 5; i <= dd1 - 1; i = i + 24)
    {
        x1 = 530 - i * dd2;
        line(x1, 362, x1, 452);
        line(x1, 452, x1 + 80, 452);
        sprintf(sim, "%e", inter[i]);
        outtextxy(x1 + 4, 452 - 9, sim);
    }
    for (i = 6; i <= dd1 - 1; i = i + 24)
    {
        x1 = 530 - i * dd2;
        line(x1, 362, x1, 467);
        line(x1, 467, x1 + 80, 467);
        sprintf(sim, "%e", inter[i]);
        outtextxy(x1 + 4, 467 - 9, sim);
    }
 
 
    setcolor(15);
    line(15, 360, 635, 360);
    line(15, 360, 18, 357);
    line(15, 360, 18, 363);
    outtextxy(550, 335, "числовая");
    outtextxy(550, 350, "ось (-)");
    outtextxy(20, 350, "(+)");
    line(620, 20, 620, 120);
    line(620, 20, 623, 23);
    line(620, 20, 617, 23);
    outtextxy(550, 10, "кол.маш.");
    outtextxy(550, 25, " чисел");
 
    getch();
    closegraph();
 
 
}