Переведите пожалуйста на любой диалект VBA ..

← →
12 © (2010-02-10 11:27) [0]

const
n=10;
var
a:array[0..n] of integer;
i:integer;
s:string;
begin
for i:=0 to n do a[i]:=random(100);
s:="qwertyu";
i:= pos(s,"q");
end.

← →
12 © (2010-02-10 11:35) [1]

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

← →
Skyle © (2010-02-10 11:49) [2]

VBScript:

OPTION EXPLICIT const n = 10 Dim A() Dim I, S Redim A(n) randomize for I = 0 to n a(I) = rnd()*100 Next s = "qwertyu" i = InStr(s, "q") MSgBox I

← →
boriskb © (2010-02-10 11:50) [3]

> интересует как объявить переменные

DIM

> как присваивать

=

> не знаю как начать

с объявлений

← →
12 © (2010-02-10 12:47) [4]

> Skyle © (10.02.10 11:49) [2]

спасибо

не, мне уровня найти min/max, поменять подстроку на заданное
собственно, уже все сделал
Заочник один сдает, там 100% тестить никто не будет, просто проверят ход решения
Спасибо еще раз.

Переведите пожалуйста на любой диалект VBA .. Найти похожие ветки