Turbo basic to VB

[VB_LAM]

Строка на Turbo basic выглядит так:

Код: Выделить всё

input "Введите число: "; i

Подскажите, Как эту строку написать на Visual Basic (не .NET)?

[Денис]

Код: Выделить всё

i = InputBox("Введите число:", "Моя программа", 100)

Вообще, инпутбокс возвращает строку (текст) так что при работе с числами рекомендую явно объявлять типы:

Код: Выделить всё


dim s as string
dim i as integer

const def_s as string = "100"

s = InputBox("Введите число:", "Моя программа", def_s)

i = val(s)



[VB_LAM]

Спасибо!
Я VB только изучаю, но полагаю что необходимо ввести число из консоли? Ведь win - контролов в турбе не было.
То есть вроде этого:
Console.WriteLine('Введите i')
i = Console.ReadLine()
Возможно такое на VB ?
ps: забыл указать что у меня из исходников только файл .bas

[Денис]

полагаю что необходимо ввести число из консоли?

VB 6 не задумывался для работы с консолью/создания консольных приложений. Тем не менее, припоминаю, что где-то здесь был класс для создания консоли и работы с ее окном.

Однако, если вам не нужна прямо точная копия консоли, можете использовать формы (с контролами) и диалоги?

Проясните, консоль нужна?

[VB_LAM]

Денис спасибо огромное за помощь, щас прикину как сделать по другому, думаю и без консоли попробую обойтись.. Какая разница в моем случае откуда числа вводить...