Dùng phương thức TryParse để bẫy lỗi nhập liệu

- Trong quá trình nhập liệu nếu ta khai báo biến Single hoặc các biến dạng số mà người dùng họ nhập vào chuỗi thì chương trình ta viết sẽ bị lỗi, do đó ta sẽ bẫy lỗi bằng TryParse

Sub Main()
        Dim hoten As String
        Dim diemtoan As Single
        Dim diemvan As Single
        Dim dtb As Single

        Dim stringtoan As String
        Dim stringvan As String
Thoat:
        Console.WriteLine("Nhap vao ten cua ban ")
        hoten = Console.ReadLine()
        Console.WriteLine("Nhap vao diem toan")
        stringtoan = Console.ReadLine()
        Console.WriteLine("nhap vao diem van")
        stringvan = Console.ReadLine()

        If Not Single.TryParse(stringtoan, diemtoan) Or Not Single.TryParse(stringvan, diemvan) Then
            Console.WriteLine("Diem toan hoac Van khong dung dinh dang")
            GoTo Thoat
        End If
        dtb = (diemtoan + diemvan) / 2
        Console.WriteLine("ten cua ban {0}, diem toan {1}, diem van {2}, diem trung binh {3}", hoten, diemtoan, diemvan, dtb)
        Console.ReadLine()
    End Sub