这是代码。我基本上想要的是用户键入一个数字,按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
答案 0 :(得分:1)
最后使用console.read()
。消息press any key to exit
。这将阻止控制台退出。