Visual Basic 中的 Console.Write 和 Console.WriteLine 不会出现在控制台输出中

Question

Tried to make a simple condition in Visual Basic but Console.write and Console.WriteLine does not appear in the Console Window, already set the output to Console Application

Sub Main()

    Console.Clear()
    Console.WriteLine("**Kalkulator Hitung Nilai Menggunakan Console Aplication**")

    Dim Tugas As Integer
    Dim UTS As Integer
    Dim UAS As Integer
    Dim T As Double
    Dim txtHuruf As Char

    Console.Write("Masukan Nilai Tugas = ")
    Tugas = Console.ReadLine()
    Console.Write("Masukan Nilai UTS = ")
    UTS = Console.ReadLine()
    Console.Write("Masukan Nilai UAS = ")
    UAS = Console.ReadLine()

    T = (Tugas * 0.2) + (UTS * 0.5) + (UAS * 0.3)

    If T > 85 Then
        Console.Write("A")
    ElseIf T > 70 Then
        Console.Write("B")
    ElseIf T > 50 Then
        Console.Write("C")
    ElseIf T > 30 Then
        Console.Write("D")
    ElseIf T > 0 Then
        Console.Write("E")
    End If

End Sub

The console does output the Input but does not output every Console.WriteLine

The program closed after this: and does not show the remaining output, using Visual Studio 2012.

Answer 1

You need to put Console.ReadXxx() as the last line in your program.

    If T > 85 Then
        Console.Write("A")
    ElseIf T > 70 Then
        Console.Write("B")
    ElseIf T > 50 Then
        Console.Write("C")
    ElseIf T > 30 Then
        Console.Write("D")
    ElseIf T > 0 Then
        Console.Write("E")
    End If

    Console.ReadKey() ' Or Console.ReadLine() / Console.Read()

Console.ReadKey() waits for any key.

Console.Read() and Console.ReadLine() waits for 'Enter' key.