Из Turbo Pascal в VB

[bmxlove]

Даны X1, X2, X3.
Определить:система:
y=x1+x2, если xmax>5,5
y=x2-x3, если xmax =< 5,5

Sub lb()
Dim x1, x2, x3 As Single
Dim y, Xmax As String
    If (x1 > x2) And (x1 > x3) Then Xmax = x1
    If (x2 > x3) And (x2 > x1) Then Xmax = x2
    If (x3 > x1) And (x3 > x2) Then Xmax = x3
    If Xmax > 5.5 Then y = x1 + x2
    If Xmax <= 5.5 Then y = x2 - x3
Cells(4, 1) = y
Cells(5, 1) = Xmax
End Sub

какая здесь ошибка?

помогите перевести из паскаля в VB

s,n: string; 
begin 
s:='ПЕТРОВ СИДОРОВ НИКОЛАЕВ ИВАНОВ'; 
n:='СИДОРОВ'; 

if Pos(n,s) >0 then 
Writeln('СИДОРОВ есть') 
else 
Writeln('СИДОРОВ нет'); 
readln; 
end.


const 
 n=15; 
var 
 a:array [1..n] of integer; 
 i:integer; 
 z:array [1..n] of real; 
 s1,s2,c:real; 
begin 
 s1:=0; 
 s2:=0; 
 for i:=1 to n do 
  begin 
   write('a[',i,']= '); 
   readln(a[i]); 
   s1:=s1+a[i]; 
   s2:=s2+sqr(a[i]-3.5); 
  end; 
 c:=s1/s2; 
 for i:=1 to n do 
  begin 
   z[i]:=c*a[i]; 
   writeln('z[',i,']= ',z[i]:2:5); 
  end; 
 readln; 
end.

[Stilet]

какая здесь ошибка?

У тебя переменные x1, x2, x3 не получили значения.

помогите перевести из паскаля в VB

dim s,n as string
s="ПЕТРОВ СИДОРОВ НИКОЛАЕВ ИВАНОВ"
n="СИДОРОВ"
If InStr(s,n) >0 then 
 Print "СИДОРОВ есть"
Else 
 Print "СИДОРОВ нет" 
End

Dim n as integer = 1
Dim a(n) as integer
Dim i as integer 
Dim z(n) as double 
Dim s1,s2,c as double 

 s1=0
 s2=0 
 for i=1 to n 
   Input a(i) 
   s1=s1+a(i); 
   s2=s2+sqr(a(i)-3.5); 
 next i
 c=s1/s2; 
 for i=1 to n 
   z(i)=c*a(i); 
   print z(i) 
 next i

Все что помню по бейсику.

[bmxlove]

спасибо ♥♥♥