Question

我在VB.NET的环境中只使用控制台。我的程序有问题，控制台快速终止。我的控制台如何做到这一点？谢谢。

继承我的代码：

Module Module1
    Dim num1 As Integer = 0
    Dim num2 As Integer = 0
    Dim ans As Decimal = 0
    Dim choice As String


    Sub Main()
        Console.WriteLine("First Number: ")
        num1 = Console.ReadLine
        Console.WriteLine("Second Number: ")
        num2 = Console.ReadLine
        Console.WriteLine("[A] Addition")
        Console.WriteLine("[S] Subtraction")
        Console.WriteLine("[M] Multiplication")
        Console.WriteLine("[D] Division")
        Console.WriteLine("Enter your choice: ")
        choice = Console.ReadLine

        If (choice.ToUpper() = "A") Then
            ans = num1 + num2
            Console.WriteLine(ans.ToString)
        ElseIf (choice.ToUpper() = "S") Then
            ans = num1 - num2
            Console.WriteLine(ans.ToString)
        ElseIf (choice.ToUpper() = "M") Then
            ans = num1 * num2
            Console.WriteLine(ans.ToString)
        ElseIf (choice.ToUpper() = "D") Then
            ans = num1 / num2
            Console.WriteLine(ans.ToString)



        End If





    End Sub

End Module

Answer 1

控制台程序已经到达其例程的末尾，导致它终止。您需要在main方法中放置Console.ReadLine或Console.ReadKey。这将等待用户输入。

我通常会做这样的事情

Sub Main()
  Console.WriteLine("Press any key to exit")
  Console.ReadKey()

  Console.WriteLine("Press enter to exit")
  Console.ReadLine()
End Sub

Answer 2

Console.ReadKey（）应该按照你的要求进行操作

将它放在End Sub

之前

参考here

获取用户按下的下一个字符或功能键。该按下的键显示在控制台窗口中。

Answer 3

这通常只是调试时的问题，所以我添加：

If Debugger.IsAttached Then _
  Console.ReadLine()

在我的控制台程序Main例程的末尾。

VB.NET控制台程序很快就会终止

3 个答案: