Нужно перевести код программы с Pascal на visual basic(пожалуйста, завтра очень нужно)

Question

Переводите хотя бы одну если сможете. Заранее спасибо!! !
Вот первая: Series12.Дан набор ненулевых целых чисел; признак его завершения — число 0. Вывести количество чисел в наборе.

Program Series12;
const
TheArr:array [1..10]of real=(1,2,3,4,5,6,7,8,9,0);
var
i,j,cout:integer;
begin
cout:=0;
i:=1;
while (i<>0)do
begin
cout:=cout+1;
if(TheArr=0)then i:=0
else
i:=i+1;
end;
writeдт ('количество чисел в наборе: ', cout);
end.

Вот и вторая:

{While13. Дано число A (> 1). Вывести наименьшее из целых чисел K, для
которых сумма 1 + 1/2 + .+1/K будет больше A, и саму эту сумму. }
program while13;

uses crt;

var
a,s:real;
k:longint;
begin
clrscr;
repeat
writeln('Введите число (A>1) ');
readln(a);
until a > 1;
s:=1;
k:=1;
while s < a do
begin
k:=k+1;
s:=s+1/k;
end;
writeln('Число ',k);
writeln('Сумма ',s:5:2);
readln;
end.

И третья

{Recur1°. Описать рекурсивную функцию Fact(N) вещественного типа, вычисляющую значение факториала
N!=1*2*...*N (N > 0 - параметр целого типа) .
С помощью этой функции вычислить факториалы пяти данных чисел. }
Program Recur1;
Var
N: Integer;

Function Fact(N:Real):Real;
Begin
If N = 1 Then
Fact:=1
Else Fact:=Fact(N-1)*N;
End;

Begin
ReadLn(N);
WriteLn(Fact(N));
End.

Марина . · Accepted Answer

Не указана версия Visual Basic.
Нарушено негласное правило: одна задача/программа - один вопрос.
Не вставлены пробелы между символами [ и i.

VB.NET почти дословный перевод:

'Первая
Module N84410468_1
Sub Main()
Dim TheArr() As Double = {1, 2, 3, 4, 5, 6, 7, 8, 9, 0}
Dim i, cout As Integer
cout = 0
i = 0
Do While TheArr(i) <> 0
cout = cout + 1
i = i + 1
Loop
Console.WriteLine("количество чисел в наборе: {0}", cout)
End Sub
End Module

'Вторая
Module N84410468_2
Sub Main()
Dim a, s As Double
Dim k As Integer
Do
Console.Write("Введите число (A > 1) ")
Loop Until Integer.TryParse(Console.ReadLine, a) And a > 1
s = 1
k = 1
Do While s < a
k = k + 1
s = s + 1 / k
Loop
Console.WriteLine("Число {0}", k)
Console.WriteLine("Сумма {0, 5:F2}", s)
Console.ReadKey()
End Sub
End Module

'Третья
Module N84410468_3
Sub Main()
Dim N As Integer
N = Integer.Parse(Console.ReadLine)
Console.WriteLine("{0}", Fact(N))
End Sub

Function Fact(N As Double) As Double
If N = 1 Then
Return 1
Else
Return Fact(N - 1) * N
End If
End Function
End Module

P.S. Впредь для каждой программы создавайте отдельный вопрос.