VB中case用法

''            Select Case .Process
''                Case "AOI"
''                    varData(0, 1, 0) = IIf(.GdNg = "Y", "Pass", "NG")
''                    varData(0, 0, 1) = .WrkStation
''                Case "ICTATE"
''                    varData(1, 1, 0) = IIf(.GdNg = "Y", "Pass", "NG")
''                    varData(1, 0, 1) = .WrkStation
''                Case "FI"
''                    varData(2, 1, 0) = IIf(.GdNg = "Y", "Pass", "NG")
''                    varData(2, 0, 1) = .WrkStation
''                Case "FCT"
''                    varData(0, 1, 0) = IIf(.GdNg = "Y", "Pass", "NG")
''                    varData(0, 0, 1) = .WrkStation
''            End Select