Как вставить в формулу случайный математический знак?

[Костя]

Вобщем, пишу генератор случайных формул. Заткнулся в самом начале.

***
Case Is < 0.75
cha = "+"
Case Is < 0.8
cha = "-"
Case Is < 0.85
cha = "*"
Case Is < 0.9
cha = "/"
Case Is < 0.95
cha = "^"
***
txtR = a & cha & b - разумеется, ничего не получается

Как в бейсике это сделать? Существует ли в нём тип данных для математических знаков?

[Matew]

Если тебе нужен математический ответ, то есть два выхода:
1. Делать что - то типа компилятора(недавно тема была на форуме).
2. Делать так:

Код: Выделить всё

if instr(txtr, "+" ) then
Otvet = val(Left(txtr,instr(txtr, "+" ) )) + val(Right(txtr,instr(txtr, "+" ) ))
end if


(Мож где то опечатался)
Но это капец - придется все скобки искать, если они будут и порядок действий анализировать.

[uhm]

Не очень понял, в чем, собственно, состоит вопрос, но посмотри эту тему - вдруг поможет?.. http://bbs.vbstreets.ru/viewtopic.php?t=4557

[Matew]

http://bbs.vbstreets.ru/viewtopic.php?t=4557
Хорошая штука, тока почему ее редко советуют?? Я читал 3-4 таких же темы, там ее не советовали.

[Костя]

Помогло использование ScriptControl'а :

txtRes = ScriptControl1.Eval(Int(Rnd * 100) & cha & Int(Rnd * 100))

Всем спасибо!