Dim ary() As Integer = {5, 7, 9, 11, 13, 15, 17, 21, 23, 25, 27, 29, 31}Dim s As Integer = 12
If array.IndexOf(ary,s) > -1 Then msgbox("正确")Else msgbox("错误")End If