Форум программистов, компьютерный форум, киберфорум
Наши страницы
Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
majesty13
0 / 0 / 0
Регистрация: 19.12.2014
Сообщений: 5
1

Перевод с Бейсика на VBA

22.06.2010, 12:57. Просмотров 692. Ответов 1
Метки нет (Все метки)

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

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
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
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.06.2010, 12:57
Ответы с готовыми решениями:

Обсуждение Бейсика
Сообщения были перенаправлены с другой темы, т.к. вопрос вышел за рамки топика. Тут можно...

Перевод с языка с++ на язык vba
#include &lt;iostream&gt; #define eps 1e-3 #define tay 1.618 void Gold(double a, double b) { ...

Перевод на VBA с c++
Перевод на VBA с c++ Ввести строку, состоящую только из цифр и букв. Распечатать те группы цифр,...

Перевод с паскаля на VBA
Помогите с переводом var a:arrayof Integer; k,x,i,j,n:Integer; f:Boolean; begin ...

Возможен ли перевод C++ -> VBA?
возможно ли код С++ перевести в код VBA?

1
Toxa33rus
3815 / 879 / 122
Регистрация: 16.04.2009
Сообщений: 1,768
22.06.2010, 21:16 2
Куда текст выводить?
На форму можно тем же принтом, можно через диалоги, можно в текстовые поля.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.06.2010, 21:16

Перевод с паскаля на VBA
Помогите первести с паскаля на VBA for i:=0 to n-1 do begin for j:=0 to n-1 do ...

Перевод из Pascal в VBA
program Begin20; var x1,y1,x2,y2,L: Real; begin Writeln('Введите значение координат певой...

Перевод из Pascal в VBA
var s:string; p1,p2:byte; begin writeln('Введите строку, содержащую текст в фигурных...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru