vb 如果A= 1或者等于2或3或4,这代码怎么写.

楼上的是什么版本?
VB6.0就这样
if a=1 or a=2 or a=3 or a=4 then
要保存数据可以写入文件
DIM A AS INTEGER
保存A:
OPEN "c:\A.DAT" FOR BINARY AS #1
PUT #1,A
CLOSE #1
读取A:
OPEN "c:\A.DAT" FOR BINARY AS #1
GET #1,A
CLOSE #1