Select Case?

[Simbad]

Подскажите пожалуйста, как переобразовать "if a>1000 and a<=3000 then b=40" на "Select Case"

[VictorM]

Это как?
Для чего и каком контексте?
Почитайте, что такое Select Case

[slan]

в частном случае(вашем) этого не требуется

но если все таки требуется, то хотелось бы знать, что из себя представляет а

[slan]

если а - целое, то можно так

select case a
case 1001 to 3000:
end select

[Simbad]

Сообщение от slan

если а - целое, то можно так

select case a
case 1001 to 3000:
end select

а если a=1000.01

[Simbad]

Сообщение от VictorM

Это как?
Для чего и каком контексте?
Почитайте, что такое Select Case

я знаю что такое Select Case но не знаю аналог приведенного примера на Select Case. Я просто привел короткий пример но на самом деле в моем условие входит много таких подусловии и для этого удобно Select Case

[VictorM]

на самом деле в моем условие входит много таких подусловии

Тогда, наверное, имеет смысл изложить суть задачи и желательно с примером файла

[slan]

тоже можете, но трудности с оператором ">"..

какое наименьшее число больше 1000 вы можете указать?

и вообще сранение вещественных значений надо проводить с осторожностью - с поправкой на точность вычислений(отображения)

[slan]

а вообще почитать справку стОит. глядишь чего нового узнаете..

[Казанский]

Со строгим неравенством можно так:

Select Case True
Case a > 1000 And a <= 3000: b = 40
End Select

или так

Select Case a > 1000
Case a <= 3000: b = 40
End Select

Препод, видимо, имеет в виду такой вариант:

Select Case a
Case Is <= 1000, Is > 3000
Case Else: b = 40
End Select