10000以上30000未満の表現の仕方

単純なことかもしれませんが、表題の表現方法がわかりません。
10000以上30000未満の場合、変数Aに1を
30000以上100000未満の場合、変数Aに2を
代入したいのですが、If ～ Then の間にどのように比較演算子を入れればうまくいくのでしょうか。
コードを教えていただければ助かります。

No.1 ベストアンサー 回答者： MovingWalk 回答日時： 2004/01/09 00:11

こんな感じでどうですか？

if 10000<=X and X<30000 then
A=1
else if 30000<=X and X<100000 then
A=2
endif

この回答へのお礼

エラーになりましたが、修正して解決しました。
有り難うございました。

お礼日時：2004/01/11 12:45

No.2 回答者： imogasi 回答日時： 2004/01/09 07:07

IF THENは回答済みなので、Case文で

Sub test01()
p01:
n = InputBox("n=")
Select Case n
Case Is >= 100000
MsgBox "3"
Case Is >= 30000
A = 2
MsgBox "2"
Case Is >= 10000
A = 1
MsgBox "1"
Case Else
MsgBox "0"
End Select
GoTo p01
End Sub