在Visual Basic中按Enter键输入数据时如何不退出控制台

时间:2015-10-04 17:55:27

标签: console

这是代码。我基本上想要的是用户键入一个数字,按Enter键并读取数字以便使用它。我不知道控制台退出是因为按下Enter按钮还是因为其他原因

Sub CompruebaNumeroPrimo()
        Console.Write("Función que comprueba si un nº es primo, introduce el nº")
        Console.WriteLine()
        Dim NumeroAComprobar As Integer = CType(Console.ReadLine(), Integer) 
        Dim RestosCero As Integer = 0
        For Indice As Integer = 1 To NumeroAComprobar
            If (NumeroAComprobar Mod Indice = 0) Then
                RestosCero += 1
            End If
        Next Indice
        If (RestosCero > 2) Then
            Console.Write("No es primo")
        Else
            Console.Write("Es primo")
        End If
        Console.WriteLine()
    End Sub

1 个答案:

答案 0 :(得分:1)

最后使用console.read()。消息press any key to exit。这将阻止控制台退出。