Скачать: CL | DM;

Переведите пожалуйста на любой диалект 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]

спасибо

---

← →
Skyle ©   (2010-02-10 12:48) [5]

> 12 ©   (10.02.10 12:47) [4]

Может пригодиться.
http://msdn.microsoft.com/en-us/library/d1wf56tt(VS.85).aspx

---

← →
12 ©   (2010-02-10 15:39) [6]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.044 c