Viết ct đọc số bằng VB hoặc pascal

[lonton_16]

Tôi đang học VB, thầy giáo ra 1 đề là viết ct đọc số từ -(10^6) đến +10^6
Tôi chưa tìm ra cách giải cho bài này::(, ai biết làm thì chỉ tui với, ngôn ngữ Pascal hay VB cũng được, 2 cái đó tôi có thể hiểu
Cảm ơn đã đọc bài

 

[lonton_16]

Dim t(9) As String, v(1 To 5) As String
Dim a As Integer, b As Integer, c As Integer, doc as string, n as long
t(0) = "khong": t(1) = "mot": t(2) = "hai": t(3) = "ba": t(4) = "bon": t(5) = "lam": t(6) = "sau": t(7) = "bay": t(8) = "tam": t(9) = "chin"
v(2) = "tram": v(4) = "muoi"
a = n \ 100: b = (n - a * 100) \ 10: c = n - a * 100 - b * 10
v(1) = t(a): v(3) = t(b): v(5) = t(c)
doc = v(1) & " " & v(2) & " " & v(3) & " " & v(4) & " " & v(5)

Nghĩ mãi mới ra như vậy đó ::( nhưng chạy vẫn còn lỗi nhiều lắm, nó đọc cả số 0 ở hàng trăm, hàng chục, ko đọc được số 10.....
Ai vô đây giúp tôi đi::)

P/S: Quên mất 1 cái rất quan trọng là code trên chỉ áp dụng cho số từ 999 trở xuống