Ошибка в коде visual basic Дали задание. на входе 2 числа-одно метры в сек, другое км в час. вывести что больше.
при вводе любых данных выдает, что всегда больше км в час.
Private Sub CommandButton1_Click()
x = TextBox1.Text
y = TextBox2.Text
If (x * 3.6) > y Then
MsgBox ("больше м/с")
Else
MsgBox ("больше км/ч")
End If
End Sub

//PascalABC.NET 3.2 сборка 1318

Uses
  GraphABC;

Var
  h:integer;
begin
h:=40;
line(window.Width-300,window.Height,window.Width-300,0);
floodfill(window.Width-20,20,clGray);
rectangle(window.Width-200,100,window.Width-100,300);
floodfill(window.Width-150,140,clGold);
while h<>window.Height-40 do
  begin
    circle(window.Width div 2,h-40,10);
    floodfill(window.Width div 2,h-40,clGreen);
    circle(window.Width div 2,h,30);
    floodfill(window.Width div 2,h,clRed);
    rectangle(0,0,window.Width div 2+40,window.Height);
    floodfill(window.Width div 2+40,window.Height,clWhite);
    inc(h);
  end;
  circle(window.Width div 2,h-40,10);
  floodfill(window.Width div 2,h-40,clGreen);
  circle(window.Width div 2,h,30);
  floodfill(window.Width div 2,h,clRed);
end.

Функция f() - работает с внешними переменными a и b, все остальные переменные в ней не влияют на программу. В ней мы присваиваем переменной b значение переменной а.

Функция g() - работает с внешними переменными a и d, все остальные переменные в ней не влияют на программу. В ней мы присваиваем переменной a результат конкатенации значения переменной d и строки "0".

    a      b    c    d    

    '2'    '3'  '5'  '7'    

f()  '2'    '2'  '5'  '7'    

g() '70'  '3'  '5'  '7'  

f()  '70' '70' '5'  '7'    

Выведена будет конкатенация этих строк

"707057"

Если ответ удовлетворил, не забудь отметить его как "Лучший".