Нужно переделать программу из Pascal в VBasic - VB

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

Попросили меня сделать программу, выполнил я её на Pascal, но надо на VisualBasic. Вот программа, выполняющая подсчет десятизначных чисел, в которых цифры не повторяются. С синтаксисом VB я не знаком, помогите пожалуйста.
program chisla;
var x, i, k, j, b, sum: integer;
    a: array [1..10] of integer;
begin
sum:=0;
x:=1000000000;
while (x<=9999999999) do {проверяем все десятизначные числа}
    begin
    b:=x;
    for i:=1 to 10 do {представляем число в виде массива}
            begin
            a[i]:=b mod 10;
            b:=b div 10;
            end;
 
    k:=0;
    for j:=1 to 10 do {ищем совпадения}
            begin
            for i:=1 to 10 do
            if (a[j]=a[i])and(j<>i) then k:=k+1;
            end;
 
    if (k=0) then {при отсутствии совпадения увеличиваем сумму на 1}
            begin
            writeln(x);
            sum:=sum+1;
            end;
    
    x:=x+1;
end;
writeln('sum = ',sum);
end.

Код к задаче: «Нужно переделать программу из Pascal в VBasic - VB»

textual
program Nya^_^4
var k,d:integer;
begin
k:=40;
if k mod 12 = 4 then d:=k
  else if k mod 12 < 5 then d:=2
     else if k div 12 > 4 then d:=3
         else d:=1;
writeln (d);
readln;
end.

15   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ