Dim inputCode As Integer = Console.Read()
Console.Read()等待用户输入，并在收到后返回与输入字符的字符代码相对应的整数值。如果输入流在获得输入之前以某种方式结束，则返回-1。
