select case判断字符串应该怎么来写呢?

Question

Select Case iCyc
Case "1 / 1"
GetCyc = 0
'MsgBox "ss"
Case "1 / 4"
GetCyc = 1
'MsgBox "ss"
Case "1 / 8"
GetCyc = 3
'MsgBox "ss"
Case "1 / 16"
GetCyc = 7
'MsgBox "ss"
End Select
发现对话框都没有弹出来，iCyc是一个string

Answer 1

顶先，再找各位前辈帮小弟一个忙，做个VB特别简单的查询系统，具体的条件我们可以QQ上聊，谢谢哪位好心人帮帮小弟，实在是急呀，再不做好，就要下岗！小弟这里有礼了！！！！！！！！！！在线等QQ11060006

Answer 2

写法没问题
加个MsgBox iCyc看看呢～

Answer 3

哦，搞错了，前面的注释去掉，对话框弹不出来，在最前面加上MsgBox iCyc得到的是一个1/4，
按理说应该到这一块来呀
Case "1 / 4"
GetCyc = 1
'MsgBox "ss"
外面是这样调用的：
i = j = GetCyc(putparam)
MsgBox i
弹出来的对话框是一个true

Answer 4

iCyc是String类型吗？如果不是，要用CStr(iCyc)转换一下