V systému PROMOTIC je lepší použít objekt PmExpr.
expression | (String) řetězec obsahující libovolný výraz v syntaxi jazyka VBScript |
---|
Dim RndNum, Guess
RndNum = Int(100 * Rnd(1) + 1)
Guess = CInt(InputBox("Enter your guess:", "", 0))
If Eval("Guess = RndNum") Then
MsgBox "Congratulations! You guessed it!"
Else
Guess = CInt(InputBox("Sorry! Try again.", "", 0))
End If