Готовый код, нужно перевести на Microsoft Visual Basic

@Ken_Watanabe · Регистрация: 05.04.2014

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

Здравствуйте. Помогите перевести код с делфи/pascal в Microsoft Visual Basic(если быть точнее вот так)=>Tools=>Macros=>'name', Create. Вот код:

Pascal

Var
  a,b,i: Integer;
BEGIN
Repeat
  Write('Vvedite A and B (A<B): ');
  Readln(a,b);
until a<b;
For i:=a to b do
Write(i,' ');
Writeln;
Writeln('Kolichestvo = ',b-a+1);
readln;
END.

Вот само задачка: Даны два целых числа A и B (A < B). Вывести все целые числа, расположенные между данными числами (включая сами эти числа), в порядке их возрастания, а также количество N этих чисел.

Проста я новичок в этой сфере.Будьте добры помогите студенту)

@Vlad999 · 03.11.2014, 21:44

вариант

Visual Basic

Sub VVV()
Dim a&, b&, i&
a = InputBox("введите целое число A ")
b = InputBox("введите целое число B больше " & a)
If b > a Then
S = a
  For i = a To b - 1
  S = S & ", " & i + 1
  Next
  S1 = b - a + 1
  MsgBox "числа: " & S
  MsgBox "Количество чисел = " & S1
Else
 If a = b Then
 MsgBox "вы ввели число равное " & a & ", а нужно больше " & a
  Call VVV
  Exit Sub
 Else
 MsgBox "вы ввели число меньше " & a & ", а нужно больше"
 Call VVV
  Exit Sub
 End If
End If
End Sub

Опции темы

Готовый код, нужно перевести на Microsoft Visual Basic

Решение