VPF::Перевод с Бейсика на VBA - Форум программистов

Majesty13

Дата 22.6.2010, 13:42 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 22.6.2010

Репутация: нет
Всего: нет

Здравствуйте, помогите, пожалуйста, перевести программный код с Бейсика на VBA.
Заранее благодарю.

Код


10  cls
20  input "Введите число переменных"; Var
30  Dim Value(Var), Rules(Var), Var$(Var)
40  for i=1 to Var
50  Value(i)=0
60  Rules(i)=0
70  Next:print
80  print "Назовите эти переменные"
90  for i=1 to Var
100 Input "Имя переменной:";Var$(i)
110 Next: print
120 print "Назовите возможные исходы:"
130 Input "Первый исход:"; Outcome1$
140 Input "Второй исход:"; Outcome2$
150 print
160 for i=1 to Var
170 Value(i)=0
180 print "Переменная:"; Var$(i)
190 Input "Эта переменная есть <y/n>";A$
200 If A$="Y" or A$="y" then Value(i)=1
210 Next
220 Decision=0
230 for i=1 to Var
240 Decision=Decision+Value(i)*Rules(i)
250 Next
260 print "Возможный исход-";:If Decision>0 then
    print Outcome1$ else print Outcome2$
270 Input "Это верно <y/n>";A$
280 If A$="Y" or A$="y" then 150
290 If Decision > 0 then
    for i=1 to Var:Rules(i)=Rules(i)-Value(i): Next
    else for i=1 to Var:Rules(i)=Rules(i)+Value(i): Next
300 Goto 150

Akina

Дата 22.6.2010, 16:12 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454

Заменить 'input "спросить" что-то' на 'что-то=inputbox("спросить")', print на msgbox, остальное можно оставить as is.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »