Нужно перевести код Паскаля в Visual Basic

@Sanya32156896 · Регистрация: 29.11.2019

Author24 — интернет-сервис помощи студентам

Pascal

program for14; 
  var i, N: integer;
 Pow: real;  
 begin write('N = '); 
read(N); 
Pow := 0;
 for i := 1 to N do   
begin
 Pow := Pow + (2 * i - 1);
 writeln(Pow);
 end; 
end.

@IDK · 07.12.2019, 05:45

Visual Basic

Option Explicit
Private Sub Form_Load()
    Dim i As Integer, N As Integer
    Dim Pow As Double
    Me.Print "N = "
    N = CInt(InputBox("Введите значение N"))
    Pow = 0
    For i = 1 To N
        Pow = Pow + (2 * i - 1)
        Me.Print Pow
    Next i
End Sub

	07.12.2019, 05:45

Опции темы