Console.Read()

Dim inputCode As Integer = Console.Read()

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