module1.vb

编程之道VB.NETt程序设计入门-589M.zip

Module Module1

    Sub Main()
        Dim sInput As String

        System.Console.WriteLine("无法读取文件！")
        System.Console.WriteLine("忽略(I) 重试(R) 中止(A)？")
        sInput = System.Console.ReadLine()

        Select Case sInput
            Case Is = "I", "i"
                System.Console.WriteLine("你选择了忽略！")
            Case "R", "r"
                System.Console.WriteLine("你选择了重试！")
            Case "A", "a"
                System.Console.WriteLine("你选择了中止！")
            Case Else
                System.Console.WriteLine("你的输入无效！")
        End Select

        System.Console.ReadLine()
    End Sub

End Module