VBNet - Форум - Перевод с Бейсика на VBA

Вопрос: Перевод с Бейсика на VBA Добавлено: 22.06.10 14:48

Автор вопроса:

Здравствуйте, помогите, пожалуйста, перевести программный код с Бейсика на 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

Ответить

Ответы Всего ответов: 7

Номер ответа: 1 Автор ответа: Just Вопросов: 4 Ответов: 330	Профиль \| \| #1	Добавлено: 22.06.10 17:16
	вроде так должно быть... но если че, подправить - дело техники Var = InputBox("Введите число переменных") Dim Value(100), Rules(100), Var2(100) 'Value = Array(Var) For i = 1 To Var Value(i) = 0 Rules(i) = 0 Next MsgBox "Назовите эти переменные" For i = 1 To Var Var2(i) = InputBox("Имя переменной:") Next MsgBox "Назовите возможные исходы:" Outcome1 = InputBox("Первый исход:") Outcome2 = InputBox("Второй исход:") Do Do For i = 1 To Var Value(i) = 0 MsgBox "Переменная:" & Var2(i) A = MsgBox("Эта переменная есть <y/n>", vbYesNo) If A = vbYes Then Value(i) = 1 Next Decision = 0 For i = 1 To Var Decision = Decision + Value(i) * Rules(i) Next MsgBox "Возможный исход-" If Decision > 0 Then MsgBox Outcome1 Else MsgBox Outcome2 A = InputBox("Это верно <y/n>") Loop While A = "Y" Or A = "y" 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 End If Loop Ответить

Номер ответа: 2 Автор ответа: Jasmin Вопросов: 23 Ответов: 417	Профиль \| \| #2	Добавлено: 23.06.10 09:45
	Var = InputBox("Введите число переменных") Dim Value(100), Rules(100), Var2(100) А если я введу число переменных = 200 ? Или 300 ? Ответить

Номер ответа: 3 Автор ответа: Just Вопросов: 4 Ответов: 330	Профиль \| \| #3	Добавлено: 23.06.10 12:36
	А если я введу число переменных = 200 ? Или 300 ? - тогда ошибка ) в 4 строке я написал, как можно создавать динамические массивы (наверно...) в вба. сам я не пробовал, поэтому просто закомментировал и оставил в виде подсказки... Ответить

Номер ответа: 4 Автор ответа: Jasmin Вопросов: 23 Ответов: 417	Профиль \| \| #4	Добавлено: 23.06.10 17:03
	как можно создавать динамические массивы (наверно...) в вба. Можно-можно создавать. ) Dim MyArray () - объявляем массив без верхней границы, эту строку можно ‘пропустить ReDim MyArray (4) — изменяем размер массива Команда ReDim не только изменяет размер массива, но и удаляет из него все старые значения. Чтобы старые значения сохранить, используется ключевое слово Preserve: ReDim Preserve MyArray (7) Ответить

Номер ответа: 5 Автор ответа: Jasmin Вопросов: 23 Ответов: 417	Профиль \| \| #5	Добавлено: 23.06.10 17:04
	Dim intArray() As Integer Это если сразу тип нужно указать. Ответить

Номер ответа: 6 Автор ответа: Just Вопросов: 4 Ответов: 330	Профиль \| \| #6	Добавлено: 23.06.10 17:52
	Ах да, оказывается, знал, просто основательно забыл. Спасибо, теперь постараюсь подольше помнить. Ответить

Номер ответа: 7 Автор ответа: Jasmin Вопросов: 23 Ответов: 417	Профиль \| \| #7	Добавлено: 24.06.10 20:29
	Да всегда пожалуйста. Спрашивайте, напомним. Ответить

Страница: 1 |