Как обозначить область допуска?

[agikon]

допустим если некая переменная $1,
то при условии что число этой переменой будет в диапазоне в диапазоне от 90 до 110 то выполнялось некое действие.

например $S = 84 - условие не выполняется.
а если $S = 109 - теперь условие выполняется , так как попадает в диапазон от 90 до 110.

помогите пожалуйста.

 

[Garrett]

Dim $a = 84
If $a < 110 And $a > 99 Then MsgBox(0,"", $a)
$a = 109
If $a < 110 And $a > 99 Then MsgBox(0,"", $a)

 

[madmasles]

agikon,
Или так:

$iVar = Random(80, 120, 1)
Switch $iVar
	Case 90 To 110
		MsgBox(64, 'Info', 'OK ' & $iVar)
	Case Else ;для примера, можно убрать.
		MsgBox(16, 'Error', 'No ' & $iVar)
EndSwitch

 

[agikon]

Спасибо ребята,понял, оба варианта возьму на вооружение.