按键精灵啊，你是用的数组吗
自己遍历循环判断吧
做了个例子
Dim a(3)Dim aai = 0Dim Resulta(0) = "0"a(1) = "1"a(2) = "2"a(3) = "3"aa="2"For UBound(a) + 1 If aa = a(i) Then Result = "True" MessageBox Result Exit For End If i=i+1Next
