Case 怎么用?

Question

前面有段代码,A是读取自ini文件里的一个数值,我想,如果返回的数值是1,那么Cbocun.Text = "下载",如果返回的数值是2,那么入库,如果是3就退出,可是这样写怎么不对呢? case 不是这么用吗?Select Case A
Case 1
Cbocun.Text = "下载"
Case 2
Cbocun.Text = "入库"
Case Else
MsgBox ("程序出错! 请检查 Setup.ini!")
Unload Me
End Select

Answer 1

这样试试
Select Case A
Case "1"
Cbocun.Text = "下载"
Case "2"
Cbocun.Text = "入库"
Case Else
MsgBox ("程序出错! 请检查 Setup.ini!")
Unload Me
End Select

Answer 2

现在看到没有break的case语句还真难受啊
已经不习惯VB了……

Answer 3

Select Case Val(A)
Case 1
Cbocun.Text = "下载"
Case 2
Cbocun.Text = "入库"
Case Else
MsgBox ("程序出错! 请检查 Setup.ini!")
Unload Me
End Select

Answer 4

是INI么？
先打开INI
申明个变量
读取 植
然后 用
CASA判断
就可以了哦